Re: SaveBackgroundToHTML

Return to index

Author

Message

Sergey Tkachenko

Posted: 12/06/2002 13:10:23

Are you sure?

This method calls:

procedure TRichViewRVData.HTMLSaveImage(RVData: TCustomRVData; ItemNo:

Integer;

  const Path: String; BackgroundColor: TColor;

  var Location: String; var DoDefault: Boolean);

begin

  Location := '';

  DoDefault := True;

  if Assigned(TCustomRichView(FRichView).OnHTMLSaveImage) then

    TCustomRichView(FRichView).OnHTMLSaveImage(TCustomRichView(FRichView),

RVData, ItemNo, Path, BackgroundColor, Location, DoDefault);

end;

As you can see, DoDefault is always True, if this value is not overriden in

OnHTMLSaveImage event.

> Hello,

>

> (Unit used CRVData.pas)

> I would like to know why Dodefault is always false in

> function TCustomRVData.SaveBackgroundToHTML(bmp: TBitmap; Color: TColor;

>   const Path, ImagesPrefix: String; var imgSaveNo: Integer;

>   OverrideImages: Boolean): String;

> var DoDefault: Boolean;

> begin

>   Result := '';

>   HTMLSaveImage(Self, -1, Path, Color, Result, DoDefault);

>   if DoDefault then

>     Result := RV_GetHTMLPath(SavePicture(rvsfHTML, ImagesPrefix, Path,

>       imgSaveNo, OverrideImages, Color, bmp));

> end;

>

> when I run with Xp familial and not with millenium?

>

> Regards

> CM

>

>

>