Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Помогите, люди добрые, с графикой под 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 точно поставил????


 
killsniper ©   (2003-11-04 19:55) [5]

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


 
Mihey ©   (2003-11-04 21:36) [6]

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



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
3-12299
Relaxxx
2004-02-09 14:23
2004.03.05
Возможно ли как-то связать два датаСета и отображать их...


8-12459
Сергей Резников
2003-11-04 11:55
2004.03.05
TTrackBar


7-12560
XHunter
2003-10-29 21:31
2004.03.05
Шифрация/Дешифрация файлов


1-12371
Ivolg
2004-02-25 11:42
2004.03.05
Компоненты


1-12393
denik
2004-02-24 19:51
2004.03.05
Как програмно развернуть ComboBox в LookUp поле ?