FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Pregunta sobre Spinner
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Pregunta sobre Spinner
Posted: Thu Jun 23, 2011 11:45 AM

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. :lol:

Hay que hacer malabares o milagros para que salga?

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Pregunta sobre Spinner
Posted: Thu Jun 23, 2011 12:13 PM
Pues sí que funciona. Así es como lo tengo yo:

Code (fw): Select all Collapse
     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)
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Pregunta sobre Spinner
Posted: Thu Jun 23, 2011 03:34 PM
Hola,, si funciona...
Code (fw): Select all Collapse
       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
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: Pregunta sobre Spinner
Posted: Thu Jun 23, 2011 03:49 PM
Hola Manuel, Willi :

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

Code (fw): Select all Collapse
 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
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Pregunta sobre Spinner
Posted: Thu Jun 23, 2011 04:13 PM

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

Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: Pregunta sobre Spinner
Posted: Thu Jun 23, 2011 04:27 PM
No Manuel, no lo tengo activado, este es el rc :

Code (fw): Select all Collapse
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
}
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: Pregunta sobre Spinner
Posted: Thu Jun 23, 2011 07:54 PM
Hola de nuevo, Pedro:

Creo que sería algo así:

Code (fw): Select all Collapse
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.
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: Pregunta sobre Spinner
Posted: Fri Jun 24, 2011 10:13 AM
Pues tampoco Manuel, ni por esa sale el spinner, no lo entiendo.

Asi queda el RC
Code (fw): Select all Collapse
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.
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

Continue the discussion

Static archive · New replies & topics via GitHub Discussions