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

Вниз

DXInput   Найти похожие ветки 

 
Agent[007] ©   (2003-05-06 16:14) [0]

Как им пользоваться?

2.
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
var
br,m :TImageSprite;
q,w : Integer;
begin
if Map[GBN(MX),GBN(MY+1)]=0 then if Map[GBN(MX+31),GBN(MY+1)]=0 then if Map[GBN(MX+16),GBN(MY+1)]=0 then MY:=MY+2;
DXDraw1.Surface.Fill(0);
DXDraw1.Flip;
br:=TImageSprite.Create(DXSpriteEngine1.Engine);
br.Image:=DXImageList1.Items.Find("brick");
br.Width:=br.Image.Width;
br.Height:=br.Image.Height;
m.Image:=DXImageList1.Items.Find("model");
for q:=0 to 39 do for w:=0 to 29 do if Map[q,w]=1 then begin
br.X:=q*16;
br.Y:=w*16;
DXSpriteEngine1.Draw;
end;
m:=TImageSprite.Create(DXSpriteEngine1.Engine);
m.Image:=DXImageList1.Items.Find("model");
m.X:=MX;
m.Y:=MY-47;
m.Height:=m.Image.Height;
m.Width:=m.Image.Width;
DXSpriteEngine1.Draw;
DXDraw1.Flip;
br.Destroy;
m.Destroy;
end;

Как избежать мигания от DXDraw1.Surface.Fill(0); ?


 
pasha676   (2003-05-06 17:07) [1]

А на хрена два раза Flip? Залил, нарисовал спрайты потом флипнул (один раз в конце).

Насчет директинпута в дельфиХ есть пример. Его смотри.



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

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

Наверх




Память: 0.46 MB
Время: 0.018 c
1-83445
ренат
2003-05-14 19:48
2003.05.26
Генерация последовательности случайных чисел


14-83707
maksimenkon
2003-05-06 13:07
2003.05.26
Создание инсталяции


14-83676
zhenya
2003-05-04 20:39
2003.05.26
Как удолить файл с неизвестным расшерением?


8-83614
imbicil
2003-02-11 12:59
2003.05.26
Линия связывающия два объекта


14-83735
vopros
2003-05-07 13:28
2003.05.26
разработка закончиться когда-нибудь?