Delphi: как рисовать на рабочем столе?
Вообще, рисовать на рабочем столе компьютера очень просто. Достаточно знать несколько функций WinAPI и уметь и ними работать.
Алгоритм рисования состоит из следующих шагов:
получение указателя рабочего стола
сохранение указателей на текущий карандаш и кисть (pen и brush)
создание нового карандаша и кисти
сам процесс рисования (функции рисования графических примитивов: точек, линий, эллипсов, прямоугольников)
освобождение указателей на созданный карандаш и кисть
восстановление текущих указателей карандаша и кисти рабочего стола
освобождение указателя на рабочий стол
Если предполагается работа со шрифтами, то, аналогично карандашу и кисти, текущий шрифт нужно сохранить и создать новый, а по завершению работы - восстановить старый шрифт рабочего стола.
Код на Delphi 5 в терминах WinAPI будет выглядеть следующим образом:
program demo;
uses
Windows;
var
ScreenDC: hDC; // указатель на канву рабочего стола
BrushHandle, OldBrushHandle: HBRUSH; // указатели на объекты типа КИСТЬ
PenHandle, OldPenHandle: HPEN; // указатели на объекты типа КАРАНДАШ
begin
ScreenDC := GetDC(0); {получаем контекст экрана (рабочего стола)}
// создаем новые карандаш и кисть
PenHandle := CreatePen(PS_SOLID, 1, clRed);
OldPenHandle := SelectObject(ScreenDC, PenHandle);
BrushHandle := CreateSolidBrush(clRed);
OldBrushHandle := SelectObject(ScreenDC, BrushHandle);
{
рисуем на рабочем столе
....
....
}
// освобождаем память от созданного карандаша и кисти
SelectObject(ScreenDC, OldBrushHandle);
DeleteObject(BrushHandle);
SelectObject(ScreenDC, OldPenHandle);
DeleteObject(PenHandle);
// освобождаем память от указателя на рабочий стол
ReleaseDC(0,ScreenDC);
end.
Примечание: подобрый алгоритм рисования на рабочем столе активно используется в программе для создания виртуальных поздравительных открыток.
Вопросы как рисовать на рабочем столе или какие API функции использовать для рисования на экране были рассмотрены в этой статье.
Delphi — это объектно-ориентированный язык программирования со строгой типизацией переменных. Он используется в основном для написания прикладных, пользовательских программ. Простота использования позволяет рекомендовать его в качестве языка для начального обучения программированию. Хотя, если смотреть на перспективу, работодатели мало интересуются работниками, программирующими на Delphi.
Интересные материалы на сайте:
Набор алгоритмов, позволяющих определить кодировку входной информации и преобразованию ее в читабельный вид.
Как с помощью простых алгоритмов определить цифры на картинке. Рассматривается пример с индексом цитирования от Яндекс.
Для увлекающихся текстовыми играми будет полезна статья, рассказывающая о методе безболезненного вывода текстовой информации на экран.
Для того, чтобы определить, нужно ли как-то обрабатывать файл, необходимо знать, какой у него тип.
