Текущий архив: 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.019 c