Рисуем в Windows, Fpc Опции

[Bokul]

Как можно сделать что-то наподобие Paint-a. Т.е. как можно рисовать какие-то примитивы в оконном режиме? Если для этого WinApi?

[Archon]

Конечно! Только сперва надо получить ссылку на контекст устройства.
Пример (Handle - ссылка на окно; dc - на контекст устройства):

var
   dc : hdc;
...
   dc := GetDC (Handle);

Теперь можно рисовать (прямоугольник например):

   Rectangle (dc, 100, 100, 200, 150);

И не забудь освободить память:

   DeleteDC (dc);

Сообщение отредактировано: Archon - 29.01.2007 3:15

[Bokul]

Спасибо! Это оно?

[Archon]

Точно!