Hallo, ich habe ein Problem mit der Textausgabe auf eine Canvas. Ich habe aus dem Buch „Borland Delphi 7 – Grundlagen & Profiwissen“ folgenden Quelltext vollständig übernommen:
Delphi-Quellcode:
Var r: TRect;
P: PChar;
…
… FormCreate(Sender: TObject);
Begin
r:= Bounds(0,0,memo1.clientwidth, memo1.clientheight);
End;
Die Button-Klick Procedure sieht wie folgt aus:
…
Delphi-Quellcode:
p:= PChar(memo1.Text);
image1.canvas.fillrect(r);
DrawText(image1.canvas.handle, p, length(p),r,dt_left + dt_Expandtabs + dt_wordbreak);
…
Es wird zwar Text auf der Canvas des Images ausgegeben, jedoch mit einem nicht transparenten Hintergrund – siehe Anhang!
Wo könnte der Fehler liegen?
MfG
hansklok