DelphiX funktioniert nicht mehr!

[fes]

Ich habe mir DelphiX für mein Delphi 5 Standard Edition heruntergeladen.
Ich möchte ganz einfach ein Bild auf der DXDraw anzeigen, und zwar so:

Delphi-Quellcode:

procedure TForm1.DXDraw1Click(Sender: TObject);
begin
  if not DXDraw1.CanDraw then
    Exit;
  DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);
  DXDraw1.Flip;
end;

leider kann ich soviel auf der DXDraw rumklicken wie ich will, kein Bild erscheint.

Also bitte, wenn jemand einen Verdacht hat, warum mein DXDraw nicht zeichnet, bitte sagt bescheid.

Vielen Dank

fes

[Christian Seehase]

Moin fes,

hast Du denn mal kontrolliert, ob die Draw Zeile überhaupt erreicht wird?

[fes]

Zitat:

Zitat von Christian Seehase

Moin fes,

hast Du denn mal kontrolliert, ob die Draw Zeile überhaupt erreicht wird?

Kannst du das ein bisschen genauer beschreiben, ich versteh nicht genau, was du meinst. :wiejetzt: :wiejetzt: :wiejetzt:

[Christian Seehase]

Moin fes,

wenn in dieser Zeile

Delphi-Quellcode:

  if not DXDraw1.CanDraw then Exit;

die Bedingung zutrifft, werden die folgenden nicht ausgeführt.
Also solltes Du mal einen Breakpoint auf

Delphi-Quellcode:

  DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);

setzen, und schauen, ob das Programm diese Zeile überhaupt erreicht.

[fes]

ich habe es mit folgendem code getestet:

Delphi-Quellcode:

procedure TForm1.DXDraw1Click(Sender: TObject);
begin
  if not DXDraw1.CanDraw then
    Exit;
  DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);
  DXDraw1.Flip;
close;
end;

Das Programm wurde geschlossen, d.h. es kommt bis zum

Delphi-Quellcode:

  DXImageList1.Items[0].draw(DXDraw1.Surface, 0, 0, 0);
  DXDraw1.Flip;

Noch ne Idee?