DelphiX: Загрузка и вывод спрайтов

Источник: delphidevelop

Борисов Сергей

Итак, научимся загружать и выводить спрайты на экран. Спрайты, проще говоря, это обычные картинки. Например, анимация идущего человека состоит из нескольких кадров, вот каждый кадр это и есть спрайт.

Приступим. Для начала выложим на форму все необходимые компоненты: TDXTimer, TDXImageList иTDXDraw. Названия компонентов изменять не будем. TDXTimer - это таймер. Нужен он для того, чтобы экран обновлялся. TDXImageList это коллекция загруженных спрайтов. А на TDXDraw будет вся выводимая графика отображаться.

Создайте событие onInitialize у DXDraw1:

procedure TForm1.DXDraw1Initialize(Sender: TObject);
begin
  {тут будут загружаться спрайты}  DxImageList1.Items.MakeColorTable;
  DXDraw1.ColorTable:=DxImageList1.Items.ColorTable;
  DXDraw1.DefColorTable:=DxImageList1.Items.ColorTable;
  DXDraw1.Cursor:=CrNone;
  DXTimer1.Enabled:=True;
end;

Теперь создайте событие onFinalize у того же компонента:

procedure TForm1.DXDraw1Finalize(Sender: TObject);
begin
  DXTimer1.Enabled:=False;
  DXImageList1.Free;
end;

Теперь необходимо связать между собой DXImageList1 и DXDraw1. Для этого у DXImageList1 свойствоDXDraw устанавливаем в DXDraw1.

Дальше реализуем процедуры загрузки спрайтов и их вывода на экран.

Procedure TForm1.LoadSprite(Var DXList: TDXImageList;  Name: String;
   TransparentIMG: boolean);
Begin
  DXList.Items.Add;
  if TransparentIMG then 
    DXList.Items[DXList.Items.Count-1].TransparentColor:=ClLime;  DXList.Items[DXList.Items.Count-1].Picture.LoadFromFile(Name);
End;

Разберемся со входными параметрами процедуры. DXList - указание в какой TDXImageList будет загружаться спрайт. Name - путь к файлу. TransparentIMG - будет ли использоваться прозрачный спрайт. Если да то весь полностью зеленый цвет не будет виден.

Далее реализуем загрузку части картинки. Зачем это нужно? Например, существует анимация, но все кадры расположены в одном файле. Каждый следующий кадр правее предыдущего. Т.к. все кадры одного размера, то их можно загрузить в цикле. Это намного удобнее.

Procedure TForm1.LoadSpritePos(Var DXList : TDXImageList; Name : String;
   X1,Y1,X2,Y2: integer; TransparentIMG : boolean);
Var BmLoad, BmPos : TBitMap;
Begin
  BmLoad:=TBitMap.Create;
  BmPos:=TBitMap.Create;
  BmPos.Canvas.Create;  BmPos.Width:=x2-x1; BmPos.Height:=y2-y1;
  BmLoad.LoadFromFile(Name);
  BmPos.Canvas.CopyRect(Rect(0,0,x2-x1,y2-y1),BmLoad.Canvas,Rect(X1,Y1,X2,Y2));  DXList.Items.Add;  If TransparentIMG then DXList.Items[DXList.Items.Count-1].TransparentColor:=ClLime;
  DXList.Items[DXList.Items.Count-1].Picture.Bitmap:=BmPos;
End;

С загрузкой разобрались, теперь реализуем процедуру вывода:

Procedure TForm1.PutImage(DXList : TDXImageList;  X, Y, X2, Y2, Index : Integer);
Begin
  DXList.Items[Index].StretchDraw(DXDraw1.Surface, Rect(X, Y, X+X2, Y+Y2), 0);
End;

Index - номер выводимого спрайта в DXImageList1.

Теперь во время инициализации нужно загрузить спрайты. В процедуре DXDraw1Initialize вместо ремарки "тут будут загружаться спрайты" вставим:

LoadSprite(DXImageList1,'Images\FONE.JPG',False);
LoadSprite(DXImageList1,'Images\mouse.bmp', True);

Так как файлов не существует, то будет происходить ошибка. Разместите эти файлы [288 кб] в папке Images.

Загрузили. Осталось только вывести. Создайте событие onTimer у DXTimer1:

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  if not DXDraw1.CanDraw then exit;
  DXDraw1.Surface.Fill(0);  PutImage(DxImageList1, 0, 0, DXDraw1.Display.Width, DXDraw1.Display.Height, 0);
  PutImage(DxImageList1,  Xm, Ym, 32, 32,1);  // Вывод FPS
  with DXDraw1.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Font.Color := clWhite;
    Font.Size := 12;
    Textout(0, 0, 'FPS: '+inttostr(DXTimer1.FrameRate));
    Release;
  end;
  DXDraw1.Flip;
end;

Переменные Xm и Ym нужно объявить глобальными. И создать событие onMouseMove у DXDraw1. Там пишем:

Xm:=X;
Ym:=Y;

Осталось только настроить разрешение. У компонента DXDraw1 измените свойство Display как вам нужно.

Вот и все. Все остальное дело Вашей фантазии. Скачать исходник [295 кб]

LangMF 7.0 (download).

Компания Borland приобретает компанию Segue Software, поставщика решений для проверки качества программного обеспечения.

Создание почтового клиента в Delphi 7 (исходники).

Сообщения Windows и их обработка (исходники).

Ресурсы. Зачем они нужны (исходники).

Главная » Delphi