Einzelnen Beitrag anzeigen

At0mGuRk3

Registriert seit: 23. Nov 2004
9 Beiträge
 
#3

Re: Delphi : String umtauschen und mit Rectangles ausgeben.

  Alt 19. Dez 2004, 14:15
Öööhm ok
Sry...


Ich habs gefunden...


Das Problem lag hier:
Delphi-Quellcode:
for i:=0 TO n DO
BEGIN
WITH image1.Canvas DO
BEGIN
Pen.Color:=ClBlue;
rectangle(i*15,i*15,265-i*15,265-i*15);
Textout(0+(i*15),265-(i*15),getauscht[i]);

END;
END;
Jetzt macht ers...
Zumindest bis zu einer bestimmten Stringlänge

Trotzdem danke...

(Hätte vielleicht erst mal selbst weitermachen müssen, statt zu fragen...)

MfG, die Gurke
  Mit Zitat antworten Zitat