Предыдущая страница реферата | 1  2

iWidth:=Image1.Width;

iHeight:=Image1.Height;

Drect:=Bounds(0,0,iWidth,iHeight);

iTmpX:=iWidth / (TrackBar1.Position * 4);

iTmpY:=iHeight / (TrackBar1.Position * 4);

Srect:=Rect(Kursor.x,Kursor.y,Kursor.x,Kursor.y);

InflateRect(Srect,Round(iTmpX),Round(iTmpY));

//Получаем обработчик(handle) окна рабочего стола.

C:=TCanvas.Create;

try

C.Handle:=GetDC(GetDesktopWindow);

//Передаём часть изображения окна в TImage.

Image1.Canvas.CopyRect(Drect,C,Srect);

finally

C.Free;

end;

end;

// Обязательно обрабатываем все сообщения Windows.

Application.ProcessMessages;

end; // IsIconic

end;

Как оказалось, все не так уж сложно, это уже готовый к употреблению код, который Вы с успехом можете применять в своих программах!

Список литературы

Михаил Христосенко. Увеличение области экрана с помощью Delphi.

Скачали данный реферат: Косяк, Zholdin, Karbainov, Богоявленский, Serjogin, Asaf, Пантелеймон.
Последние просмотренные рефераты на тему: мировая торговля, оформление титульный реферата, реферат образование, белорусские рефераты.



Предыдущая страница реферата | 1  2

Поделитесь этой записью или добавьте в закладки