Auf einem Imagefeld ein Vieleck zeichnen lassen

[darkdantedante]

Ich hab da schon wieder ein Problem
Und zwar habe ich ebend ein Programm geschrieben, in dem in ein Imagefeld ein Vieleck gezeichnet werden soll.
Die Anzahl der Ecken sollen aus einem Spineditfeld entnommen werden.
Würde mich freuen wenn jemand den Fehler findet ^^

Beim starten des Programmes passiert nichts, nur ein weißes Imagefeld wird angezeigt!

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
 
          VAR anzahl_ecken: integer;
              xm: integer;
              ym: integer;
              i: integer;
              radius: integer;
              x: integer;
              y: integer;
              winkelschritt: double;
              winkel: double;
 
begin
            radius:=200;
            form1.Image1.canvas.Brush.color:=clwhite;
            form1.Image1.canvas.Fillrect(rect(0,0,image1.width,image1.height));
            form1.Image1.canvas.Pen.color:=clblack;
            xm:=image1.width div 2;
            ym:=image1.Height div 2;
            anzahl_ecken:=strtoint(spinedit1.Text);
            winkelschritt:=2*pi/anzahl_ecken;
            image1.canvas.moveto(xm+radius,ym);
 
            FOR i:=1 TO anzahl_ecken DO
            winkel:=i*winkelschritt;
            x:=round(cos(winkel)*radius)+xm;
            y:=round(sin(winkel)*radius)+ym;
            image1.canvas.lineto(x,y);
            application.processmessages;   
end;
 
end.

[Scotty]

Der Bereich wird beim jedem Repaint überschrieben. Verschiebe den Code in das OnPaint()-Ereignis. Dann solltest du zumindest etwas sehen.

[darkdantedante]

Der Bereich wird beim jedem Repaint überschrieben. Verschiebe den Code in das OnPaint()-Ereignis. Dann solltest du zumindest etwas sehen.

Hm...bin noch Anfänger und verstehe jetzt nicht genau was du meinst.

[Linkat]

vor allen Dingen fehlt das begin in der for-Schleife:

Code: Alles auswählen

 
for i:=1 to anzahl_ecken do begin
.......
end;
for 

[Scotty]

Hm...bin noch Anfänger und verstehe jetzt nicht genau was du meinst.

Dort wo du das OnClick()-Ereignis mit deiner Prozedur verbunden hast, kannst du ein OnPaint auswählen (falls du nicht das Standardereignis über den Doppelklick im Designer benutzt). Das Element nennt sich Objektinspektor. Das sind aber Grundlagen, die du besser in einem Einsteigerbuch nachliest.

[darkdantedante]

vor allen Dingen fehlt das begin in der for-Schleife:

Code: Alles auswählen

 
for i:=1 to anzahl_ecken do begin
.......
end;
for 

Vielen Dank, das war der Fehler!!!