Probleme beim Sprites zeichnen...

**MichaelK**

Hi!

Bin neu hier und hab noch nicht viel erfahrung mit DelphiX

Folgendes Problem: ich will ein Spiel ähnlich Monopoly schreiben. um schön objekt-orietiert zu bleiben hab ich mir ein paar klassen angelegt, darunter eine für das spielfeld und eine für die spielfiguren. die spielfeldklasse soll später dafür verantwortlich sein, die spielfiguren und andere grafiken zu laden, zu zeichnen, zu bewegen.

Meine spielfeldklasse sieht etwa so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			TSpielfeld = class (TObject)

  protected

    fDXDraw: TDXDraw;

    fDXImageList: TDXImageList;

    fPlayerRed, fPlayerGreen, fPlayerBlue, fPlayerYellow, fActPlayer: TSpieler;

  public

    constructor Create; virtual;

    destructor Destroy; override;

    procedure Initialize;

    procedure Draw;

    procedure ConnectToDelphiX (DXImageList: TDXImageList; DXDraw: TDXDraw);

    procedure AddPlayer(Sprite: TSprite; color: string);

  published

  end;

die Prozedur ConnectTODelphiX setzt Referenzen zu den Komponenten TDXIMAGELIST und TDXDRAW, damit sie in der Klasse verwendet werden können und nicht immer auf die Application.MainForm zugegriffen werden muss.

Die Klasse für die Spielfiguren sieht so aus:

markieren

Delphi-Quellcode:

			TSpieler = class (TImageSprite)

  protected

    fColor: string;

  public

    procedure DoMove(MoveCount: Integer); override;

    constructor Create(AParent: TSprite ); override;

    constructor CreateColored(Aparent: TSprite; DXImageList: TDXImageList; color:string='red');

  published

    property Color: string read fColor;

  end;

Sie hat 2 KOnstruktoren, damit man die Spielfigur abhängig von der Farbe erstellen kann. Dazu die Konstruktoren:

zusammenfalten · markieren

Delphi-Quellcode:

			constructor TSpieler.Create(AParent: TSprite);

begin

  inherited Create(AParent);

end;

constructor TSpieler.CreateColored(Aparent: TSprite; DXImageList: TDXImageList; color:string='red');

begin

  Create(AParent);

  Image:=DXImageList.Items.Find('Player'+Color);

  Width :=Image.Width;

  Height :=Image. Height;

  Visible:=True;

  fColor := Color;

end;

Auf meiner Maiform habe ich /zu Testzwecken) einen Button, der eine rote Spielfigur erstellen soll und zwar über die prozedur TSpielfeld.AddPlayer(Sprite: TSprite; color: string);

die mach nichts anderes als das:

markieren

Delphi-Quellcode:

			procedure TSpielfeld.AddPlayer(Sprite: TSprite; color: string);

begin

  if uppercase(color) = uppercase('red') then

    with fPlayerRed.CreateColored(Sprite, fDXImageList, 'red') do begin

       x := 100;

       y := 100;

    end;

end;

der Aufruf über den Button sieht dann so aus:

Spielfeld.AddPlayer(DXSpriteEngine1.Engine, 'red'); Nun mein eigentliches Problem....
bei diesen Konstrukten, bekomme ich eine AccessViolation, wenn ich auf den button klicke. Mit dem Debugger komme ich nicht weiter, weil er ständig an WinProcs und ähnlichem hängen bleibt (wegen den DelphiX-Units und allen möglichen Fenster-Events...)
Kann mir da jemand behilflich sein?

Gruß,
Michael

.:

goes crazy :.

edit:
hab noch was vergessen:
im konstruktor von meiner mainform, hab ich die bilder, die ich brauche alle geladen und benannt - die existieren also.. sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			DXImageList1.Items.Add;

  DXImageList1.Items[0].Picture.LoadFromFile('Graphic\Spielfeld.bmp');

  DXImageList1.Items[0].Name := 'Spielfeld';

  DXImageList1.Items.Add;

  DXImageList1.Items[1].Picture.LoadFromFile('Graphic\manred.bmp');

  DXImageList1.Items[1].Name := 'PlayerRed';

  DXImageList1.Items.Add;

  DXImageList1.Items[2].Picture.LoadFromFile('Graphic\mangreen.bmp');

  DXImageList1.Items[2].Name := 'PlayerGreen';

  DXImageList1.Items.Add;

  DXImageList1.Items[3].Picture.LoadFromFile('Graphic\manblue.bmp');

  DXImageList1.Items[3].Name := 'PlayerBlue';

  DXImageList1.Items.Add;

  DXImageList1.Items[4].Picture.LoadFromFile('Graphic\manyellow.bmp');

  DXImageList1.Items[4].Name := 'PlayerYellow';

sorry, wenns etwas lange geworden ist, aber das problem ist auch nicht ganz leicht zu erklären - code war geschickter...

[edit=Daniel B]Viele, viele Delphi-Tags eingefügt. MfG Daniel B.[/edit]

Probleme beim Sprites zeichnen...

Probleme beim Sprites zeichnen...

Forumregeln