comp • gb.qt4 • slider • tracking

Slider.Tracking (gb.qt4)

Property Tracking As Boolean

Indicates that the Slider emits Change events continuously when it is moved, not just the mouse button is released.

Example

'Copy the code into a Graphical Application and run it

Slider1 As Slider
Label1 As Label
Panel1 As Panel
Panel2 As Panel
Button1 As Button
HBox1 As HBox

Public Sub Form_Open()

With Me
  .Height = 130
  .Width = 330
  .Arrangement = Arrange.Vertical
  .Padding = 5
  .Title = "Move the slider.."
End With

Slider1 = New Slider(Me) As "Slider1"
Slider1.Height = 28

Label1 = New Label(Me) As "Label1"
With Label1
  .Height = 28
  .Alignment = Align.Center
  .Font.Bold = True
  .Font.Size = 14
End With

Panel1 = New Panel(Me)
Panel1.Expand = True

HBox1 = New HBox(Me)
HBox1.Height = 28 

Panel2 = New Panel(HBox1)
Panel2.Expand = True

Button1 = New Button(HBox1) As "Button1"
With Button1
  .Height = 28
  .Width = 133
  .Text = "&Tracking on"
End With

Slider1_Change

End

Public Sub Slider1_Change()

Label1.Text = Slider1.Value

End

Public Sub Button1_Click()

If Button1.Text = "&Tracking on" Then
  Button1.Text = "&Tracking off"
  Slider1.Tracking = False
Else
  Button1.Text = "&Tracking on"
  Slider1.Tracking = True
Endif

End