Hi!
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:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| 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:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| 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:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| 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:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| 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:
Quelltext
1:
| Spielfeld.AddPlayer(DXSpriteEngine1.Engine, 'red'); |
im konstruktor von meiner mainform, hab ich die bilder, die ich brauche alle geladen und benannt - die existieren also.. sieht so aus:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
|
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'; |
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ß,
Mike_C
