AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Andorra 2D --- zwei Variablen und ein AdDraw
Thema durchsuchen
Ansicht
Themen-Optionen

Andorra 2D --- zwei Variablen und ein AdDraw

Ein Thema von Looper · begonnen am 12. Jun 2008 · letzter Beitrag vom 13. Jun 2008
 
Looper

Registriert seit: 28. Sep 2007
Ort: Hamburg
131 Beiträge
 
Delphi XE2 Professional
 
#3

Re: Andorra 2D --- zwei Variablen und ein AdDraw

  Alt 13. Jun 2008, 12:50
Dann habe ich keine Ahnung wieso das nicht funktioniert, wie ich will.

Ich habe meine MainUnit wo ich das AdDraw erzeuge und wo in einem Timer immer AdDraw.Flip aufrufe.
Dann habe ich einen eigenen Typ definiert:
Delphi-Quellcode:
type
  TSpieler = class
  private
    FX, FY, FWinkel : Double;
    FFarbe : TAndorraColor;
    FAdDraw : TAdDraw;
    FBreite : Double;
    FVisible : Boolean;
  public
    Name : String;
    constructor Create (AdDraw : TAdDraw);
    destructor Destroy; override;
    procedure forwd (Pixel : Integer);
    procedure left (Grad : Integer);
    procedure right(Grad : Integer);
    function GetPosition : TAdPoint;
    property X: Double read FX write FX;
    property Y: Double read FY write FY;
    property Winkel : Double read FWinkel write FWinkel;
    property Farbe : TAndorraColor read FFarbe write FFarbe;
    property Breite : Double read FBreite write FBreite;
    property Visible : Boolean read FVisible write FVisible;
  end;
Und die Prozedur forwd sieht wiefolgt aus:
Delphi-Quellcode:
procedure TSpieler.forwd(Pixel : Integer);
begin
  FX := FX + Pixel * cos(pi * (90.0 + Winkel)/ 180.0);
  FY := FY - Pixel * sin(pi * (90.0 + Winkel)/ 180.0);
  if FVisible then begin
    FAdDraw.BeginScene;
    with FAdDraw.Canvas do begin
      Pen.Color := FFarbe; //Ad_ARGB(100,100,100,100)
      Brush.Color := FFarbe; //Ad_ARGB(100,100,100,100)
      Pen.Width := FBreite; //FBreite = 1
      FAdDraw.Canvas.LineTo(round(FX),round(FY));
      Release;
    end;
    FAdDraw.EndScene;
    FAdDraw.Flip;
  end;
end;
In dem Timer steht nun nur:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Sp.forwd(1);
  Caption := IntToStr(Sp.GetPosition.X) + '|' + IntToStr(Sp.GetPosition.Y);
  AdDraw.Flip;
end;
An der Caption kann ich erkennen, dass die Positionen sich richtig verändern, nur es wird halt nichts gezeichnet und ich weiß einfach nicht wieso. Weiß vielleicht von euch jemand wo mein Fehler liegt?

mfg Looper
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz