OnFormCreate DXDraw geht nicht

[cylon]

Hi,
ich hab hier ne einfaches programm geproggt, das mir in DXDraw nen bild ausgibt. Ich habs auch mit der DXImageList und sowas kombiniert aber es geht nur beim

Delphi-Quellcode:

OnClick

aber beim

Delphi-Quellcode:

OnFormCreate

gehts nich...
Hier mal der Code:

Delphi-Quellcode:

procedure TFormZero.FormCreate(Sender: TObject);
begin
 if not DXDrawGround.CanDraw then
  Exit;
 DXImageListStart.Items[0].draw(DXDrawGround.Surface, 0, 0, 0);
 DXDrawGround.Flip;
end;

bzw.

Delphi-Quellcode:

procedure TFormZero.DXDrawGroundClick(Sender: TObject);
begin
 if not DXDrawGround.CanDraw then
  Exit;
 DXImageListStart.Items[0].draw(DXDrawGround.Surface, 0, 0, 0);
 DXDrawGround.Flip;
end;

[logaan]

Ich denke mal, dass liegt daran, dass das Bild bei der FormCreate nur einmal angezeigt angewerden oder so...

Da du den DXTimer warscheinlich hinterher sowieso benötigst, schlage ich vor, du setzt einfach einen DXTimer mit nem Interval von 0 in deine Form und schreibst den Code zum anzeigen in die OnTimer Function.

cya
logaan

[cylon]

mit diesen beiden proceduren:

Delphi-Quellcode:

procedure TFormZero.FormCreate(Sender: TObject);
begin
 if not DXDrawGround.CanDraw then
  Exit;
 DXImageListStart.Items[0].draw(DXDrawGround.Surface, 0, 0, 0);
 DXDrawGround.Flip;
end;

procedure TFormZero.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
 if not DXDrawGround.CanDraw then
  Exit;
 DXImageListStart.Items[0].draw(DXDrawGround.Surface, 0, 0, 0);
 DXDrawGround.Flip;
end;

komm ich genauso weit, wie mit der OnClick-Variante...
:wall:

[logaan]

also vom Code her ist eigentlich alles richtig... dann scheint bei dir in der DXDraw oder DXImageList was nich zu stimmen... schau ma nach ;)