Пишем компьютерную игру на 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..

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

Пред. »

Вернуться