Dynamisches Sprite in DelphiX

[ghostdawg]

Mein Gegenstand

Delphi-Quellcode:

  TGegenstand = class(TImageSprite)
    public
      procedure DoMove(MoveCount: Integer); override;
      constructor Create(AParent: TSprite); override;
    end;

Globale Vars:
prz:Integer;
Gegenstand:TGegenstand;

wird ja leider nur einmal erstellt:

Delphi-Quellcode:

constructor TGegenstand.Create(AParent: TSprite);
begin
  inherited Create(AParent);
  Image := Form1.DXImageList1.Items[prz];
  Width := Image.Width;
  Height := Image.Height;
  Visible := True;
end;

und bewegt:

Delphi-Quellcode:

DXSpriteEngine1.Move(1);
DXDraw1.Surface.Fill(0);
DXSpriteEngine1.Draw;
DxDraw1.Flip;

Nun möchte ich aber mit prz (das man im navi-menü bestimmen kann) die grafik des gegenstands verändern können. Wie kann ich nach einer Veränderung eine Aktualisierung hervorrufen? Kann ich den Constructor (hab von constructor keine ahnung, ich spiele heute zum ersten mal mit delphix rum) nochmal aufrufen? Wenn ja wie!

Frohes neues, und guten Rutsch!
ghostdog

[Die Muhkuh]

Hmm,

versuche doch eine neue Methode zu machen:

Delphi-Quellcode:

TGegenstand = class(TImageSprite)
    public
      procedure DoMove(MoveCount: Integer); override;
      constructor Create(AParent: TSprite); override;

      procedure ChangeImage(Index: Integer);
    end;


procedure TGegenstand.ChangeImage(Index: Integer);
begin
  Image := Image := Form1.DXImageList1.Items[prz];
  Width := Image.Width;
  Height := Image.Height;
end;

[ghostdawg]

Wie rufe ich diese Prozedur/Methode dann auf? Ich habe alles mögliche versucht:

ChangeImage;
ChangeImage();
ChangeImage(1);
TGegenstand.ChangeImage;
ChangeImage(Index);

:/ :gruebel:

[JocalAreaNetwork]

Wenn deine Variable Gegenstand heißt, dann müsste es doch einfach nur das sein:

Gegenstand.ChangeImage(hier_dein_index)

Vorausgesetzt ist natürlich, dass der constructor bereits aufgerufen worden ist.

[ghostdawg]

Schade, war wohl zu einfach um zu funzen. Wär perfekt gewesen:

Im Projekt Project1.exe ist eine Exception der KLasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 0043CA76 in Modul 'Project1.exe' Schreiben von Adresse 0000000054'. Prozeß wurde angehalten. Fortfahren mit Einzelschritt oder Start.

Nach Fortfahren mit Start sagt er:
Zugriffsverletzung bei Adresse 0043CA76 in Module 'Project1.exe' Schreiben von Adresse 000000054.

[ghostdawg]

Keiner hier der mich mit DelphiX auskennt?

[Die Muhkuh]

Hi,

zeig nochmal deinen kompletten Code (bzw. nur die relevanten Stellen).

[Oxmyx]

Das hat nichts mit DelphiX zu tun, wenn du beim Aufruf von
Image := Form1.DXImageList1.Items[prz];
eine Zugriffsverletzung bekommst, liegt das zu 99% daran, dass du versuchst auf ein Bild zuzugreifen, dass es gar nicht in dieser ImageList gibt. Denk dran dass ein Computer meistens bei 0 zu zählen beginnt, d.h. wenn du in deiner ImageList beispielsweise 8 Bilder drin hast, gehen die möglichen Indizes von 0-7.

[ghostdawg]

Dann sinds hier die 1%. Prz konnte nur von 2-5 festgelegt werden und ich habe acht bilder drin gehabt. Habs jetzt anders gemacht und ein Objekt statt Sprite definiert, was als normales Bild gehandelt wird. Habe gehört, das alte DelphiX, was ich benutzen muss, macht da gerne Probleme.