GET SPINNER height

[Enrico Maria Giordano]

Is it possible to reduce the height of a GET with SPINNER? This is a sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

   LOCAL oDlg

   LOCAL oGet, nVar := 10

   DEFINE DIALOG oDlg

   @ 1, 1 GET oGet VAR nVar;
          PICTURE "99";
          SPINNER MIN 6 MAX 99;
          SIZE 100, 10

   @ 3, 1 BUTTON "&Close";
          ACTION oDlg:End()

   ACTIVATE DIALOG oDlg;
            CENTER

   RETURN NIL

EMG

[Rossine]

Hi Enrico,

Try this:

Code: Select all  Expand view  RUN

   ACTIVATE DIALOG oDlg;
            CENTER on init oGet:nHeight := 10



Regards

Rossine.

[Enrico Maria Giordano]

Thank you, it works!

EMG