[Gambas-user] How to set a slider value?

[Stefano Palmeri]

Il martedì 25 agosto 2009 11:43:05 Aleksandrs Livshics ha scritto:
> On Tuesday 25 August 2009 12:25:08 Fabien Bodard wrote:
> > you don't understand the stop event function..
> >
> > stop event stop the event propagation...(so the widjet stop to act)
> > but not the current sub execution !
> >
> > if you want to stop the sub too you need to add a 'return' keyword !
> >
> >
> >
> > if ok then
> >   stop event
> >   return
> > endif
> >
> > nevertheless send me a short sample exemple and i will see what i can do
> >
> > 2009/8/25 Aleksandrs Livshics <aleks.l at ...1865...>:
> > > On Monday 24 August 2009 17:33:39 Fabien Bodard wrote:
> > >> 2009/8/24 Aleksandrs Livshics <aleks.l at ...1865...>:
> > >> > Dear Gambas users,
> > >> > I am new to Gambas and my question may be silly,
> > >> > however I cannot find how to set a slider value in the
> > >> > code. (Not the initial value, this is easy)
> > >> > I want to specify some event (like double click on a slider)
> > >> > to force it to jump to a predefined position/value.
> > >> >
> > >> > If I write Dbl_click() method and use something like
> > >> > My_slider.value = The_value
> > >> > in it, then slider on screen does not move from where
> > >> > I have set it previously with a mouse. More precisely,
> > >> > It jumps to a position which corresponds to The_value
> > >> > and back to where it was before!
> > >> > Any ideas would be helpful.
> > >>
> > >> try to stop the event after setting the value
> > >>
> > >> public sub MySlider_DblClick()
> > >>   My_slider.value = The_value
> > >>   Stop Event
> > >> end
> > >
> > > Thank you for a quick reply. Unfortunately
> > > when I have added the "STOP EVENT " line
> > > nothing really has been changed. When I assign
> > > some value to the slider and PRINT it after the "STOP EVENT"
> > > I have the wanted value printed 2 TIMES and  then probably the
> > > "change"  event happens. In my "Change"
> > > I print the value again as you see below. It is printed also 2
> > > times and in both cases the old value is restored.
> > >
> > >
> > > PUBLIC SUB SMySlider_Change()
> > > PRINT "  Change -> ", MySlider.value
> > > END
> > >
> > > The slider on the screen shows the same:
> > > first it jumps to a specified position and the back...
> > > Alex
> > >
> > >
> > > -----------------------------------------------------------------------
> > >-- ----- Let Crystal Reports handle the reporting - Free Crystal Reports
> > > 2008 30-Day trial. Simplify your report design, integration and
> > > deployment - and focus on what you do best, core application coding.
> > > Discover what's new with Crystal Reports now.
> > >  http://p.sf.net/sfu/bobj-july
> > > _______________________________________________
> > > Gambas-user mailing list
> > > Gambas-user at lists.sourceforge.net
> > > https://lists.sourceforge.net/lists/listinfo/gambas-user
> >
> > -------------------------------------------------------------------------
> >-- --- Let Crystal Reports handle the reporting - Free Crystal Reports
> > 2008 30-Day trial. Simplify your report design, integration and
> > deployment - and focus on what you do best, core application coding.
> > Discover what's new with Crystal Reports now. 
> > http://p.sf.net/sfu/bobj-july
> > _______________________________________________
> > Gambas-user mailing list
> > Gambas-user at lists.sourceforge.net
> > https://lists.sourceforge.net/lists/listinfo/gambas-user
>
> OK, here is an example...
> The form has just one slider, nothing else.
> I want it to jump to ZERO if double clicked, no matter
> where it was before.
> If it is not at the ZERO position when double clicked
> it in fact jumps to ZERO and immediately back !...

Found a solution:

' Gambas class file

PRIVATE $boolWantZeroValue AS Boolean

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Slider1_Change()

  PRINT "change: ", Slider1.Value
  IF $boolWantZeroValue THEN 
    Slider1.Value = 0
    $boolWantZeroValue = FALSE
  ENDIF   
  
END

PUBLIC SUB Slider1_DblClick()
  
  $boolWAntZeroValue = TRUE  
  Slider1.Value = 0
  PRINT "dbl: ", Slider1.Value
      
END