Variable RichViewPixelsPerInch

Return to index

Author

Message

Marcos Lommez

Posted: 08/20/2004 22:18:52

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;

     end;

end;