Наконец-то дошли руки до модуля, создающего окошко и управляющего получением сообщений. Видимо туда же перекочует и таймер. Пока в зачаточном состоянии, однако уже результат налицо. Минимальное приложение рисующее прямоугольничек на черном фоне и создающее лог выглядит так:
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Кб. Вполне доволен результатом. Оу... забыл. Добавил дополнительные поля в лог при инициализации. Теперь движок "знает" о аспекте, количестве и разрешении мониторов в системе.
Комментариев нет:
Отправить комментарий