У цьому уроці я хочу вам розповісти, як в Delphi збільшити певну область екрану в районі курсору мишки. Ну що запускаємо Delphi, нам знадобитися: Image з закладки Additional, TackBar (Win32), Timer (System) кидаємо ці компоненти на форму. Тепер давайте встановимо властивість "Min" компонента Trackbar рівним 1, а властивість "Interval" компонента Timer також зробимо рівним 1. Всі основні дії відбуваються в Timer'е тому створюємо обробник подій OnTime саме на ньому. Нижче наведено код даної події.
procedure TForm1.Timer1Timer (Sender: TObject);
var
srect, drect, posforme: TRect;
iwidth, iheight, dmx, dmy: Integer;
itmpx, itmpy: Real;
c: TCanvas;
kursor: TPoint;
// posform представляє прямокутник з
// координатами form (image control).
posforme: = rect (form1.left,
form1.top,
form1.left + form1.width,
form1.top + form1.height);
// Показуємо magnified screen
// якщо курсор за межами форми.
ifnot ptinrect (posforme, kursor) then
Завантажити исходник можна скачати нижче: