Пишем компьютерную игру на Delphi. Урок 7. Изучаем TDXDraw.
Исходники к уроку можно скачать здесь.
Сегодня мы будем изучать TDXDraw более углубленно.
И так, начинаем новый проект. Кладем на форму компонент TDXDraw*:
Свойство Align у этого компонента ставим alClinet, дабы растянуть его по всей форме*:
У формы пишем вот такой обработчик события 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; |
Если мы запустим эту программу, то увидим вот такой вот черный прямоугольник:
при нажатии Alt+Enter программа перейдет в полноэкранный режим, при повторном нажатии обратно в оконный. при нажатии ESC программа завершит работу.
За режим экрана ответственна опция doFullScrin свойства Options*:
Если ее поставить в true, то программа сразу запуститься в полноэкранном режиме. Правда, слегка кривовато - вы увидите в полноэкранном режиме рамку окна. Что бы ее убрать, установите свойство формы BorderStyle в bsNone.
Исходники к уроку можно скачать здесь
Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями программного продукта "Delphi", авторское право на который принадлежит Borland Delphi..