Компонент ATImageBox (TScrollBox+TImage)

Выделил из своего компонента код, содержащий TScrollBox + TImage + обвязку.
Получился компонент ATImageBox:

http://atorg.net.ru/files/ATImageBox.zip (290 Кб)




Набор фич виден по демо. В общем-то, почти те же фичи, что и в компоненте "Image Controls" который обсуждают тут, только без "наворотов" вроде OpenGL, resampling и т.д. Только самое нужное. Зато код маленький.

Позже выложу на torry.net.

Сообщение отредактировано: AlexeyT - 01.03.07, 08:57

Прикреплённый файлATImageBox.zip (73 Кбайт, скачиваний: 1590)

Без исходников компонент не относится к тематике раздела по программированию.

Smike
OK, сейчас выложу исходники.
Update: выложил.

Сообщение отредактировано: AlexeyT - 28.02.07, 12:31

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

Я тоже начинал с Image + ScrollBox, но пришел к выводу, что это громоздко, неудобно и неуниверсально.

Кроме этого в коде видел обработку колеса мыши и клавиатуры. Только это все не работает, если перевести фокус например на кнопку и даже если потом кликнуть на компоненте. Вывод – нет обработки получения фокуса.

Если выставить флаг "сохранять позицию при масштабировании", наблюдается большое мерцание, когда появляются скроллбары.

Smike

Цитата Smike @ 28.02.07, 13:15

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

На больших - это на каких? У меня есть 1600*1200 - вроде масштабируется мгновенно.
Вот есть 7200*7200 - на нем да, тормозит.

Цитата Smike @ 28.02.07, 13:15

Кроме этого в коде видел обработку колеса мыши и клавиатуры. Только это все не работает, если перевести фокус например на кнопку и даже если потом кликнуть на компоненте. Вывод – нет обработки получения фокуса.

Да, надо обрабатывать OnClick. Поправил.
Теперь фокусируется, клавиши/колесо работают.

Цитата Smike @ 28.02.07, 13:15

Если выставить флаг "сохранять позицию при масштабировании", наблюдается большое мерцание, когда появляются скроллбары.

Это надо будет поправить.

Цитата AlexeyT @ 28.02.07, 13:38

На больших - это на каких? У меня есть 1600*1200 - вроде масштабируется мгновенно.
Вот есть 7200*7200 - на нем да, тормозит.

2976*1952

Smike
А что предлагаете делать для такого случая? Как масштабировать.

Цитата AlexeyT @ 28.02.07, 14:42

А что предлагаете делать для такого случая? Как масштабировать.

В таком гибридном компоненте трудно что-то сделать. Разве что придумать какую-то хитрую отрисовку TImage. А именно отрисовывать в TImage только видимую на данный момент область компонента.

Тему перенес в специальный раздел. В соответствии с правилами данного раздела прошу прикрепить исходники компонента в первом сообщении. Если не помещается, можно без исполняемого файла.

интересует след вопрос а куда убралась канва как теперь рисовать на компоненте ?

Цитата AlexeyT @ 28.02.07, 13:38

Да, надо обрабатывать OnClick. Поправил.
Теперь фокусируется, клавиши/колесо работают.

А исправленный код есть?

psp посмотри этот вариант, помоему в нем работает то что нужно тебе ...
Прикреплённый файлATImageBox_2007.10.21.zip (77.92 Кбайт, скачиваний: 2268)

Цитата andrew.virus @ 23.10.08, 21:32

psp посмотри этот вариант, помоему в нем работает то что нужно тебе ...

Что то этот файл не скачивается ..хотел опять скачать..

psp все нормально работает, а какая у тебя проблема возникла ...

Цитата andrew.virus @ 08.11.08, 06:13

psp все нормально работает, а какая у тебя проблема возникла ...

Не распаковывается нормально...

psp пишет, что внутри файл ... просмотри ее как папку и будет чудо ...