Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Игры";
Текущий архив: 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.55 MB
Время: 0.04 c
14-87669
SergeN
2003-02-11 08:05
2003.02.27
Геометрия


3-87338
an
2003-02-08 03:45
2003.02.27
ADO и DBF не воэможно внести изменения в DBF файл


6-87595
gari
2003-01-10 12:15
2003.02.27
Доброго дня господа.


1-87463
BlackTiger
2003-02-18 19:51
2003.02.27
Нужна процедурка (алгоритм) шифрования текста в текст.


1-87493
Xi2
2003-02-15 23:29
2003.02.27
---|Ветка была без названия|---





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский