Einzelnen Beitrag anzeigen

Tortus

Registriert seit: 15. Nov 2003
Ort: Gescher
47 Beiträge
 
Delphi 7 Enterprise
 
#1

Bild in nem DXDraw anzeigen nicht möglich

  Alt 3. Jan 2004, 20:19
Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DXDraws, DXClass, StdCtrls;

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    DXTimer1: TDXTimer;
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

end.
Kann mir mal flott einer verraten warum die Suppe nit funzt?!?
Thorsten Lanfer
  Mit Zitat antworten Zitat