Border=0 attribute for hotspot picture

Return to index

Author

Message

Jean Jacques Serpoul

Posted: 10/03/2004 19:16:24

Hello, during exporting RVF to HTML using SaveHTMLToStreamEx, i don't know

to add "border=0" attribute to img +Hyperlink

I try onSaveItemtofile and modify OutStr adding border=0

----------------------

procedure TFormRich.RichSaveItemToFile(Sender: TCustomRichView;

  const Path: string; RVData: TCustomRVData; ItemNo: Integer;

  SaveFormat: TRVSaveFormat; Unicode: Boolean; var OutStr: string;

  var DoDefault: Boolean);

var alt: string;

  hauteur, largeur, Tag: integer;

  gr: TGraphic;

  Align: TRVVAlign;

  PictureName: string;

begin

  if SaveFormat = rvsfHTML then

  begin

    if (RVData.GetItemStyle(ItemNo) = rvsHotPicture) then

    begin

      RvData.GetItemExtraStrProperty(ItemNo, rvespAlt, alt);

      gr := Tgraphic.Create;

      RVData.GetPictureInfo(ItemNo, PictureName, gr, Align, Tag);

      RvData.GetItemExtraIntProperty(ItemNo, rvepImageWidth, largeur);

      RvData.GetItemExtraIntProperty(ItemNo, rvepImageHeight, Hauteur);

      if Hauteur = 0 then

      begin

        Hauteur := gr.Height;

      end;

      if largeur = 0 then

      begin

        Largeur := gr.Width;

      end;

      outStr := '<IMG width=' + intToStr(largeur) + ' height =' +

intToStr(hauteur) + ' alt="' + alt + '" src="' + RVData.GetItemText(ItemNo)

+ '" border="0">';

      DoDefault:=false;

    end;

  end;

end;

---------------------------------

but image is not saved (DoDefault=false).

Any idea ?

Thanks in advance

Jean Jacques Serpoul