DrawText-Problem

[hansklok]

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