topic-21473

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) ]

acuellar

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.

leandro

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) ]

Cgallegoa

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***

leandro

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) ]

FiveTech Support Forums

Continue the discussion