.
Пишем компьютерную игру на Delphi. Урок 8. Изучаем TDXDraw. Продолжение.
Автор megabax   
15.06.2011 г.
New Page 2

Пишем компьютерную игру на Delphi. Урок 8. Изучаем TDXDraw. Продолжение.

Исходники к уроку можно скачать здесь.

А теперь пример, который мы делали на прошлом уроке, попробуем сделать в бесплатной версии Turbo Delphi. Тут мы компоненты подключить не сможем, так что придется во первых, объявить ссылку на TDXDraw вручную:

  TfrmDDDemo = class(TForm)

    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

    procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

    DXDraw:TDXDraw;

  end;

А во вторых, надо в обработчике OnCreate формы создать и подключить компонент TDXDraw:

procedure TfrmDDDemo.FormCreate(Sender: TObject);

begin

  DXDraw:=TDXDraw.Create(self);

  DXDraw.Parent:=self;

  DXDraw.Align:=alClient;

end;

А вот обработчик события OnKeyDown у нас остается прежним:

procedure TfrmDirectX.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);

begin

{ Завершаем работу приложения }

if Key=VK_ESCAPE then Close;

 

{ Изменяем режим - экранный/полноэкранный - ALT+ENTER }

if (ssAlt in Shift) and (Key=VK_RETURN) then

  begin 

   DXDraw.Finalize;

   if doFullScreen in DXDraw.Options then

      begin

        DXDraw.Cursor := crDefault;

        BorderStyle := bsSizeable;

        DXDraw.Options := DXDraw.Options - [doFullScreen];

       end else begin

         DXDraw.Cursor := crNone;

         BorderStyle := bsNone;

         DXDraw.Options := DXDraw.Options + [doFullScreen];

       end;

   DXDraw.Initialize;

  end;

end;

Все, запускаем программу и тестируем ее. Как видим, в Runtime режиме DelphiX тоже прекрасно работает, хотя требует и  некоторых "извращений".

Исходники к уроку можно скачать здесь

Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями   программного продукта "Delphi", авторское право на который принадлежит Borland Delphi.. 

 

 
Последнее обновление ( 06.11.2011 г. )