Cosas de botones

[thefull]

¿ Es posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?

¿ Esta el soporte para el button tipo Split ?

¿ Puede crear dinamicamente botones en un dialogo de recursos ?

[karinha]

¿ Es posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?

¿ Esta el soporte para el button tipo Split ?

¿ Puede crear dinamicamente botones en un dialogo de recursos ?

Es posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?

Code: Select all  Expand view  RUN

        DEFINE BUTTON oBtnCliente OF OBAR RESOURCE "SCULLY"            ;
               MESSAGE "Inclusão dos Clientes nos Bancos de Dados"     ;
               ACTION ( Click(), oBtnCliente:Toggle(), CLIEIMOB(),     ;
                                 oBtnCliente:GoUp() )                  ;
               TOOLTIP "Manutenção dos Clientes-Use <Alt+A>"           ;
               NOBORDER GROUP                                          ;
               CENTER                                                  ;
               MENU MENU_CLIENTES_IMOBILIARIA()


Esta el soporte para el button tipo Split ?

ESTOU EN DUDA... SOLAMENTE ANTONIO LINARES... PERO, CREO QUE SI.

Puede crear dinamicamente botones en un dialogo de recursos ?

SI, SIN PROBLEMAS.

TE BASTA CREAR LOS BOTONES CON EL MISMO ID EN LAS MISMAS COORDENADAS E LLAMAR
DINAMICAMENTE E CAMBIAR EN TIEMPO REAL SE UNA TAREA SEA SATISFACTORIA.

DEBES USAR LOS COMANDOS HIDE() Y SHOW() PARA EL CONTROLE DEL MISMOS.

Saludos

[thefull]

¿ Es posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?

¿ Esta el soporte para el button tipo Split ?

¿ Puede crear dinamicamente botones en un dialogo de recursos ?

Karina.

1.- En Fivewin es posible usando la clase TBtnBmp, ejemplo;

Code: Select all  Expand view  RUN

     
REDEFINE BTNBMP aButtons1[1] ACTION ( Aeval( aButtons1, {|o| o:GoUp() } ),aButtons1[1]:GoDown()  ) ID 101 OF oDlg
     REDEFINE BTNBMP aButtons1[2] ACTION ( Aeval( aButtons1, {|o| o:GoUp() } ),aButtons1[2]:GoDown()  ) ID 102 OF oDlg
     REDEFINE BTNBMP aButtons1[3] ACTION ( Aeval( aButtons1, {|o| o:GoUp() } ),aButtons1[3]:GoDown()  ) ID 103 OF oDlg
     REDEFINE BTNBMP aButtons1[4] ACTION ( Aeval( aButtons1, {|o| o:GoUp() } ),aButtons1[4]:GoDown()  ) ID 104 OF oDlg
     REDEFINE BTNBMP aButtons1[5] ACTION ( Aeval( aButtons1, {|o| o:GoUp() } ),aButtons1[5]:GoDown()  ) ID 105 OF oDlg
     REDEFINE BTNBMP aButtons1[6] ACTION ( Aeval( aButtons1, {|o| o:GoUp() } ),aButtons1[6]:GoDown()  ) ID 106 OF oDlg

     aButtons1[1]:GoDown()



En este ejemplo, solo uno puede estar activado, y por defecto , el primero esta en ese estado.
El problema es que se pierde la estética, sería interesante modificar el pintado de esta clase para que cree un botón identico al Windowsl.

2- Button Split es de Windows Vista, ni tan siquiera se muestra en un XP, asi que me olvido.

3.- No me refiero a Show()/Hide(), si no, a crearlos en un dialogo de recursos, algo asi;

DEFINE DIALOG oDlg NAME "TEST"
REDEFINE BUTTON oBtn ID 101 OF oDlg
@100,100 BUTTON oBtn2 PROMPT "HELOO" OF oDlg

En la lógica, dice que debería funcionar.....pero.... todavía no lo he probado.