no me funciona el oSay:setcolor(...) en tiempo de ejecucion.

[goosfancito]

Alguna solucion?
gracias.

[Adolfo]

Goosfancito

Asi.

oSayCli:SetColor( CLR_BLUE,oSayCli:nClrPane)
oSayCli:Refresh()

Ahi cambias el color de la fuente y el fondo queda igual. En tiempo de ejecucion

PD: Recuerda crear el Say con la clausula UPDATE

[goosfancito]

Code: Select all

local oTexto, oBtns

REDEFINE SAY oTexto ID 500 update OF oDlg

redefine button obtns id 200 of odlg:

oBtns:bAction:={ || cambiar(@oTexto) }
...

function cambiar(oTexto)
   oTexto:SetColor(CLR_BLUE, oTexto:nClrPane)
   oTexto:refresh()
return (nil)

no me anda.

[Adolfo]

Goosfancito

CAMBIAR(oTEXTO)

no por referencia, saca el @

[karinha]

Code: Select all

   oSay:bLClicked  = { || oSay:SetColor( CLR_WHITE, GetSysColor( COLOR_BTNFACE ) ),;
                          oSay:Refresh(), MsgInfo( "Hello" ) }
 

[goosfancito]

Code: Select all

      REDEFINE btnbmp oBtnsColores[01] ID 201 OF oDlg action(vGets[3]:="01", otexto:SetColor(CLR_BLUE, oTexto:nClrPane), oTexto:refresh())

Esto no me funciona. no se que pasa pero vi en varios post que no les funcionó.

[karinha]

Code: Select all

local oTexto, oBtns

REDEFINE SAY oTexto ID 500 update OF oDlg

redefine button obtns id 200 of odlg:

oBtns:bAction:={ || cambiar(oTexto, oDlg) }
...

function cambiar(cTexto, oDlg)

   cTexto:SetColor(CLR_BLUE, cTexto:nClrPane)
   cTexto:refresh()

   oDlg:Update()
   oDlg:Refresh() 

 

[karinha]

Ó

Code: Select all

   REDEFINE SAY  oSay VAR oTexto ID 500 update OF oDlg
 

[goosfancito]

gracias funcionó de las dos formas Karihna.