В сегодняшнем разделе графики я решил познакомить тебя с издевательством над десктопом. Если говорить точнее, мы сегодня научимся на нём рисовать и запоминать его содержимое. Как всегда, я постараюсь всё хорошенечко растолковать и показать. Надеюсь, что тебе понравится сегодняшнее занятие.
Для издевательств нам понадобиться форма с двумя кнопками и одной картинкой. Создай новый проект и поставь на него две пимпы TButton и один штука TImage. Приступим? Для первой кнопки напишем в событии OnClick :
procedure TForm1.Button1Click(Sender: TObject); var ScreenDC:HDC; begin ScreenDC := GetDC(0); Rectangle(ScreenDC, 10, 10, 200, 200); ReleaseDC(0,ScreenDC); end;
С помощью этой процедуры я рисую прямо на десктопе. Во время рисования, мне насрать на все запущенные приложения. Если они попадаются под руку, то рисование происходит поверх них.
Теперь о содержимом. Я объявляю переменную ScreenDC типа HDC. HDC - это контекст рисования в windows, и работает почти так же, как и TCanvas (чуть позже ты увидешь связь). С помощью функции GetDC(0) я возвращаю контекст окна указанного в скобках. Но в этих скобках стоит 0 (ноль), а это значит, что мне нужен глобальный контекст, то есть самого десктопа.
Далее, я вызываю функцию Rectangle, она похожа на ту, что мы использовали раньше TCanvas.Rectangle. Есть только одно отличие - первый параметр теперь, это контекст устройства, а затем идут координаты прямоугольника. Это связано с тем, что раньше мы рисовали через объект TCanvas, а сейчас будем рисовать средствами GDI Windows. Скажу по секрету TCanvas.Rectangle всего лишь вызывает Rectangle из Windows API и подставляет нужный контекст устройства и размеры. Сейчас мы сами сделаем это, без помощь TCanvas.
После рисования, я освобождаю больше не нужный мне контекст через функцию ReleaseDC. Такие вещи обязательно надо освобождать, чтобы не засорять память.
Если ты захочешь рисовать не на десктопе, а внутри определённого окна, то в этой процедуре нужно поправить только первую строчку. А именно, в качестве параметра GetDC передавать указатель на окно. Сразу возникает вопрос: "Как узнать указатель окна чужой проги?". Для этого можно воспользоваться функцией FindWindow (с ней мы уже знакомились в предыдущих номерах).
Сейчас можно запустить прогу и посмотреть на результат, а мы я пока перейду ко второй пимпе. Для неё мы напишем следующий текст:
procedure TForm1.Button2Click(Sender: TObject); var Canvas:TCanvas; ScreenDC:HDC; begin ScreenDC := GetDC(0); Canvas:=TCanvas.Create(); Canvas.Handle:=ScreenDC; Image1.Canvas.Copyrect(Rect(0,0,Image1.Width,Image1.Height), Canvas, Rect(0,0,Screen.Width,Screen.Height)); ReleaseDC(0,ScreenDC); Canvas.Free; end;
Сразу скажу, что здесь я получаю копию десктопа.
Первая строка такая же, как и в предыдущей процедуре. Я точно также получаю контекст десктопа. Потом я создаю новую переменную Canvas типа ТCanvas (знакомый нам контекст рисования). Потом я связываю их между собой с помощью простого присваивания в Canvas.Handle:=ScreenDC. Теперь мой TCanvas указывает на декстоп, и я могу рисовать на нём, привычными нам методами.
Далее, я получаю копию экрана и записываю её в картинку TImage с помощью функции Copyrect у контекста рисования картинки (Image1.Canvas.Copyrect). Эта функция выглядит так:
procedure CopyRect( Dest: TRect; //Размеры получаемого изображения Canvas: TCanvas;//Контекст, из которого будет копироваться Source: TRect//Размеры исходного изображения );
CopyRect производит копирование изображения и одновременное масштабирование из размеров Source в Dest.
В качестве первого параметра идут размеры получаемого изображения. Размеры передаются в виде переменной типа TRect. TRect - это простая запись, которая содержит четыре параметра:
TRect = record Left, Top, Right, Bottom: Integer; end;
С этим типом мы ещё не знакомы. Если хорошенько рассмотреть, то можно заметить сходство с объявлением объектов. Это так. Записи - это маленькие объекты, но не имеющие методов (процедур и функций), а только параметры любого типа. Все параметры общедоступны и внутри записи нельзя использовать директивы private, protected или public.
Для получения такого типа и использую функцию Rect которая создаёт TRect. В качестве параметров выступают соответствующие размеры Rect(0, 0, Image1.Width, Image1.Height).
Второй параметр - контекст рисования Canvas, который у нас ассоциирован с контекстом десктопа. Из него и будет происходить копирование.
Третий параметр - размеры исходного изображения.
И в самом конце, я освобождаю контекст рисования десктопа ReleaseDC(0,ScreenDC); и Canvas.Free.
Запусти прогу и посмотри на результат. Если что-то ещё осталось непонятным, то после этого всё станет на свои места.
TCanvas.Rectangle всего лишь вызывает Rectangle из Windows API и подставляет нужный контекст устройства и размеры. Сейчас мы сами сделаем это, без помощь TCanvas. 
