Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Пишем компьютерную игру на Delphi arrow Пишем компьютерную игру на Delphi. Урок 7. Изучаем TDXDraw.
30.11.2021 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Пишем компьютерную игру на Delphi. Урок 7. Изучаем TDXDraw. Печать E-mail
Автор megabax   
17.04.2011 г.
New Page 2

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

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

Сегодня мы будем изучать TDXDraw более углубленно. 

И так, начинаем новый проект. Кладем на форму компонент TDXDraw*:

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

 Свойство Align у этого компонента ставим alClinet, дабы растянуть его по всей форме*:

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

У формы пишем вот такой обработчик события 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;

Если мы запустим эту программу, то увидим вот такой вот черный прямоугольник:

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

при нажатии Alt+Enter программа перейдет в полноэкранный режим, при повторном нажатии обратно в оконный. при нажатии ESC программа завершит работу. 

За режим экрана ответственна опция doFullScrin свойства Options*:

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

Если ее поставить в true, то программа сразу запуститься в полноэкранном режиме. Правда, слегка кривовато - вы увидите в полноэкранном режиме рамку окна. Что бы ее убрать, установите свойство формы BorderStyle в bsNone. 

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


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


 

 

Последнее обновление ( 06.11.2011 г. )
 
« След.   Пред. »
 
© 2021 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги