Canvas.TextOut mit komischen Zeichen

[Flips]

Hi.

Habe folgendes Problem:
Über folgenden Code werden Zahlen auf ein TImage geschrieben:

Delphi-Quellcode:

for i := 1 to SpinEdit1.Value do
  Image1.Canvas.TextOut((i*3)+50,Image1.Height-40,IntToStr(i));

Ist ja recht simpel aber irgendwie kommen da nur komische Zeichen raus. Ohne die Schleife geht es aber mit der Schleife kommt folgendes raus:
http://owned.ow.funpic.de/dp.PNG :wiejetzt:

Warum?:gruebel:

[ichbins]

was kommt ohne der Schleife raus?

der Fehler ist:

jedesmal wird der Text um 3 Pixel weiter rechts platziert, so dass nur die ersten 3 Pixel jeder Zahl sichtbar sind (i*3).

du hast die Zahlenreihe

12345678910111213,

von jeder Zahl werden aber nur die 1. 3 Pixel dargestellt.

[Flips]

Klasse. Das ging ja schnell. :dp:

Danke, wenn ich anstatt i*3 i*20 mache gehts so wie ich das will :thumb: