Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
KABAN21
0 / 0 / 0
Регистрация: 16.10.2014
Сообщений: 4
#1

Просмотрщик изображении с возможностью Zoom-а - Lazarus

16.10.2014, 13:09. Просмотров 524. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста сделать так что бы изабражения увеличеловалось /уменьшалось , через Ctrl +и колесико . Обьясните как и что сделать по возможности код какой нужен .
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2014, 13:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Просмотрщик изображении с возможностью Zoom-а (Lazarus):

Просмотрщик изображений Lazarus
доброго времени суток!:umnik:Решил написать свой просмотрщик изображений...

Просмотрщик изображений в Лазарусе, с буфером обмена
Помогите сделать что бы можно было копировать и вставить изображение . И...

Cromium zoom
Добрый день, подскажите плииз, такое возможно? Написал простой...

Как сделать zoom
Есть ли в Лазарус какие-то стандартные инструменты для реализации Zoom?...

Как сделать Zoom (масштабирование) изображений
Всем привет. Сделал обозреватель изображений, все норм, но не знаю как можно...

Проверка в изображении
if image1.Picture='sprite\gun1.jpg' then В чём ошибка проверки?

3
edukra
492 / 469 / 172
Регистрация: 24.01.2012
Сообщений: 1,139
16.10.2014, 14:11 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Image1MouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if ssctrl in shift then panel1.ScaleBy(11,10);
end;
 
procedure TForm1.Image1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if ssctrl in shift then panel1.ScaleBy(9,10);
end;
На форму нужно поместить панель, привязать расположение панели к верхней и левой стороне формы, на панель поместить timage, align выставить в alclient, stretch - true, proportional - true и назначить на движение колеса вверх/вниз вышеприведенные процедуры
1
KABAN21
0 / 0 / 0
Регистрация: 16.10.2014
Сообщений: 4
16.10.2014, 15:07  [ТС] #3
Спасибо по пробую сделать так !

Добавлено через 44 минуты
Не получается чет(
0
edukra
492 / 469 / 172
Регистрация: 24.01.2012
Сообщений: 1,139
16.10.2014, 15:25 #4
А у меня получается.
0
Вложения
Тип файла: 7z TestScaleImage.7z (1.77 Мб, 15 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2014, 15:25
Привет! Вот еще темы с решениями:

Нахождение координат текста на изображении
Добрый день! Подскажите какие есть варианты решения моей задачи: Исходные...

Определение границы сильно зашумленного объекта на изображении
Подскажите, как лучше детектировать радиус объекта на таком изображении?...

Графический редактор - zoom(лупа) с возможностью редактирования (delphi)
За графику взялся первый раз и до всего додумываться либо самому приходится,...

Просмотрщик pdf
Доброго времени суток, подскажите, где можно скачать на сайт похожий...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru