Page 1 of 1
no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 2:54 pm
by goosfancito
Alguna solucion?
gracias.
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 3:15 pm
by 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
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 3:35 pm
by 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.
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 3:37 pm
by Adolfo
Goosfancito
CAMBIAR(oTEXTO)
no por referencia, saca el @
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 3:51 pm
by karinha
Code: Select all
oSay:bLClicked = { || oSay:SetColor( CLR_WHITE, GetSysColor( COLOR_BTNFACE ) ),;
oSay:Refresh(), MsgInfo( "Hello" ) }
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 4:00 pm
by 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ó.
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 4:04 pm
by 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()
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 4:06 pm
by karinha
Ó
Code: Select all
REDEFINE SAY oSay VAR oTexto ID 500 update OF oDlg
Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 4:18 pm
by goosfancito
gracias funcionó de las dos formas Karihna.