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:

markieren

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:

…

markieren

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

**100nF**

ich glaube es muss so heissen:

markieren

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);

**hansklok**

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

MfG

hansklok

**Luckie**

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

**pacman1986**

Danke hab ich auch gesucht

DrawText-Problem

DrawText-Problem

Re: DrawText-Problem

Re: DrawText-Problem

Re: DrawText-Problem

Re: DrawText-Problem

Forumregeln

100nF Registriert seit: 7. Nov 2004 639 Beiträge	#2 Re: DrawText-Problem 19. Feb 2006, 13:24 ich glaube es muss so heissen: markieren 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);
	Zitat

hansklok Registriert seit: 14. Apr 2004 Ort: Karlsruhe 318 Beiträge Delphi 2010 Architect	#3 Re: DrawText-Problem 19. Feb 2006, 13:29 Danke, funktioniert. Kleine Änderung, große Wirkung! MfG hansklok
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#4 Re: DrawText-Problem 19. Feb 2006, 20:48 Und mach bitte aus den Plus ein or, da es keine Addition ist, sondern eine logische Verknüpfung mit or. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

pacman1986 Registriert seit: 11. Feb 2005 Ort: Kirchhain 498 Beiträge Delphi 2005 Personal	#5 Re: DrawText-Problem 20. Feb 2006, 16:58 Danke hab ich auch gesucht Christian N.
	Zitat