Исходники.Ру

Этот компонент gif/59_1.gif (106 b) отображает бегунок, что-то вроде регуляторов на аудио-оборудовании. Вроде этого:

gif/59_2.gif (525 b)

Немного непохоже на стандартные бегунки Windows, не правда ли? Особенно эта синяя полоса... Дело в том, что класс TTrackBar, инкапсулировавший возможности стандартного бегунка, не имеет свойства типа EnableSelRange, которое разрешает или запрещает отображение этой самой полосы и одновременно контролирует ширину прорези. Это т.н. стиль элемента управления - TBS_ENABLESELRANGE.

Может быть в следующих Шагах будет рассмотрен вариант создания потомка TTrackBar с этим свойством. Пока рассмотрим свойства этого компонента

Frequency

Частота появления черточек между значения Min и Max. Например. Если минимальное значение 1, максимальное 9, а Frequency = 3, то засечки будут появляться на позициях 1, 3, 6, 9.

LineSize, PageSize

Определяют величину сдвига бегунка при помощи клавиатуры. В первом случае - клавишами курсора, во втором - клавишами PgUp и PgDn.

Max, Min, Position

Соотвественно минимальное значение, максимальное и текущая позиция бегунка. Устанавиливая свойство Position, можно продвинуть бегунок.

Orientation

Направление бегунка. В смысле - вертикально или горизонтально.

SelEnd, SelStart

Определяют начало и конец выделенной области. Если SelEnd меньше SELSTART, то она не видна. На бегунке начало и конец определяются засечками несколько другого вида, чем обычные.

SliderVisible

Виден ли движок этого компонента.

ThumbLength

Ширина полосы бегунка и собственно движка бегунка.

TickMarks

Где должны вырисовываться засечки. Внизу (если направлен горизонтально) или справа (вертикально) - tmBottomRight. Вверху или слева - tmTopLeft. С обеих сторон - tmBoth.

TickStyle

Как эти засечки должны вырисовываться. Если tsAuto - автоматически по свойствам. Если tsManual - то в начале и в конце, а дополнительные вручную методом SetTick. Если tsNone - значит, вообще нет.

И один-единственный display метод - SetTick. По int параметру устанавливает дополнительную засечку.

Я думаю, этому компоненту можно найти хорошее применение :).