Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Пишем компьютерную игру на Delphi arrow Пишем компьютерную игру на Delphi. Урок 8. Изучаем TDXDraw. Продолжение.
30.11.2021 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Пишем компьютерную игру на Delphi. Урок 8. Изучаем TDXDraw. Продолжение. Печать E-mail
Автор 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 г. )
 
« След.   Пред. »
 
© 2021 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги