Delphi-PRAXiS - Delphi DrawText-Problem

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi DrawText-Problem (https://www.delphipraxis.net/63474-drawtext-problem.html)

DrawText-Problem

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

Re: DrawText-Problem

ich glaube es muss so heissen:

Delphi-Quellcode:

			p:= PChar(memo1.Text); 

image1.canvas.brush.style := bsclear; // <-- das hat gefehlt

image1.canvas.fillrect(r); 

DrawText(image1.canvas.handle, p, length(p),r,dt_left + dt_Expandtabs + dt_wordbreak);

Re: DrawText-Problem

Danke, funktioniert. Kleine Änderung, große Wirkung!

MfG

hansklok

Re: DrawText-Problem

Und mach bitte aus den Plus ein or, da es keine Addition ist, sondern eine logische Verknüpfung mit or.

Re: DrawText-Problem

Danke hab ich auch gesucht :D