Forum: Multimedia
Delphi
by Flare,
6. Apr 2006
Nochmals vielen Dank an alle, ich habe jetzt versucht meine Version durchzubringen, ich wollte es unbedingt mit Trigonometrie hinbekommen.
Hier nochmal mein Code:
procedure TRoboter.draw();
var points: array of TPoint;
deg: array of Single;
h,b: single;
i: integer;
begin
h := 20;
Forum: Multimedia
Delphi
by Flare,
6. Apr 2006
Stimmt, hilft ^^
Irgendwie hat da meine Delphi-HIlfe gehangen, weil überprüft habe ich es ja...
Das sieht ja jetzt an sich schon schön aus, nur dreht der Sich um einen imaginären Punkt, der irgendwo liegt, der aber eigentlich auf dem Bild in der Mitte liegen soll.
Ich konnte aber nicht erkennen, wo der Mittelpunkt der Drehung eingestellt wird.
Kann es sein, dass ich es danach noch über xf...
Forum: Multimedia
Delphi
by Flare,
5. Apr 2006
Ich habe es jetzt soweit umgebaut, dass es in mein Projekt reinpasst, er möchte aber das TXForms nicht annehmen...
Und er erkennt auch die Konstanten nicht, wobei ich aber glaube dass es an dieser TXForm liegt.
Was muss ich einbinden oder sonstewas machen damit das geht?
Flare
Forum: Multimedia
Delphi
by Flare,
5. Apr 2006
Also ich habe mir mal den Programmiertext mit dem Flugzeug angeschaut, verwenden möchte ich ihn nicht, weil ich dazu zu viel umändern müsste aber ich schau mal wie ich die einzelnen Funktionen verwenden kann.
Danke erstmal!
Flare
//Edit: Ich kriege es nicht hin, probiere aber erst morgen weiter.
Ich suche immer noch nach einem Code der mir ein rechteck mit bekannten Ausgangskoordinaten...
Forum: Multimedia
Delphi
by Flare,
5. Apr 2006
Hey ho!
Ich habe hier desen Quelltext:
procedure drawrect(p1,p2,p3,p4: TPoint);
begin
Form.Canvas.MoveTo(p1.X, p1.Y);
Form.Canvas.LineTo(p2.X, p2.Y);
Form.Canvas.LineTo(p3.X, p3.Y);
Form.Canvas.LineTo(p4.X, p4.Y);