Re: SaveHTMLEx

Return to index

Author

Message

Lee.Bambury

Posted: 10/07/2004 13:20:10

Thx Sergey,

sorry thought it would be something simple it is handy to know save picture

will convert the picture formats based on the save format.

Thx again

Lee

"Sergey Tkachenko" <[email protected]> wrote in message

news:[email protected]...

> 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;

>

>