вторник, 8 февраля 2011 г.

Наконец-то дошли руки до модуля, создающего окошко и управляющего получением сообщений. Видимо туда же перекочует и таймер. Пока в зачаточном состоянии, однако уже результат налицо. Минимальное приложение рисующее прямоугольничек на черном фоне и создающее лог выглядит так:

program Project1;

uses
  Windows, QuadWindow, QuadRender, QuadLog;

var
  qr : TQuadRender;
  ql : TQuadLog;

procedure Main;
begin
  qr.BeginRender;
  qr.Clear(0);
  qr.Rectangle(0, 0, 10, 10, Random($FFFFFFFF));
  qr.EndRender;
end;

begin
  CreateWindow;

  ql := TQuadLog.Create;

  qr := TQuadRender.Create;
  qr.Initialize(h_Wnd, 640, 480, ql);

  OnIdle := Main;
  EnterMainCycle;
end.



Ехе файл при этом 60Кб. Вполне доволен результатом. Оу... забыл. Добавил дополнительные поля в лог при инициализации. Теперь движок "знает" о аспекте, количестве и разрешении мониторов в системе.

Комментариев нет:

Отправить комментарий