|
|
|
| |
Определяет горизонтальной или вертикальной ползунковый индикатор.
Создание объекта
trbObj=new TTrackBar(Parent);
| Собственные свойства
|
| Свойство
| Тип
| Описание
|
| LineSize
| Number
| величина сдвига ползунка клавишами перемещения курсора
|
| Max
| Number
| максимальная позиция ползунка
|
| Min
| Number
| минимальная позиция ползунка
|
| Orientation
| Enum
| ориентация индикатора (см. ниже)
|
| PageSize
| Number
| величина сдвига ползунка клавишами PgDn и PgUp
|
| Frequency
| Number
| частота засечек индикатора
|
| Position
| Number
| текущая позиция ползунка
|
| PositionToolTip
| Enum
| положение подсказки с текущим значением индикатора, отображаемой при нажатии на ползунок (см. ниже)
|
| SliderVisible
| Boolean
| отображать ползунок индикатора
|
| SelEnd
| Number
| конечная позиция выделенной области
|
| SelStart
| Number
| начальная позиция выделенной области
|
| ShowSelRange
| Boolean
| отображать выделенную область
|
| ThumbLength
| Number
| ширина полосы индикатора
|
| TickMarks
| Enum
| положение шкалы засечек индикатора (см. ниже)
|
| TickStyle
| Enum
| стиль отображения засечек индикатора (см. ниже)
|
|
| Свойство Orientation
|
| Значение
| Описание
|
| trHorizontal
| горизонтальный индикатор
|
| trVertical
| вертикальный индикатор
|
|
| Свойство TickMarks
|
| Значение
| Описание
|
| tmBottomRight
| снизу (для горизонтального) или справа (для вертикального) индикатора
|
| tmTopLeft
| сверху (для горизонтального) или слева (для вертикального) индикатора
|
| tmBoth
| с обоих сторон индикатора
|
|
| Свойство TickStyle
|
| Значение
| Описание
|
| tsNone
| не отображать засечки
|
| tsAuto
| отображать засечки для каждого шага индикатора
|
| tsManual
| использовать метод SetTick для расстановки засечек
|
|
Стандартные свойства
| Собственные методы
|
| Метод
| Описание
|
| SetTick
| устанавливает засечку на шкале индикатора при значении свойства TickStyle, равном tsManual
|
|
Стандартные методы
| Собственные события
|
| Событие
| Описание
|
| OnChange
| изменилась текущая позиция индикатора
|
|
Стандартные события
// Главная форма
frm=new TForm();
frm.Caption="JS+ - визуальный компонент TTrackBar";
frm.Width =525;
frm.Height=375;
// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Старт"';
// Кнопка
btn=new TButton(frm);
btn.Caption="Старт";
btn.Left=frm.ClientWidth-btn.Width-15;
btn.Top =stb.Top-btn.Height-15;
btn.OnClick=btn_Click;
// Панель закладок
pgc=new TPageControl(frm);
pgc.SetBounds(10,10,frm.ClientWidth-20,btn.Top-20);
for (i=0;i<2;i++) {
// Закладка
tsh=new TTabSheet(pgc);
// Панель на закладке
pnl=new TPanel(tsh);
pnl.Color=clWhite;
pnl.BevelInner=bvRaised;
pnl.BevelOuter=bvLowered;
pnl.SetBounds(10,10,tsh.ClientWidth-20,tsh.ClientHeight-20);
// Индикатор на панели
trb=tsh.cmpTag=new TTrackBar(pnl);
trb.ThumbLength=25;
switch (i) {
case 0: tsh.Caption="Горизонтальный";
trb.Orientation=trHorizontal;
trb.Max=50;
trb.Width=pnl.ClientWidth-30;
trb.Left=(pnl.ClientWidth -trb.Width )/2;
trb.Top =(pnl.ClientHeight-trb.Height)/2;
break;
case 1: tsh.Caption="Вертикальный";
trb.Orientation=trVertical;
trb.Max=20;
trb.Height=pnl.ClientHeight-30;
trb.Left=(pnl.ClientWidth -trb.Width )/2;
trb.Top =(pnl.ClientHeight-trb.Height)/2;
}
}
// Таймер
tmr=new TTimer(frm);
tmr.Interval=100;
tmr.OnTimer=tmr_Timer;
frm.ShowModal();
// Обработчик события OnClick
function btn_Click(btn)
{
var stb_Str=' Нажмите кнопку "';
switch (btn.numTag=1-btn.numTag) {
case 0: btn.Caption="Старт";
tmr.Enabled=false;
break;
case 1: btn.Caption="Стоп";
tmr.Enabled=true;
}
stb.SimpleText=stb_Str+btn.Caption+'"';
}
// Обработчик события OnTimer
function tmr_Timer(tmr)
{
var trb=pgc.Pages[pgc.ActivePageIndex].cmpTag;
if (trb.Position==trb.Max) {
trb.Position=trb.Min;
return;
}
trb.Position+=1;
}
Совместимость
C++ Builder/Delphi
|
| JS+ | Руководство пользователя
|
|
|
| |
|
|
