cześć..dlaczego mi to nie działa ?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DXDraws, StdCtrls, DXClass, DXInput, DIB, ExtCtrls;
type
TForm1 = class(TForm)
DXDraw: TDXDraw;
Images: TDXImageList;
DXTimer1: TDXTimer;
DXInput: TDXInput;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dxdraw.finalize;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dxdraw.initialize;
if not DXDraw.CanDraw then
begin
MessageBox(Handle, 'DXError', 'Blad inicjacjiDirectX', 0);
Close;
end;
end;
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
dxdraw.Surface.Fill(clblack);
Images.Items[0].Drawrotate(dxdraw.surface, 100, 100 , 150,200,0,0.5,0.5,20);
DXDraw.Surface.Canvas.Release;
DXDraw.Flip;
end;
end.
Pracuję w delphi 6 personal..delphiX też mam zainstalowane:D
-- !! POZDRAWIAM !!
!! Zmienilem nick z poczotkujocy na Gilbert !!
!! Bo tamtet mial niedozwolone znaki !! :-)
!! Czy kiedys wam doruwnam ? !!
!! na pewno nie :(:) !!