Збільшення ділянки екрана, за допомогою 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.

Для підготовки даної роботи були використані матеріали з сайту статті http://delphid.dax.ru .