Помощь - Поиск - Пользователи - Календарь
Полная версия: Рисуем в Windows
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Free Pascal, Pascal ABC и другие
Bokul
Как можно сделать что-то наподобие Paint-a. Т.е. как можно рисовать какие-то примитивы в оконном режиме? Если для этого WinApi?
Archon
Конечно! Только сперва надо получить ссылку на контекст устройства.
Пример (Handle - ссылка на окно; dc - на контекст устройства):
var
dc : hdc;
...
dc := GetDC (Handle);

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

И не забудь освободить память:
   DeleteDC (dc);
Bokul
Спасибо! good.gif Это оно?
Archon
Точно!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.