Форум: "Media";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизПомогите, люди добрые, с графикой под 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 вся ветка
Форум: "Media";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c