Пример программирования перехвата изображений Delphi (5)

3) Пополните форму или управляющую картинку

Возьмите форму или управляющее изображение, то есть для использования новой Form2, см. «Пример программирования Image Image (7)» (7) »

Добавьте Capture2 в использование внедрения основной единицы.

[Захват окна или элементы управления] событие действия для формы или захвата управления

Процедура tmainform.cptwindowsexecute (отправитель: tobject);

var P: Tpoint;

Начинать

Inc (CaptuRenum, 1);

Application.minimize;

Задержка (500);

Имя файла: = 'захват'+inttoStr (capturenum);

FileName: = defaultDirectory+FileName;

с tform2.create (приложение) do

пытаться

Если ShowModal = MROK, тогда

Начинать

CreateMdichild (имя файла, True);

Statusbar.simpletext: = filename;

Задержка (500);

Abitmap: = tbitmap.create;

GetCursorpos (P);

Ручки: = WindowFormoint (P);

AbitMap: = CaptureWindowImage (ручки);

Child.image1.picture.bitmap: = abitmap;

Child.clientWidth: = child.image1.picture.width;

Child.clientHeight: = child.image1.picture.height;

Child.horzscrollbar.range: = child.image1.picture.width;

Child.vertscrollbar.range: = child.image1.picture.height;

Child.image1.hint: = 'height:'+inttoStr (child.image1.picture.height)+'пиксели'

+'Ширина:'+inttoStr (child.image1.picture.width)+'пиксели';

Abitmap.free;

конец;

Окончательно

Бесплатно;

Application.Restore;

конец;

конец;

4) Фотографии иконы ползания

Возьмите изображение значка, то есть для использования новой формы3, см. «Пример программирования перехвата Delphi Image (8)»

Добавьте Capture3 в использование внедрения основного устройства.

Добавить частное процесс CaptueCon в основной единице:

Процедура tmainform.captureIcon;

Начинать

с tform3.create (приложение) do

пытаться

Если ShowModal = MROK, тогда

с фректором, начинается

if (справа> слева) и (внизу> сверху), затем начните

Задержка (300);

Abitmap: = tbitmap.create;

Abitmap.assign (захваткратный (frect));

Child.image1.picture.bitmap: = abitmap;

Child.horzscrollbar.range: = child.image1.picture.width;

Child.vertscrollbar.range: = child.image1.picture.height;

Abitmap.free;

конец иначе начнется

MOSSAGEDLG («Ошибка выбора границы, попробуйте еще раз!», Mtinformation, [MBOK], 0);

Ребенок.close;

Форма3.free;

Выход;

конец;

конец;

Окончательно

Бесплатно;

конец;

конец;

[Значок захвата] Действие события для захвата значков картинки

Процедура tmainform.cpticonexecute (отправитель: tobject);

Начинать

Application.minimize;

Задержка (400);

Inc (CaptuRenum, 1);

Имя файла: = 'захват'+inttoStr (capturenum);

FileName: = defaultDirectory+FileName;

CreateMdichild (имя файла, True);

Statusbar.simpletext: = filename;

CaptureIcon;

Child.clientWidth: = child.image1.picture.width;

Child.clientHeight: = child.image1.picture.height;

Child.horzscrollbar.range: = child.image1.picture.width;

Child.vertscrollbar.range: = child.image1.picture.height;

Child.image1.hint: = 'height:'+inttoStr (child.image1.picture.height)+'пиксели'

+'Ширина:'+inttoStr (child.image1.picture.width)+'пиксели';

Application.Restore;

конец;