Доклад: Увеличение области экрана с помощью Delphi
💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Есть программы, которые позволяют увеличивать определённую область экрана в районе курсора мышки. Нам понадобится одна форма, один элемент управления 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);
Srect:=Rect(Kursor.x,Kursor.y,Kursor.x,Kursor.y);
InflateRect(Srect,Round(iTmpX),Round(iTmpY));
//Получаем обработчик(handle) окна рабочего стола.
//Передаём часть изображения окна в TImage.
Image1.Canvas.CopyRect(Drect,C,Srect);
// Обязательно обрабатываем все сообщения Windows.
Как оказалось, все не так уж сложно, это уже готовый к употреблению код, который Вы с успехом можете применять в своих программах!
Михаил Христосенко. Увеличение области экрана с помощью Delphi.
Название: Увеличение области экрана с помощью Delphi
Раздел: Рефераты по информатике, программированию
Тип: доклад
Добавлен 10:54:17 18 мая 2003 Похожие работы
Просмотров: 33
Комментариев: 16
Оценило: 4 человек
Средний балл: 5
Оценка: неизвестно Скачать
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Доклад: Увеличение области экрана с помощью Delphi
Курсовая работа по теме Особенности нормирования труда при коллективной его организации
Контрольная работа: Права человека и гражданина: отечественная и международная практика
Контрольная работа: ТЭА. Скачать бесплатно и без регистрации
Реферат Экономика Приусадебного Участка 8 Класс Технология
Реферат: Stephen Crane The Red Badge Of Courage
Реферат по теме Оптические преобразователи сигнала
Реферат: Понятие природного ландшафта и его влияние на человека
Трудовые Ресурсы Курсовая Работа
Контрольная Работа На Тему Оценка Объекта Недвижимости
Доклад по теме Анакреонт
Реферат по теме ГУЛАГ в экономической и политической жизни страны
Курсовые Ранхигс
Пособие по теме Система показателей, основные группировки и классификации в социально-экономической статистике
Сочинение Миниатюра Осень Наступила
Сухопутные Страны Поиск Новых Возможностей Эссе
Реферат На Тему Здоровый Образ Жизни Школьников
Отрицательная Курсовая Разница По Валютному Счету Проводка
Контрольная работа по теме А. Маршалл – основоположник неоклассической экономической теории
Что Такое Любовь Сочинение Егэ
Реферат Социальне Норма И Контроль
Реферат: Некоторые спорные вопросы правового регулирования договора доверительного управления имуществом
Реферат: Анализ выпуска и объемов продаж продукции
Доклад: “В неестественной позе, по Сомову”