DrawText-Problem

[100nF]

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