Re: SaveHTMLEx

Return to index

Author

Message

Sergey Tkachenko

Posted: 10/07/2004 13:05:58

This code saves background bitmap in the Path folder as a jpeg, file name is

composed of imageprefix specified in the SaveHTML parameter and a number.

Path and file name of this image is stored in ssBackground.

procedure TfrmEmailRich.TfrmRichEmail1txtBodyHTMLSaveImage(

  Sender: TCustomRichView; RVData: TCustomRVData; ItemNo: Integer;

  const Path: String; BackgroundColor: TColor; var Location: String;

  var DoDefault: Boolean);

begin

  {*** Are We Working With The Background Image ***}

  If (ItemNo = -1) and (RVData=txtBody.RVData) Then

    begin

       DoDefault := False;

       ssBackground := txtBody.SavePicture(rvsfHTML, Path,

txtBody.BackgroundBitmap);

       ssCID := 'cid:ala' + MakeCID;

       Location := ssCID;

    end;

  {EndIf}

end;