B4J Question Slider Values Changed

[red30]

How can I get the values from the slider after releasing the mouse button? Released callback, called when the slider is released. Now while I move the slider my program always hangs in Slider_ValueChange.

 

[Erel]

Why does it hang? Where is the code?

 

[red30]

Not in the sense of freezes. Just constantly go there when I move the slider. I would like the program to go to Slider_ValueChange after the slider value is set.

 

[stevel05]

Instead of the sub

Sub Slider1_ValueChange (Value As Double)
    
End Sub

Use

Sub Slider1_MouseReleased (EventData As MouseEvent)
    Log("Slider Val " & Slider1.Value)
End Sub

 

[red30]

Instead of the sub

Sub Slider1_ValueChange (Value As Double)
   
End Sub

Use

Sub Slider1_MouseReleased (EventData As MouseEvent)
    Log("Slider Val " & Slider1.Value)
End Sub

And if I want to release the mouse button and use the keyboard?

 

[stevel05]

Global var - SliderMousePressed As Boolean

Private Sub Slider1_MousePressed (EventData As MouseEvent)
    SliderMousePressed = True
End Sub

Private Sub Slider1_ValueChange (Value As Double)
    If SliderMousePressed Then Return
    Slider1_DOValueChanged
End Sub

Private Sub Slider1_MouseReleased (EventData As MouseEvent)
    SliderMousePressed = False
    Slider1_DOValueChanged
End Sub

Private Sub Slider1_DOValueChanged
    Log("Value Changed " & Slider1.Value)
End Sub

 

[Erel]

Different approach:

Sub Slider1_ValueChange (Value As Double)
   Slider1Index = Slider1Index + 1
   Dim MyIndex As Int = Slider1Index 'Slider1Index is a global Int variable
   Sleep(300)
   If MyIndex = Slider1Index Then
       Log("New value: " & Value)
       'do anything you like here      
   End If
End Sub

The behavior is not exactly the same. It updates after the slider was idle for 300ms.