FiveTech Software tech support forums

Posted: **Thu Jan 17, 2008 1:01 pm**

¿ 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 ?

Posted: **Thu Jan 17, 2008 3:19 pm**

thefull wrote:¿ 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

        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

Posted: **Fri Jan 18, 2008 8:37 am**

thefull wrote:¿ 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

     
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.

FiveTech Software tech support forums

Cosas de botones

Cosas de botones

Re: Cosas de botones

Re: Cosas de botones