FiveTech Software tech support forums

Dear Antonio,
I have only one user. That's my wife.
I will ask her.
Regards
Detlef

Dear Detlef,

You could programatically modify the registry from your FWH app but that would modify the entire behavior for Windows 11

Will your users accept that ?

Many thanks, Antonio.
Your link helped me to get visible spinner arrows on my PC.
But on an other machine the arrows will be invisible until the user does follow the instructions from your linked page.

Thanks anyhow,
Detlef

Dear Detlef,

https://www.windowscentral.com/how-always-show-scrollbars-windows-11

If I create a get control for numeric inputs with spinner clause … under Windows 10 the arrows for increase and decrease are always visible. Under Windows 11 they appear only if the user navigates to the place where they will be shown. Does anyone ...

Thanks for the help, Cgallegoa ! I need a TGet with a spinner and an arbitrary step of changes. I wrote it like this TGet():New(2, 2, GenLocalBlock( nGet ), oDlg, ;          100,, "9.999",,,,,,, .T.,,,,,,,,,,, .T., ;    ...

Thank you for your help ! Everything works. However, I am interested in the option with spinner.
In this case, nothing works

thanks Rao

@ 100,10 GET aGet[1] VAR  nGiocata SPINNER MIN 0.50 MAX 200  ;      ON UP   GetStep( aGet[ 1 ],  0.50 ) ;      ON DOWN GetStep( aGet[ 1 ], -0.50 ) ;  ...

...  ;   PIXEL TRUEPIXEL FONT oFont    ;     TiTle cTitle@ 100,10 GET aGet[1] VAR  nGiocata SPINNER MIN 0.50 MAX 200  ;      ON UP 0.50 ON DOWN 0.50 ;      SIZE 80,24 RIGHT PIXEL of oDlg PICTURE "€ 999.99"ACTIVATE ...

... decreases it does not return to the minimum number perhaps with a video I try to understand the problem https://i.postimg.cc/ZKGjXzV8/spinner.gif ie if the user presses the down arrow he cannot decrease the value the user can initially decrease or increase the value in the get ...

Silvio: Function ResetValore(nForma,nMetodo, nValore,oControls)   Do case      case nForma= 1 .and. nMetodo= 3          nValore:= 3      case nForma= 2 .and. nMetodo= 3          nValore:= 6      otherwise          nValore:= 1    endcase  // ***** This do the trick ***** //    oControls[8...

... oCbx3:nAt, oCbx4:nAt, @nValore, aGet ) )   @ 540, 630 GET aGet[8] VAR nValore SIZE 100, 20 PIXEL RIGHT OF oDlg ;      SPINNER MIN 1 MAX 90 UPDATE                                      ;      VALID( nValore >= 1 .AND. nValore <= 90 )   ACTIVATE DIALOG oDlg ...

hi Silvio,

i would try aGet[8]:bMin

Code: Select all  Expand view

METHOD Spinner( bUp, bDown, bMin, bMax ) CLASS TGet

   If ::lReadOnly
      return nil
   Endif

   ::bMin := bMin
   ::bMax := bMax

... @nValore, aGet ) )   @ 540, 630 GET aGet[8] VAR nValore SIZE 100, 20 PIXEL RIGHT OF oDlg ;      SPINNER MIN 1 MAX 90 UPDATE                                     ...