Увеличение області екрана з допомогою Delphi

Увеличение області екрана з допомогою 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);

//Показываем 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;

Как виявилося, не все дуже складно, то це вже готовий до спожитку код, який Ви успішно можете запровадити у своїх програмах!

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

Михаил Христосенко. Збільшення області екрана з допомогою Delphi.

Для підготовки даної праці були використані матеріали із сайту статті internet .