Einfach mal so aus der
Unit gezogen (etwas unübersichtlich vielleicht, da ich doch am Experminetieren bin)
Delphi-Quellcode:
t:=jpg.Height+10+(i*Font.Height)+(i*25);
l:=FLeftMargin;
r:=ceil((Width/5)*3);
b:=t+DrawText(Canvas.handle, PChar(Tasks.Strings[i]), Length(PChar(Tasks.Strings[i])), TaskRect, dt_calcrect or dt_wordbreak);
t:=jpg.Height+10+(i*Font.Height)+(i*25);
l:=FLeftMargin;
r:=ceil((Width/5)*3);
DrawText(Canvas.handle, PChar(Tasks.Strings[i]), Length(PChar(Tasks.Strings[i])), TaskRect, dt_wordbreak);
Kannst ja noch ein kleines ShowMessage rundrum legen und die Veränderung ansehen. Das Problem bei mir ist, dass ich zwei Textausgaben nebeneinander darstellen möchte, aber dies wegen der Veränderung des Rechtecks optisch nicht klappt