TrackBarGadget

Синтаксис

Function TrackBarGadget(ByVal gadget As long, ByVal x As Long , ByVal y As Long , ByVal w As Long, ByVal h As Long, ByVal min As Integer, ByVal max As Integer, ByVal style As Integer=1) As HWND

Описание

Гаджет трекбар(ползунок).

Для получения и установки значений TrackBarGadget можно воспользоваться функциями:
GetTrackBarPos и SetTrackBarPos

Установить цвет в гаджет можно функцией SetGadgetColor (в windows и linux+gtk3 только фон ; в linux+gtk2 не поддерживается)
Получить цвет из гаджета можно функцией GetGadgetColor (в windows и linux+gtk3 только фон ; в linux+gtk2 не поддерживается)

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

x,y,w,h - расположение и рамеры

min - начальное значение

max - конечное значение

style - стиль, может быть:

Для Windows и Linux:
TBS_HORZ - горизонтальное расположение окна Trackbar
TBS_VERT - вертикальное расположение окна Trackbar

Только для Windows:
TBS_TOP - риски будут расположены сверху (используется вместе со стилем TBS_HORZ)
TBS_BOTTOM - риски будут расположены снизу (используется вместе со стилем TBS_HORZ)
TBS_LEFT - риски будут расположены слева (используется вместе со стилем TBS_VERT)
TBS_RIGHT - риски будут расположены справа (используется вместе со стилем TBS_VERT)
TBS_BOTH - риски будут расположены с обеих сторон
TBS_AUTOTICKS - если указан этот стиль, риски создаются для каждого возможного значения из диапазона значений, определенных для Trackbar
TBS_NOTICKS - сразу после создания окна Trackbar риски не отображаются, однако позже вы их сможете определить при помощи сообщений TBM_SETTIC и TBM_SETTICFREQ, которые будут рассмотрены ниже
TBS_ENABLESELRANGE - возможно выделение диапазона значений

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,300,300)
ButtonGadget(1,20,20,60,25,"End")
TrackBarGadget(2,20,70,100,40,0,10)
TextGadget(3,200,20,30,20)
Do
  var event=WaitEvent()
  If event=EventGadget Then
     Select case EventNumber
        Case 2
           SetGadgetText(3,Str(GetTrackBarPos(2)))
        Case 1
           end
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator