Форум: "Игры";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизНе отображается спрайт Найти похожие ветки
← →
greenrul (2002-09-22 03:56) [0]Необходимо вставить в игру вниз "меню", но картинка не появляется. Вот код юнита:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DXClass, DXSprite, DXInput, DXDraws, StdCtrls;
type
TForm1 = class(TDXForm)
DXDraw1: TDXDraw;
DXImageList1: TDXImageList;
DXInput1: TDXInput;
DXSpriteEngine1: TDXSpriteEngine;
DXTimer1: TDXTimer;
procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
TMenuSprite=class(TImageSprite)
protected
procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
end;
procedure TMenuSprite.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
Collision;
end;
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
if not DXDraw1.CanDraw then exit;
DXInput1.Update;
DXSpriteEngine1.Move(LagCount);
DXSpriteEngine1.Dead;
DXDraw1.Surface.Fill(0);
DXSpriteEngine1.Draw;
DXDraw1.Flip;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
I:=true;
with TMenuSprite.Create(Dxspriteengine1.Engine) do
begin
PixelCheck := True;
Image := form1.dxImageList1.Items.Find("menu");
x:=10;
y:=10;
z:=2;
Width := Image.Width;
Height := Image.Height;
end;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_ESCAPE then application.Terminate
end;
end.
P.S. - не подскажете как лучше реализовать меню внизу в программном плане (я пока новичок)
← →
greenrul (2002-09-22 13:29) [1]PLEASE HELP!
← →
Shadow (2002-09-22 16:54) [2]А ты уверен, что DXDraw1.CanDraw=true?
И еще, убери DXDraw1.Surface.Fill(0) и посмотри, что получится.
Страницы: 1 вся ветка
Форум: "Игры";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c