Hi Leute,
ich hab mal ein Testprogramm geschrieben, das gestartet wird, wenn man nen knopf drückt.
ich hab das aber nicht als normale prozedur geschrieben, sondern direkt im knopf drin.
Jetzt möcht ich das aber in eine prozedur umwandeln, aber irgendwie funktioniert
das nicht. Was mach ich falsch?
Delphi-Quellcode:
procedure paint;
begin
form1.image1.Canvas.Pen.Color:=clblack; form1.image1.Canvas.Pen.Width:=2;
Form1.Image1.Canvas.MoveTo(Mittelpunktx,Mittelpunkty);
laenge:=100;
x:=Round(Mittelpunktx+laenge*cos(Winkel));
y:=Round(Mittelpunkty+laenge*sin(Winkel));
Form1.Image1.Canvas.MoveTo(x,y);
Form1.Image1.Canvas.Pixels[x,y]:=clblack;
Winkel:=Winkel+2*pi/360;
if (durchlauf <> 0) then
begin
Form1.Image1.Canvas.LineTo(x1,y1);
end;
x1:=x;
y1:=y;
durchlauf:=1;
end
Die globalen Variablen sehen so aus:
Delphi-Quellcode:
x,y,kreis,
x1,y1,durchlauf,umdrehung :integer;
laenge:real;
Mittelpunktx,
Mittelpunkty :integer;
winkel:real;
Kann mir irgendwer sagen was ich da nicht beachtet hab?
MfG Daniel