Увеличение области экрана с помощью Delphi
Категория реферата: Рефераты по информатике, программированию
Теги реферата: отчет о прохождении практики, изложение 8 класс по русскому
Добавил(а) на сайт: Kochenkov.
Предыдущая страница реферата | 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