Є програми, які дозволяють збільшувати певну область екрану в районі курсору мишки. Нам знадобиться одна форма, один елемент управління image, одна панель, таймер і бігунок. Додаємо до форми картинку і панель. Розміщуємо інші елементи управління на панелі. Бігунок буде змінювати ступінь збільшення екрану. Тепер все готово до програмування. Але попередньо Вам необхідно змінити деякі властивості у Ваших елементів управління. Властивість min компонента TrackBar має дорівнювати 1, властивість Interval Вашого таймера також зробіть рівним 1. Тепер напишемо сам код, всі основні дії будуть відбуватися тільки при виникненні події OnTimer, тому наведу лише його обробник:
procedure TForm1.Timer1Timer (Sender: TObject);
If not IsIconic (Application.Handle) then begin
// PosForm представляє прямокутник з
// координатами Form (image control).
// якщо курсор за межами форми.
If not PtInRect (PosForme, Kursor) then begin
// Далі код можна використовувати для збільшення обраної
// частині екрана. З невеликими модифікаціями його можна
// використовувати для зменшення
iTmpX: = iWidth / (TrackBar1.Position * 4);
iTmpY: = iHeight / (TrackBar1.Position * 4);
// Отримуємо обробник (handle) вікна робочого столу.
// Передаємо частина зображення вікна в TImage.
// Обов'язково обробляємо всі повідомлення Windows.
Як виявилося, все не так вже й складно, це вже готовий до вживання код, який Ви з успіхом можете застосовувати в своїх програмах!
Михайло Христосенко. Збільшення області екрана за допомогою Delphi.