Категория
Информатика
Тип
реферат
Страницы
2 стр.
Дата
17.01.2010
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
18601.zip — 3.79 kb
  • uvelichenie-oblasti-jekrana-s-pomoshhju-delphi_18601_1.rtf — 18.46 Kb
  • Readme_docus.me.txt — 125 Bytes
Рейтинг
10  из 10
Оценок
1
Оцените работу
Хорошо  или  Плохо


Текст работы

Увеличение области экрана с помощью 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.W idth,
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);



Ваше мнение



CAPTCHA