Узнать стоимость написания работы
Оставьте заявку, и в течение 5 минут на почту вам станут поступать предложения!
Реферат

Реферат по предмету "Информатика, программирование"


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

Есть программы, которые позволяют увеличивать определённую область экрана в районе курсора мышки. Нам понадобится одна форма, один элемент управления image, одна панель, таймер и бегунок. Добавляем к форме картинку и панель. Размещаем остальные элементы управления на панели. Бегунок будет изменять степень увеличения экрана. Теперь всё готово к программированию. Но предварительно Вам необходимо изменить некоторые свойства у Ваших элементов управления. Свойство min компонента TrackBar должно быть равно 1, свойство Interval Вашего таймера также сделайте равным 1. Теперь напишем сам код, все основные действия будут происходить только при возникновении события OnTimer, поэтому приведу только его обработчик:


procedure TForm1.Timer1Timer(Sender: TObject);


Var


Srect,Drect,PosForme:TRect;


iWidth,iHeight,DmX,DmY:Integer;


iTmpX,iTmpY:Real;


C:TCanvas;


Kursor:TPoint;


begin


If not IsIconic(Application.Handle) then begin


// Получаемкоординатыкурсора


GetCursorPos(Kursor);


// PosForm представляет прямоугольник с


// координатами Form (image control).


PosForme:=Rect(Form1.Left,


Form1.Top,


Form1.Left+Form1.Width,


Form1.Top+Form1.Height);


//Показываем magnifiedscreen


//если курсор за пределами формы.


If not PtInRect(PosForme,Kursor) then begin


// Далее код можно использовать для увеличения выбранной


// части экрана. С небольшими модификациями его можно


// использовать для уменьшения


// экрана


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.



Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.