Richedit.Lines Frage

[thomas2009]

Hier ist mein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var y, x : Integer;
    dc : HDC;
begin
    dc := canvas.handle;
    SetBkMode(dc,transparent);
    BeginPath(dc);

  //TextOut(dc, 10, 180, PChar(RichEdit1.Lines[0]), Length(RichEdit1.Lines[0]));
  Textout(Canvas.Handle,10,10,PChar(RichEdit1.Lines[0]),StrLen(PChar(RichEdit1.Lines[0])));
    EndPath(dc);
    SelectClipPath(dc, RGN_COPY);
    BitBlt(dc, 30, 180, Image1.clientWidth, image1.clientHeight, image1.picture.bitmap.canvas.handle, 0, 0, SRCCOPY);

  
end;