Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Free Pascal, Pascal ABC и другие _ Рисуем в Windows

Автор: Bokul 29.01.2007 5:56

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

Автор: Archon 29.01.2007 7:07

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

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

Теперь можно рисовать (прямоугольник например):
   Rectangle (dc, 100, 100, 200, 150);

И не забудь освободить память:
   DeleteDC (dc);

Автор: Bokul 29.01.2007 7:14

Спасибо! good.gif http://msdn2.microsoft.com/en-us/library/ms533209.aspx оно?

Автор: Archon 29.01.2007 7:35

Точно!