Помогите, люди добрые, с графикой под DelphiX!

← →
killsniper (2003-09-22 05:50) [0]

Написал такой код: в обработчике OnTimer:
if not DXDraw1.CanDraw then exit;
DXDraw1.Surface.Fill(0);
DXImageList1.Items[0].Draw(DXDraw1.Surface,200,150,0);
DXDraw1.Flip;
При запуске форму заливает чёрным цветом - и всё!
Что делать?

← →
pasha_676 © (2003-09-22 10:38) [1]

> При запуске форму заливает чёрным цветом - и всё!
> Что делать?

Покрути настройки опций в DXDraw.

← →
Mihey © (2003-09-22 19:24) [2]

У меня когда такое было, то это означало, что я не поставил свойство DXDraw в TDXImageList.

← →
killsniper © (2003-11-02 19:28) [3]

Всё перепробовал - бесполезно!
Текст программы целиком:
unit DX;

interface

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

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

var
Form1: TForm1;
X,Y:Integer;

implementation

{$R *.dfm}

procedure TForm1.DXDrawInitialize(Sender: TObject);
begin
X:=Width div 2;
Y:=Height div 2;
DXTimer1.Enabled:=true;
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
DXImageList1.Items[0].Draw( DXDraw.Surface, X, Y, 0 );
DXDraw.Flip;
end;

procedure TForm1.DXDrawFinalize(Sender: TObject);
begin
DXTimer1.Enabled:=False;
end;

end.
Моя машина: Celeron 433/256Mb RAM/Nvidia Riva TNT2 Vanta 16Mb/Mb Acorp Драйвер видюхи - Nvidia Detonator.

← →
Mihey © (2003-11-02 22:03) [4]

А стандартные примеры у тебя работают?

P.S.: А свойство DXDraw в TDXImageList точно поставил????

Поставил. А где взять и какие примеры?

Примеры в стандартном пакете поставки есть. Там, куда ты установил DelphiX. А ещё лучше, перешли мне на mihey77@hotmail.com свой код.

Помогите, люди добрые, с графикой под DelphiX! Найти похожие ветки