Re: Variable RichViewPixelsPerInch

Author

Message

Marcos Lommez

Posted: 08/20/2004 22:45:12

I have found the unit the have that variable

RVFuncs

"Marcos Lommez" <[email protected]> escreveu na mensagem

news:[email protected]...

> Hi Sergey...

> I've installed version 1.9. And the variable RichViewPixelsPerInch doesnt

> exist anymore

> How can i rewrite the procedure GetTwipsPerPixel ?

> thanks

> here is the code:

> procedure TFrmChatRoom.RichViewEdit2SaveComponentToFile(

> Sender: TCustomRichView; Path: String; SaveMe: TPersistent;

> SaveFormat: TRVSaveFormat; var OutStr: String);

> function GetTwipsPerPixel: Double;

> var DC: HDC;

> begin

> DC := CreateCompatibleDC(0);

> if RichViewPixelsPerInch > 0 then

> Result := (72*20) / RichViewPixelsPerInch

> else

> Result := (72*20) / GetDeviceCaps(DC, LOGPIXELSY);

> DeleteDC(DC);

> end;

> var

> Img: TImage;

> Stream: TStringStream;

> begin

> if not (SaveMe is TImage) then

> exit;

> img := TImage(SaveMe);

> case SaveFormat of

> rvsfHTML:

> begin

> OutStr := Sender.SavePicture(rvsfHTML, Path,

> img.Picture.Graphic);

> OutStr := Format('<IMG src="%s" width=%d height=%d

> alt="">',[OutStr, img.Width, img.Height]);

> end;

> rvsfRTF:

> begin

> Stream := TStringStream.Create('');

> RVSaveImageToRTF(Stream, GetTwipsPerPixel,

img.Picture.Graphic,

> img.Width, img.Height, Sender.RTFOptions);

> OutStr := Stream.DataString;

> Stream.Free;

> end;

> rvsfText:

> begin

> if SaveMe is TButton then

> OutStr := '['+TButton(SaveMe).Caption+']'

> else if SaveMe is TImage then

> OutStr := '<Image of '+TImage(SaveMe).Hint+'>';

> end;