Цитата

А стандартные методы? TCustomScrollingImage.Invalidate.

Когда вручную пытался принудительно перерисовать после изменения свойства фитимэйдж этот метод не делал то. что был должен.

Цитата

А свойство Zoom разве работает не так? Или я чего-то не понимаю?

Прикольно

но на счёт первого тут что-то или у меня не так работает или что... При увеличении зума у меня на месте картинка не остаётся. Юзаю TScrollingImage. Уходит всё почему-то в правый нижний угол о_О. Могу и прогу выложить (экзешник и кусок формы где твой компонент), но это окло метра будет.

Файлик с прогой приложил.

Это сообщение отредактировал(а) Illusion Dolphin - 7.4.2005, 22:10

Присоединённый файл ( Кол-во скачиваний: 23 )
 new.zip

Illusion Dolphin, с перемещением изображения после изменения зума глюки не мои, а у тебя в программе. Разбиратся я не стал, но если закомментировать обработчики события OnChangePos, то все нормально. То есть насколько я понял все из-за реализации механизма синхронного перемещения.

Цитата(Illusion @ 7.4.2005, 21:48)

Когда вручную пытался принудительно перерисовать после изменения свойства фитимэйдж этот метод не делал то. что был должен.

После изменения свойства FitImage изображение и так перерисовывается, так что этот пункт я до конца так и не понял. И если этот метод делал не то что нужно, то что же он делал?

Пожалуй пришло время выложить обещанный апдейт до версии 2.1.

Цитата

1. По свежим следам исправлен глюк с GetFitImageScale при пустом изображении.   2. Немного усовершенствована процедура отрисовки, в частности отрисовки с прозрачностью TScrollingImage.   3. Исправлены баги в отрисовке TFastScrollingImage и TSBScrollingImage при включенной прозрачности (мерцание фона).   4. Устранены глюки свойства FitImage в design-time в компонентах для скроллинга.   5. Переименованы свойства ImageCanScrollCursor -> CanScrollCursor ImageDragCursor -> DragImageCursor ImageScrollDisabled -> ScrollDisabledCursor RealImagePos -> ImageOffset RealImageLeft -> ImageOffsetLeft RealImageTop -> ImageOffsetTop   6. Свойство FitImage поделено на два свойства - AutoZoomImage и AutoShrinkImage.   7. Удален модуль MiniMath потому что Math все равно используется в модуле Forms, а значит выгоды в использовании MiniMath нет.   8. Добавлено событие OnPaint в навигаторе и для рамки навигатора. Соответственно опубликовано свойство Canvas.   9. Устранен глюк, при котором при увеличении размера компонента TSBScrollingImage не перерисовывалась область спрятавшегося скроллбара.   10. ScrollButton теперь добавлено у всех наследников TCustomScrollingImage. Исправлена неправильная работа этого свойства в TFastScrollingImage и TSBScrollingImage.   11. В TCustomScrollingImage добавлено свойство StretchMode, позволяющее выбрать качество масштабирования изображения в компоненте. Названия значений свойства аналогичны значениям констант для WinAPI-функции SetStretchBltMode.       К сожелению на данный момент остаются еще некоторые проблемы с работой компонента в design-time.

Ссылка для скачивания: ImgCtrls.zip (157 КБ)

Не знаю, насколько это важно, может пустяк, но все же. У тебя размеры навигатора изменяются пропорционально высоте/ширине загруженного изображения, но если потянуть форму за верхний или нижний край, ничего не происходит, потому что ты пересчитываешь высоту оносительно новой ширины, а наоборот - нет. Так совпало, что я тоже недавно делал навигатор, для карты-схемы и тоже столкнулся с этой, проблемой. Решил с тобой поделиться, может заинтнресуешься.


Сначала добавляем обработчик сообщения WM_SIZING.

Код

... procedure WMSizing(var Message: TMessage); message WM_SIZING; ...

Код

procedure TNavigatorForm.WMSizing(var Message: TMessage); begin  // я объявил глобальную переменную, (в OnCreate формы Side:=0),  // хотя можно обойтись и без нее, но тогда новые размеры надо вычислять через  // указатель на LParam, так что нагляднее в FormCanResize  Side:=Message.WParam; end; procedure TNavigatorForm.FormCanResize(Sender: TObject; var NewWidth,   NewHeight: Integer; var Resize: Boolean); var k:Double; begin  // аспект  k:=SourceWidth/SourceHeight;  // тянули за углы или за левый/правый край, ширина гарантированно изменилась  // пересчитываем высоту относительно ширины  if iSide in [WMSZ_TOPLEFT,WMSZ_TOPRIGHT,WMSZ_BOTTOMRIGHT,               WMSZ_BOTTOMLEFT,WMSZ_LEFT,WMSZ_RIGHT] then   NewHeight:=Round(NewWidth/k)+GetSystemMetrics(SM_CYCAPTION)  else   // тянули за верхний/нижний край, изменилась только высота   NewWidth:=Round((NewHeight-GetSystemMetrics(SM_CYCAPTION))*k); end;

Это сообщение отредактировал(а) ДЫМ - 27.9.2005, 01:05

ДЫМ, в общем согласен, что так не совсем красиво. Надо будет устранить.

s-mike
можно тебя попросить об одном, компонент ScrollingImageNavigator очень подходит для моей задачи, т.е. нужно фиксированным! прямоугольником выделить нужную область фотографии и эту область сохранить, но у тебя увеличивает, если я ставлю увеличение = 0, маштаб 1:1, прямоугольник не двигается, и если изменять его размеры, тоже не двигается((
переправить твой код не хватает знаний((...подскажи как быть..

Цитата(MichaelS @ 25.11.2005, 15:48)

s-mike можно тебя попросить об одном, компонент ScrollingImageNavigator очень подходит для моей задачи, т.е. нужно фиксированным! прямоугольником выделить нужную область фотографии и эту область сохранить, но у тебя увеличивает, если я ставлю увеличение = 0, маштаб 1:1, прямоугольник не двигается, и если изменять его размеры, тоже не двигается(( переправить твой код не хватает знаний((...подскажи как быть..

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

ЕЩЁ! Найдена бага приисовании на SBScrollingImage (на других не пробoвал)!
Она состоит в том,что линии и всё такое рисуются не там где курсор мыши, а на ~1.5-2 см вниз и всторону.

Покажи, как рисуешь.

Это сообщение отредактировал(а) s-mike - 15.2.2006, 13:45

 s-mike

  Не получается скачать, кинь пожалуйста другую ссылку!

Поправил первый пост - прикрепил туда свежую версию Image Controls 2.1.1

А что это за библиотека? Хотел скачать и посмотреть, но...
Скажите, пожалуйста. а как скачать?! Он мне HTML страницу скачивает?

Image Controls 1.0 

включает три компонента для скроллинга изображений, навигатор для этих компонентов, компоненты для простого отображения изображений, но с намного меньшим мерцанием, чем TImage, а также несколько полезных процедур. Немного, но в дальнейшем я планирую пополнять библиотеку новыми компонентами и процедурами. Уже совсем скоро думаю добавить компонент для отображения эскизов (Thumbnails). 

С помощью этих компонентов намного легче сделать просмотрщик типа ACDSee или IrfanView. И не только. Благодаря им программу можно сделать более удобной, придав ее элементам управления дополнительную функциональность

Image Controls 2.0 

   1. Добавлен компонент TTexturePanel.
   2. В TCustomScrollingImage добавлено масштабирование, а также автоматическое масштабирование по размеру компонента.
   3. Изменена иерархия компонентов для скроллинга, теперь TFastScrollingImage наследуется от TScrollingImage.
   4. Наследники TCustomScrollingImage, а также компоненты TBitmapContainer и TBitmapPanel теперь имеют свойство Transparent, позволяющее делать компонент прозрачным.
   5. Добавлена возможность нестандартной отрисовки изображения в компонентах для скроллинга.
   6. Добавлено изменение курсоров для скроллинга в design-time с помощью свойств ImageCanScrollCursor, ImageDragCursor, ImageScrollDisabled.
   7. В TCustomScrollingImage добавлены свойства RealImagePos, RealImageLeft, RealImageTop, по которым можно узнать настоящие координаты изображения в компоненте, учитывая то, что оно может неполностью заполнять компонент.
   8. Добавлено в TCustomScrollingImage свойство CanScrollWithMouse, позволяющее запретить скроллинг с помощью мыши.
   9. Исправлен глюк в навигаторе при щелчке в нем правой кнопкой мыши.
  10. В модуль ImgCtrlUtils добавлена процедура LoadGraphicToBitmap и немного подправлена функция IsEmptyPicture.
  11. Добавлен модуль ImgCtrlsSkins.
  12. Устранены другие небольшие баги и ошибки.

Добавлено @ 18:20 
Подробнее - в документации

Скачал, посмотрел. Первое впечатление отличное, что поразило больше всего Help русский!!! А для начинающего програмиста это просто находка. Большое спасибо!  

Иссесно хелп русский.
Автор ведь тоже не китаец 

Добавлено @ 00:35 
ЗЫ. Автор компонента - автор первого поста.