Una sobre SBUTTONS

[Loren]

Compañeros:

Tengo un Dialogs con 8 SButtons. Necesio que cuando se pinche sobre 1 de ellos, cambie de color aparentando de que está activado, conservando el resto de los botones el color original.
Utilizo la clase SButton 6.2

Mil gracias.
LORENZO.

[mmercado]

Tengo un Dialogs con 8 SButtons. Necesio que cuando se pinche sobre 1 de ellos, cambie de color aparentando de que está activado, conservando el resto de los botones el color original.
Utilizo la clase SButton 6.2

Hola Lorenzo:

oBtn:nClrBack := {|| If( oBtn:lFocused, CLR_YELLOW, CLR_WHITE ) }

Saludos.

Manuel Mercado

[miragerr]

Maestro MANUEL

Estoi usando la ultima version de TSBUTTON como faço para que, quando DESABLED o mesmo fique igual ao BUTTON do FWH, na color griz

[mmercado]

Estoi usando la ultima version de TSBUTTON como faço para que, quando DESABLED o mesmo fique igual ao BUTTON do FWH, na color griz

Hola Jackson:

Revisa tu correo y coméntame si se resolvió el problema.

Todas tus observaciones serán bienvenidas.

Saludos.

Manuel Mercado

[cuatecatl82]

Saludos Estimado Manuel Mercado:

Estoy trabajando con mi nuevo proyecto y estoy implantando los SButtons 6.2 y esta quedando bastante bien, son fenomenales, pero se me presento una inquietud..

Estoy tratando de paramerizar los botones deacuerdo a la configuracion de cada usuario en un archivo .ini, es decir, es posible que a alguien le gusten los botones en estilo OFFICE CRYSTAL o SUNSET, tambien que los Prompts esten en diferentes posiciones, cuestion de gustos.

Lo estoy trabajando así y trabajan bien, pero sin ser parametrizados:

Code: Select all  Expand view  RUN

REDEFINE SBUTTON oBtn1 ID 107 PROMPT "Aceptar"  OF oDlg OFFICE  TEXT ON_BOTTOM NOBORDER
REDEFINE SBUTTON oBtn2 ID 108 PROMPT "Cancelar" OF oDlg SUNSET  TEXT ON_TOP    NOBORDER
REDEFINE SBUTTON oBtn3 ID 109 PROMPT "Ayuda"    OF oDlg CRYSTAL TEXT ON_RIGHT  NOBORDER


Sería posible tratar de parametrizarlos de esta forma:

Code: Select all  Expand view  RUN

Local cEstilo:= "CRYSTAL"   ->Definido por la configuracion del Usuario 
Local  cTexto:= "ON_LEFT"   ->Definido por la configuracion del Usuario

REDEFINE SBUTTON oBtn1 ID 107 PROMPT "Aceptar"  OF oDlg cEstilo TEXT cTexto NOBORDER
REDEFINE SBUTTON oBtn2 ID 108 PROMPT "Cancelar" OF oDlg cEstilo TEXT cTexto NOBORDER
REDEFINE SBUTTON oBtn3 ID 109 PROMPT "Ayuda"    OF oDlg cEstilo TEXT cTexto NOBORDER


Alguien por ahi me dijo hace poco que soy una persona "cremosa", que me gusta hacer cosas raras con la programación, talvez tengan razón, pero me gusta que los usuarios interactuen con las configuraciones de los programas y trabajen a gusto.

Ojala y se pueda y me pueda orientar como hacerlo..

Saludos desde Chiapas...

[quique]

Victor, no conozco esta clase, pero es muy fácil, hay dos opciones

1. Crea el botón utilizando las funciones en lugar del comando, como te digo, no conozco la clase, pero podría ser oBtn1 := tSButton():new(...)

2. Modifica la definición de los comandos para que ahí agregues tu configuración

[mmercado]

Estoy tratando de paramerizar los botones deacuerdo a la configuracion de cada usuario en un archivo .ini, es decir, es posible que a alguien le gusten los botones en estilo OFFICE CRYSTAL o SUNSET, tambien que los Prompts esten en diferentes posiciones, cuestion de gustos.

Hola Víctor:

Con la posición del texto usando "cTexto" no hay problema ya que el mandato lo trata como una variable, pero en el caso de la forma del botón "cEstilo" no es posible ya que se trata de una Constante.

Sin embargo, revisa tu correo a ver si con el cambio que allí te propongo puedes conseguir lo que quieres.

Otra solución sería la que acertadamente propone Quique.

Saludos.

Manuel Mercado

[cuatecatl82]

Buenos días Manuel Mercado:

Gracias por responder a mi peticion, he revisado mi correo pero no tengo mensajes de usted, le agradecería si fuera posible que lo reenviara de nuevo, o si es posible publicarlo aki.. de todas maneras todavia estoy trtando de ver que otras opciones puedo tener.

Quique:

Es buena idea la que propones, vere de que forma los instalo en mi aplicación, lo que pasa es que de clases estoy en primaria, todavia no le agarro bien la onda de como interpretarlos, por lo pronto ya tengo trabajo para este fin de semana...


Saludos y Gracias de Nuevo..

[cuatecatl82]

Manuel Mercado:

Ya llego el correo y probe las modiciaciones, funciona de maravillas , solo queda por resolver lo del estilo, vere como puedo hacer para que funcione..

Gracias..

Quique:

Si puedes y tienes tiempo baja la clase y pruebala, te vas a quedar sorprendido de la calidad que tienen , no dudes en implementarla en tus aplicaciones, luego me comentas.


Quien dice que no hay mentes brillantes mexicanas..?

Gracias Manuel por tomar un momento de tu tiempo para responder a mi solicitud..

Saludos desde las lluviosas tierras de Chiapas..

[quique]

Es buena idea la que propones, vere de que forma los instalo en mi aplicación, lo que pasa es que de clases estoy en primaria, todavia no le agarro bien la onda de como interpretarlos, por lo pronto ya tengo trabajo para este fin de semana...

No necesitas saber de clases, es clipper simple y puro, simplemente revisa el archivo .ch que viene con la clase, es donde se definen los comandos, busca el comando que necesitas y ya sea que modifiques el comando o que copies la traducción a funición en tu programa y listo. Tal vez lo mejor sea lo primero, ya que de esta manera podrás utilizar la modificación en todos tus programas modificando solo una vez, con la segunda, tendrías que aprenderte los argumentos que debes de mandar o estar revisando el acordeon cada vez que la utilices