Пишем компьютерную игру на Delphi. Урок 9. TDXDraw и таймер.
Исходники к уроку можно скачать здесь.
Сегодня мы немного усложним пример, который разобрали на уроке 7 и уроке 8. И так, берем исходники из урока 7. Кидаем на форму компонент TDXTimer:
Описываем у него обработчик события OnTime:
|
procedure
TfrmDirectX.DXTimerTimer(Sender:
TObject;
LagCount:
Integer); begin
if
not
DXDraw.CanDraw
then
exit;
DXDraw.Surface.Fill(0);
//
черный
фон
with
DXDraw.Surface.Canvas
do
begin
Brush.Style
:=
bsClear;
Font.Name
:=
'Arial';
Font.Color
:=
clWhite;
Font.Size
:=
20;
Textout(30,
30,
DateTimeToStr(Now));
Release;
{
нужный
обязательно!
}
end;
DXDraw.Flip; end; |
Теперь наша программа показывает текущие время и дату:
Как видно из примера, TDXDraw имеет свойство Surface, у которого есть так называемая "канва" свойство Canvas, предназначенное для рисования различных геометрических примитивов, вывода текста и картинок.
Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями программного продукта "Delphi", авторское право на который принадлежит Borland Delphi..