Cambio dinamico de color en Say (SOLUCIONADO)

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Cambio dinamico de color en Say (SOLUCIONADO)
Posted: Fri Feb 26, 2010 10:42 PM

Hola gente
Tengo definido un SAY con un determinado color, que tiene la clausula UPDATE
Mas adelante, cambio el texto y pretendo cambiar el color haciendo:

oSay:SetText( "nuevo texto )
oSay:SetColor( CLR_HRED )
oSay:Refresh
y mantiene el color inicial
Tambien probe con:
oSay:Hide()
oSay:SetText( "nuevo texto )
oSay:SetColor( CLR_HRED )
oSay:Refresh()
tampoco funciona

Cual es la manera?, si la hay
gracias

USO FWH FWHX 2.7 December 2005 :oops:

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Cambio dinamico de color en Say
Posted: Fri Feb 26, 2010 10:59 PM

Hola Mario

te falta el segundo parametro del setcolor( nClrText, nClrBack ), si quieres mantener el mismo "fondo" has lo siguiente

oSay:SetColor( CLR_RED, oSay:nClrPane )

aprovecho la oprtunidad para decirte que fivetech tiene una version "minima" disponible, es mas reciente a la que usas actualmente, la puedes decargar desde la pagina oficial de fivetech
http://www.fivetechsoft.com/english/downloads.html

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Cambio dinamico de color en Say
Posted: Sat Feb 27, 2010 09:33 PM

Daniel;
Gracias por la respuesta.
Tambien por el dato

Saludos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Cambio dinamico de color en Say
Posted: Mon Nov 18, 2013 11:05 PM

Gente;
Retomo este tema porque al parecer, hace 2 años atras no lo solucione

Tengo la siguiente situacion;

Code (fw): Select all Collapse

    REDEFINE RADIO saO[_Radio1] VAR ::nDocForma ID 102,103 OF ::oDlgV UPDATE ;
            WHEN  Empty( ::aArticulos[1][_CodArt] ) ;
            ON CHANGE ( saO[_STOTAL ]:SetColor( if( ::nDctoTipo==_NDEBITO, CLR_HRED, CLR_HGREEN ), saO[_STOTAL ]:nClrPane ), ;
                        saO[_STOTAL ]:Refresh() )
   ...
   REDEFINE SAY  saO[_STOTAL ] VAR ::hDatDcto["TOTAL"]    ID 32 OF ::oDlgV PICTURE PIC_OCHOCIF0 UPDATE ;
            FONT ::hFont["Calibri40B"]

Tambien probe haciendo

Code (fw): Select all Collapse

... 
   ON CHANGE ( saO[_STOTAL ]:nClrText:=  if( ::nDctoTipo==_NDEBITO, CLR_HRED, CLR_HGREEN ), ;
               saO[_STOTAL ]:Colors( saO[_STOTAL ]:hDC ),  saO[_STOTAL ]:Refresh() )

Sin exito
Se puede?, como?
gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

cuatecatl82

Posts: 625

Joined: Wed Mar 14, 2007 06:49 PM

Re: Cambio dinamico de color en Say
Posted: Tue Nov 19, 2013 01:49 AM

Prueba haciendo esto:

Code (fw): Select all Collapse

STATIC FUNCTION SayDinamico()
LOCAL oDlg,oSay,oTmr

  DEFINE  DIALOG    oDlg    RESOURCE "UPDATE" TRANSPARENT
  DEFINE  TIMER     oTmr    INTERVAL 200 ACTION(ChangeColor(oSay))
REDEFINE  SAY       oSay    ID 101   PROMPT   "Cambiando de Color"
 ACTIVATE TIMER     oTmr
 ACTIVATE DIALOG    oDlg 

RETURN Nil

STATIC FUNCTION ChangeColor( oSay )

STATIC lStatus := .F.
   
   IF lStatus
      oSay:SETCOLOR( "0" )
   ELSE  
      oSay:SETCOLOR( "R+/W*" )
   ENDIF

   oSay:Refresh()
   lStatus = ! lStatus

RETURN Nil

A mi me funciona desde recurso.. Saludos..

Soluciones y Diseño de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Cambio dinamico de color en Say
Posted: Wed Nov 20, 2013 12:10 PM

No me funciona aplicando :SetColor() ni dando valor a :nClrText y luego aplicando:Colors()
Cual puede ser el problema?

gracias

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Cambio dinamico de color en Say
Posted: Wed Nov 20, 2013 11:53 PM

toc...toc
otra forma?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: Cambio dinamico de color en Say (SOLUCIONADO)
Posted: Fri Nov 22, 2013 02:33 PM

NOOOOOOOOOOOOOOOOOOOOO! ... estoy lgual que Luis (Mostrar xBrowse filtrado....)

Tengo 2 Radiobox. Pretendiendo cambiar el color de un Say de acerudo a la seleccion del Radio.... solo que evaluaba el SetColor() al cambiar el Radio1; cuando debía hacerlo con el Radio2!!! ... que papelon! :oops:
Por suerte me puse a preparar un sample para mostrar, y como anduvo, no me quedo otra que mirar mi codigo con mas atención!
Agrego; usando :nClrText:= nnn y :Colors( hDC ), tambien funciona!... como no podía ser de otra manera :oops:

...gracias a lso 50 y tantos que lo leyeron!

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

FiveTech Support Forums

Continue the discussion