FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambiar Color TSBUTTON al hacer click
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Cambiar Color TSBUTTON al hacer click
Posted: Wed May 04, 2011 01:44 PM

Buen dia para todos.

Como dice el titulo necesito cambiar el color del tsbutton al hacer click. No he encontrado la solucion en el foro.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Cambiar Color TSBUTTON al hacer click
Posted: Wed May 04, 2011 03:15 PM
Leandro
asi:
Code (fw): Select all Collapse
COLOR {|oBtn| If(oBtn:lPressed,CLR_GREEN,CLR_BLACK) }


Saludos,

Adhemar
Saludos,



Adhemar C.
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Cambiar Color TSBUTTON al hacer click
Posted: Wed May 04, 2011 03:52 PM
Adhemar Muchas Gracias por responder, el codigo funciona pero..... resulta que estoy usando la clausula COLORS, así
Code (fw): Select all Collapse
   REDEFINE SBUTTON oBtn_5 ID 4020 OF oCuadro PROMPT "Cajon" COLORS CLR_BLACK, nRGB(198,  8,8), nRGB( 147, 60, 60 ) OFFICE FONT oFont0 ACTION oLamcla:autoriza(192)

Resulta que no logro hacer que funcione la que enviaste. Ya intente de varias maneras y no me funciona. Hasta coloque la clausula en ONCLICK pero nada.
Existe otra forma que hacerlo? o otra forma de escribir el codigo?
Gracias
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: Cambiar Color TSBUTTON al hacer click
Posted: Wed May 04, 2011 06:16 PM
Leandro, este ejemplo cambia el color del botón (Fondo y Caption):

Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "c:\lib\fivew_cg\tsbutton\include\TSButton.ch"

Function Inicio()
  LOCAL oDlg, oBtn1, oBtn2, lClicked := .T., oSay1, cTxt:="Fondo nRGB(198,8,8) - Caption Azul"
  DEFINE DIALOG oDlg FROM 0,0 TO 200,360 PIXEL

     @ 20,20 SBUTTON oBtn1 PROMPT "Azul" OF oDlg PIXEL SIZE 50,15;
         COLORS CLR_BLUE, nRGB(198,  8, 8), nRGB( 147, 60, 60 ) OFFICE;
         ACTION (oSay1:VarPut(iif(lClicked,"Fondo nRgb(0,0,25) - Caption Amarillo","Fondo nRGB(198,8,8) - Caption Azul")),;
                 oSay1:Refresh() ,lClicked:=iif(lClicked,.F.,.T.) )

      oBtn1:bLClicked := {||oBtn1:nClrFore(iif(lClicked,CLR_YELLOW,CLR_BLUE)),;
                            oBtn1:nClrBack(iif(lClicked,nRGB(0,0,25),nRGB(198,8,8))),;
                            oBtn1:nClrBord(iif(lClicked,nRGB(255,255,255),nRGB(147,60,60))),;
                            oBtn1:cCaption := iif(lClicked,"Amarillo","Azul")}

     @ 22,80 SAY oSay1 PROMPT cTxt OF oDlg PIXEL

     @ 50,20 SBUTTON oBtn2 PROMPT "Salir" OF oDlg PIXEL SIZE 50,15;
         ACTION oDlg:End();
         COLORS CLR_BLACK, nRGB( 198, 8, 8 ), nRGB(147, 60, 60) OFFICE

  ACTIVATE DIALOG oDlg CENTERED
Return(NIL)

Cuéntame si te sirvió.

Saludos,
Carlos Gallego

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Cambiar Color TSBUTTON al hacer click
Posted: Wed May 04, 2011 08:28 PM

Carlos Gracias de nuevo por responder

Pues si cambia el color del boton y en teoria eso fue lo que pregunte, pero lo que pasa es que estamos trabajando con un monitor touch y quiero dar el efecto del toque del boton al momento de presionarlo, pero que vuelva a su color normal con este codigo me cambia totalmente el color del boton.

Espero haberme hecho entender.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion