Pregunta sobre Spinner

[Pedro]

Hola a todos

Pues eso, me gustaría saber si la clausula spinner de los get sólo es válida en un get por código y no es válida en un get desde recurso.
Lo digo porque he intentado usarla en un diálogo, y ni flores, no pone el spinner en el get ni aunque le dispare.

Hay que hacer malabares o milagros para que salga?

[Manuel Aranda]

Pues sí que funciona. Así es como lo tengo yo:

Code: Select all  Expand view

     REDEFINE GET oAnyo VAR nAnyo ID 109 OF oDlg  ;
                 FONT oFont2;
                 PICTURE "@E 9999";
                 SPINNER ;
                 ON UP (nAnyo++,oAnyo:Refresh);
                 ON DOWN (nAnyo--,oAnyo:Refresh)

 

[Willi Quintana]

Hola,, si funciona...

Code: Select all  Expand view

       REDEFINE GET oCodId ;
                VAR nCodId ;
                PICTURE "99" ;
                SPINNER ON UP (nCodId++, oCodId:Refresh()) ON DOWN (nCodId--, oCodId:Refresh()) MIN 2 MAX 99 ;
                VALID(SetCodeGraba(oMySql, nRecc, nFPeso, nCodId, nFactor), nRecc := CadSetCodBar(oMySQL), .t. ) ;
                ID 111 OF oDlg

 

[Pedro]

Hola Manuel, Willi :

Pues a mi no me funciona, ignoro el motivo. Este es el código del diálogo :

Code: Select all  Expand view

DEFINE DIALOG oDlg RESOURCE "BONOS" FONT oApp:oFont TITLE "ASIGNACIÓN DE BONOS";
           COLOR RGB(0,0,51),RGB(176,196,222)
           
           REDEFINE SAY oSay[1] PROMPT "BONO Nº :" ID 101;
           COLOR RGB(0,0,51),RGB(176,196,222)  OF oDlg UPDATE        
           REDEFINE SAY oSay[2] PROMPT "PACIENTE"  ID 102;
           COLOR RGB(0,0,51),RGB(176,196,222)  OF oDlg UPDATE
           REDEFINE SAY oSay[3] PROMPT "SESIONES"  ID 103;
           COLOR RGB(0,0,51),RGB(176,196,222)  OF oDlg UPDATE  
           REDEFINE SAY oSay[4] PROMPT "IMPORTE"   ID 104;
           COLOR RGB(0,0,51),RGB(176,196,222)  OF oDlg UPDATE  

           REDEFINE SAY oSay[5] VAR aBonos[1] PICTURE "99,999" ID 4001 ;
           COLOR RGB(0,0,51),RGB(204,204,153)  OF oDlg UPDATE
         
           REDEFINE GET oGet[1] VAR aBonos[2] PICTURE "99999" ID 4002 ;
           COLOR RGB(0,0,51),RGB(255,255,102)  OF oDlg UPDATE
           
           REDEFINE GET oGet[2] VAR aBonos[3] PICTURE "@!" ID 4003 ;
           COLOR RGB(0,0,51),RGB(255,255,102)  OF oDlg UPDATE
           
           REDEFINE GET oGet[3] VAR aBonos[6] PICTURE "@E99" ID 4004 ;
           COLOR RGB(0,0,51),RGB(255,255,102)  OF oDlg;
           SPINNER ;
           ON UP (aBonos[6]++,oGet[3]:Refresh);
           ON DOWN (aBonos[6]--,oGet[3]:Refresh)
                   
           REDEFINE GET oGet[4] VAR aBonos[5] PICTURE "9,999.99" ID 4005 ;
           COLOR RGB(0,0,51),RGB(255,255,102)  OF oDlg UPDATE          
           
           REDEFINE BUTTONBMP ID 221 OF oDlg BITMAP "ACEPTAR" TEXTRIGHT ;
                    ACTION GrabarBono(aBonos),oDlg:End()

             REDEFINE BUTTONBMP ID 222 OF oDlg BITMAP "SALIR1" TEXTRIGHT  CANCEL ACTION oDlg:End()
           
         
   ACTIVATE DIALOG oDlg CENTERED

[Manuel Aranda]

Hola Pedro, en el recurso ¿tienes activada la propiedad "vert scrollbar" del apartado Windows Stiles ?
A ver si va a ser eso.

[Pedro]

No Manuel, no lo tengo activado, este es el rc :

Code: Select all  Expand view

BONOS DIALOG DISCARDABLE 6, 18, 210, 158
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "BONOS"
FONT 8, "MS Sans Serif"
{
  CONTROL "BONO Nº :", 101, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 16, 40, 12
  CONTROL "PACIENTE", 102, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 36, 40, 12
  CONTROL "SESIONES", 103, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 76, 40, 12
  CONTROL "IMPORTE", 104, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 96, 40, 12
  CONTROL "", 4001, "Static", SS_CENTERIMAGE|WS_BORDER|WS_TABSTOP, 60, 16, 40, 12
  CONTROL "Editbox", 4002, "Edit", WS_BORDER|WS_TABSTOP, 60, 36, 40, 12
  CONTROL "Editbox", 4003, "Edit", WS_BORDER|WS_TABSTOP, 16, 56, 180, 12
  CONTROL "Editbox", 4004, "Edit", WS_BORDER|WS_TABSTOP, 60, 76, 40, 12
  CONTROL "Editbox", 4005, "Edit", WS_BORDER|WS_TABSTOP, 60, 96, 40, 12
  CONTROL "OK", 221, "Button", WS_TABSTOP, 48, 132, 55, 15
  CONTROL "SALIR", 222, "Button", WS_TABSTOP, 116, 132, 55, 15
}

[Manuel Aranda]

Hola de nuevo, Pedro:

Creo que sería algo así:

Code: Select all  Expand view

CONTROL "Editbox", 4001, "Edit", ES_AUTOHSCROLL|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 34, 16, 40, 12
 

De cualquier manera, puedes editar el fichero .RC con PellesC y elegir la propiedad visualmente.

[Pedro]

Pues tampoco Manuel, ni por esa sale el spinner, no lo entiendo.

Asi queda el RC

Code: Select all  Expand view

BONOS DIALOG DISCARDABLE 6, 18, 210, 158
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "BONOS"
FONT 8, "MS Sans Serif"
{
  CONTROL "BONO Nº :", 101, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 16, 40, 12
  CONTROL "PACIENTE", 102, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 36, 40, 12
  CONTROL "SESIONES", 103, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 76, 40, 12
  CONTROL "IMPORTE", 104, "Static", SS_CENTERIMAGE|WS_GROUP, 16, 96, 40, 12
  CONTROL "", 4001, "Static", SS_CENTERIMAGE|WS_BORDER|WS_TABSTOP, 60, 16, 40, 12
  CONTROL "Editbox", 4002, "Edit", WS_BORDER|WS_TABSTOP, 60, 36, 40, 12
  CONTROL "Editbox", 4003, "Edit", WS_BORDER|WS_TABSTOP, 16, 56, 180, 12
  CONTROL "Editbox", 4004, "Edit", ES_AUTOHSCROLL|ES_AUTOVSCROLL|WS_BORDER|WS_TABSTOP, 60, 76, 40, 12
  CONTROL "Editbox", 4005, "Edit", WS_BORDER|WS_TABSTOP, 60, 96, 40, 12
  CONTROL "OK", 221, "Button", WS_TABSTOP, 48, 132, 55, 15
  CONTROL "SALIR", 222, "Button", WS_TABSTOP, 116, 132, 55, 15

Tanto si le pongo como si le quito el scroll, da lo mismo, el spinner no sale. Pero lo curioso es que al mirar el fichero .ppo lspinner si esta en .T. lo que significa que a la clase si va para que ponga el spinner.