Re: SaveHTMLEx

Return to index

Author

Message

Lee.Bambury

Posted: 10/07/2004 12:33:23

Morning

Sorry not sure how you go about saving the image out in this event I have

looked at this event in the help to understand it more the location being

the filename but in my case my cid.  How do I then go about saving this out

as the jpeg that was originally being created,  I take it this is something

to do with RVData and that this points to the object, which I am guessing is

the background image I am currently dealing with, so in the htmlsaveimage

event I need to use the rvdata.savepicture method but the last parameter is

a TGraphic and rvData does not seem to contain this.  Sorry this is all

quite alien to me, this is the current code I have, am I just missing the

plainly obvious or am i totally on the wrong track.

procedure TfrmEmailRich.TfrmRichEmail1txtBodyHTMLSaveImage(

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

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

  var DoDefault: Boolean);

var

  iNo: Integer;

begin

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

  If ItemNo = -1 Then

    begin

       RVData := Sender.RVData;

       DoDefault := False;

       {*** Need To Save The Picture Out Manually ***}

       RVData.SavePicture(rvsfHTML,'ala',Path,iNo,True,BackgroundColor,?????

       {*** Store References So I Can Package Them When Sending The Mail

***}

       ssCID := 'cid:ala' + MakeCID;

       ssBackground := Path + 'ala' + IntToStr(iNo) + '.jpg';

       {*** Force CID To Be Written To The HTML File ***}

       Location := ssCID;

    end;

  {EndIf}

end;

Kind Regards

Lee

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

news:[email protected]...

> You can use OnHTMLSaveImage for custom saving background image.

> When saving the main background, its parameters are the following:

> ItemNo=-1

> RVData=Sender.RVData.

> Save background bitmap where you need, assign 'cid:11122' to the Location

> parameter and False to the DoDefault parameter.

>

> > Hi

> >

> >   Sorry being a pain in the (bleep) today ;) .  I am having a problem

with

> > one of my other controls not supporting background-image: in styles but

I

> > need the html file to use them for paragraph colouring etc.

>

>