Zeichnen

[delphi-projekt]

Vielen Dank
und ausgeben tu ich das über image oder?

[mkinzler]

Besser eine TPaintBox. Und Zeichenoperationen nur in der Paint-Methode durchführen, da der Canvas sonst beim Redraw überschrieben wird

[delphi-projekt]

Ich hab das jetzt so geschrieben

Delphi-Quellcode:

image1.Canvas.Linieto(X+LinieHorizontal,Y+LinieVertikal);

wie mach ich das mit einer Painbox?

und es ist noch folgender Fehler aufgetreten damit meint er die -5

[Fehler] uWinIOTest.pas(454): E1012 Konstantenausdruck verletzt untere Grenzen

MfG Delphi-Projekt

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[delphi-projekt]

Ich hab euch mal meinen Quelltext reingestellt. Eine Sache ist noch wenn "W" gedrückt wird soll er eine Line nach oben malen. Wenn "A" gedrückt wird soll er eine Line nach links malen.Wenn "S" gedrückt wird soll er eine Line nach unten malen. Wenn "D" gedrückt wird soll er eine Line nach rechts malen. Und er soll nur solange die line malen bis ich von der Taste runter bin.

Delphi-Quellcode:

 if GetAsyncKeyState(ord('W'))<0
     then
       begin
         cbData1.checked:=false;
         cbStrobe.checked:=false;
         LinieHorizontal:=0;
         LinieVertikal:=-5;
       end
     else
       begin
         cbData1.checked:=true;

     end;

   if GetAsyncKeyState(ord('D'))<0
     then
       begin
         cbData5.checked:=false;
         cbStrobe.checked:=false;
         LinieHorizontal:=5;
         LinieVertikal:=0;
       end
     else
       begin
         cbData5.checked:=true;

     end;

        if GetAsyncKeyState(ord('A'))<0
     then
       begin
         cbData7.checked:=false;
         cbStrobe.checked:=false;
         LinieHorizontal:=-5;
         LinieVertikal:=0;
       end
     else
       begin
         cbData7.checked:=true;
     end;
     Paintbox1.Canvas.LineTo(X+LinieHorizontal,Y+LinieVertikal);

end;

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Wie gesagt Zeichnen nur in der dafür zuständigen Methode

[delphi-projekt]

Wenn ich jetzt einen Timer erstelle. Und ich einen doppelclick auf den Timer mache.
Was schreib ich denn da in die Procedure rein?

[mkinzler]

Den Code, den du jeweils bei Ablauf des Intervalls ausführen willst

[Noedel]

also die abfrage, welcher key grade aktuell ist und der code s.o.das wärs auch schon

[mkinzler]

Die Berechnung der Position ja, das Zeichnen aber nicht.

[delphi-projekt]

Scheiße das klappt nicht so wie ich mir das vorstelle.
Geht das überhaupt, wenn ich "D" drücke das der dann langsam eine line zieht und wenn ich
von "D" los lasse das er dann automatisch aufhört die line zu zeichnen.

Ich hab echt keine Ahnung mehr wie ich weiter machen soll.

Muss ich so was wirklich in einem Timer machen?