Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите, люди добрые, с графикой под DelphiX! [D5, Win95/98]

killsniper © (2003-09-22 05:50:00)

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

Mihey (2003-11-04 21:36:00) [1]

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

killsniper (2003-11-04 19:55:00) [2]

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

Mihey (2003-11-02 22:03:00) [3]

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

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

killsniper (2003-11-02 19:28:00) [4]

Всё перепробовал - бесполезно!
Текст программы целиком:
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-09-22 19:24:00) [5]

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

pasha_676 (2003-09-22 10:38:00) [6]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »