Компонент GsvZoomer

Последнее обновление: 18 июня 2004

Этот визуальный компонент подобен компоненту ScrollBar, но позволяет не только изменить позицию бегунка, но также и изменить его размеры. Положение бегунка характеризует позицию, а его размеры - диапазон.

Screen shot

Изменение позиции бегунка такое же, как и у компонента ScrollBar, а изменение диапазона выполняется буксировкой линий по краям бегунка.

Компонент наследуется от TCustomControl и позволяет определить четыре public-свойства: Position, Range, MinRange, MaxRange. Все эти свойства имеют тип Integer и доступны для установки и получения. Кроме того, все их можно установить одной процедурой - SetData(aMinRange, aMaxRange, aPosition, aRange: Integer). При изменении положения или диапазона формируется уведомляющее сообщение OnChanged.

Download

Downloaddelphizoomer.zip - Исходные коды (5K).