How to render a TRichEdit text onto a canvas (TImage)

Windows with Delphi
Windows API (94)
Windows Filesystem (41)
Windows Forms (69)
Windows Graphics (38)

Exchange Links

About this site

Links to us

See also:

Have a TMemo/ TRichEdit scroll to the cursor position

How to render a TRichEdit text onto a canvas (TImage)

1 comments. Current rating: 5 stars

(1 votes). Leave comments and/ or rate it.

Question:

I need to render a TRichEdit text to a canvas in order to save it as an image file then. How can I achieve this?

Answer:

Call function RichEditToCanvas() and pass the TRichEdit control and the image control as shown in the button handler below. The third parameter (pixels per inch) remains unchanged.

//..

implementation

uses
  RichEdit;

procedure RichEditToCanvas(RichEdit: TRichEdit; 
  Canvas: TCanvas; PixelsPerInch: integer);
var
  ImageCanvas: TCanvas;
  fmt        : TFormatRange;
begin { RichEditToCanvas }
  ImageCanvas := Canvas; 
  with fmt do 
  begin 
    HDC := ImageCanvas.Handle; 
    hdcTarget := HDC; 
    // rect needs to be specified in twips (1/1440 inch) as unit 
    rc := Rect(0, 0, 
               ImageCanvas.ClipRect.Right * 1440 div PixelsPerInch, 
               ImageCanvas.ClipRect.Bottom * 1440 div PixelsPerInch); 
    rcPage := rc; 
    chrg.cpMin := 0; 
    chrg.cpMax := RichEdit.GetTextLen
  end; { with fmt } 
  SetBkMode(ImageCanvas.Handle, TRANSPARENT); 
  RichEdit.Perform(EM_FORMATRANGE, 1, integer(@fmt)); 
  // next call frees some cached data 
  RichEdit.Perform(EM_FORMATRANGE, 0, 0)
end; { RichEditToCanvas } 


procedure TForm1.Button1Click(Sender: TObject); 
begin { TForm1.Button1Click } 
  RichEditToCanvas(RichEdit1, Image1.Canvas, Self.PixelsPerInch); 
  Image1.Refresh
end; { TForm1.Button1Click }

You don't like the formatting? Check out SourceCoder then!

Comments:

2006-01-02, 15:52:18

anonymous from Turkey

Email address (not necessary): Rate as	Hide my email when showing my comment. Please notify me once a day about new comments on this topic. Please provide a valid email address if you select this option.

It seems that you are from Washington, US . Info/ Feedback on this	Show city and country Show country only Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:
Add a picture: Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity. The owner of this web site reserves the right to delete such material.


	Search: