RichEdit.PaintTo druckt nur Hintergrund

[Karsten]

Hallo,

im Grunde habe ich mein Problem oben (im Titel) schon beschrieben, zum Hintergrund sollte auch noch der Text in ein TBitmap gedruckt werden.

Wer weiß Rat ?

Gruß und danke,
Karsten

[Karsten]

Moeglicherweise kann man das PaintTo Problem (scheint Weltweit sehr vielen Leuten Probleme bereitet zu haben) mit folgendem Code loesen. Aber, kann mir jemand den Code erklaeren ?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var imgcanv : TCanvas;
    fmt     : TFormatRange;
begin
     imgcanv := image1.canvas;
     with fmt do
     begin
          hdc:= Image1.Canvas.handle;
          hdcTarget:= hdc;
          rc:= Rect(0, 0,
                    imgcanv.cliprect.right * 1440 div pixelsperinch,
                    imgcanv.cliprect.bottom * 1440 div pixelsperinch);
          rcPage:= rc;
          chrg.cpMin := 0;
          chrg.cpMax := richedit1.GetTextLen;
     end;
     SetBkMode( imgcanv.Handle, TRANSPARENT );
     richedit1.perform( EM_FORMATRANGE, 1, integer( @fmt ));
     richedit1.perform( EM_FORMATRANGE, 0, 0 );
     image1.refresh;
end;

Quelle:Text aus RichEdit transparent auf Image legen

Danke und Gruss,
Karsten