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

© 2003 Михаил Христосенко

Есть программы, которые позволяют увеличивать определённую область экрана в районе курсора мышки. А вам слабо самостоятельно сделать такое приложение ?

Итак, приступим.

Нам понадобится одна форма, один элемент управления 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);

//Показываем magnified screen

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

  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;

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

Copyright© 2003 Михаил Христосенко // Development и Дельфи

Удачи в программировании...