Есть программы, которые позволяют увеличивать определённую область экрана в районе курсора мышки. Нам понадобится одна форма, один элемент управления image, одна панель, таймер и бегунок. Добавляем к форме картинку и панель. Размещаем остальные элементы управления на панели. Бегунок будет изменять степень увеличения экрана. Теперь всё готово к программированию. Но предварительно Вам необходимо изменить некоторые свойства у Ваших элементов управления. Свойство min компонента TrackBar должно быть равно 1, свойство Interval Вашего таймера также сделайте равным 1. Теперь напишем сам код, все основные действия будут происходить только при возникновении события OnTimer, поэтому приведу только его обработчик:
procedure TForm1.Timer1Timer(Sender: TObject);
Var
Srect,Drect,PosForme:TRect;
iWidth,iHeight,DmX,DmY:Integer;
Возможно вы искали - Реферат: Создание баз данных в InterBase SQL Server
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);
//Показываем magnifiedscreen
//если курсор за пределами формы.
Вам будет интересно - Курсовая работа: Обеспечение всеобщей компьютерной грамотности
If not PtInRect(PosForme,Kursor) then begin
// Далее код можно использовать для увеличения выбранной
// части экрана. С небольшими модификациями его можно
// использовать для уменьшения
// экрана
Похожий материал - Реферат: Опыт построения обучающей среды, основанной на гипертексте
iWidth:=Image1.Width;
iHeight:=Image1.Height;
Drect:=Bounds(0,0,iWidth,iHeight);
iTmpX:=iWidth / (TrackBar1.Position * 4);