Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Vasco da Gama,
26. Aug 2009
Hi, ich habe nach Vorbild der Wormhunter Demo das ding etwas umgebaut....
procedure TEinheit.Gehen(P: TPoint);
begin
SetDir(round(ArcTan((Y - P.Y) / (X - P.X))));
end;
procedure TEinheit.SetDir(ADirection: Integer);
var
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Vasco da Gama,
18. Aug 2009
Jetzt hab ich mal Einheit.Gehen verschönert:
procedure TEinheit.Gehen(P: TPoint);
begin
Aim := P;
AnimLoop := true;
if (p.x > X) and (p.Y > Y) then // Südost
begin
AnimActive := true;
AnimStart := 40;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Vasco da Gama,
15. Aug 2009
Punkt 4 ist erledigt, kleiner Fehler von mir...
Aber das andere, besonders 1 und 2 bekomm ich im Moment einfach nicht hin.
Edit: fürs zweite der Quellcode:
procedure TEinheit.Gehen(P: TPoint);
begin
if (P.X > X) then
begin
AnimActive := true;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Vasco da Gama,
11. Aug 2009
Hi, im Anhang ist mein komplettes Projekt, also bitte nicht irgendwie verarbeiten. ;)
Ich habe dabei einige Probleme:
Vollbild wird bei Form2 nicht aktiviert.
Der Junge auf Form2 läuft nur nach rechts, nicht nach links(das haus sollte er eigentlich ignorieren...)
Und wie schaff ichs überhaupt, dass der junge aufhört zu rennen, wenn er angekommen ist?