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

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 02:54 PM

Alguna solucion?
gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 03:15 PM

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

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 03:35 PM

Code (fw): Select all Collapse

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 03:37 PM

Goosfancito

CAMBIAR(oTEXTO)

no por referencia, saca el @

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 03:51 PM

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 04:00 PM

Code (fw): Select all Collapse

      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ó.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 04:04 PM

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 04:06 PM

Ó

Code (fw): Select all Collapse

   REDEFINE SAY  oSay VAR oTexto ID 500 update OF oDlg

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

goosfancito

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: no me funciona el oSay:setcolor(...) en tiempo de ejecucion.
Posted: Wed Jun 11, 2014 04:18 PM

gracias funcionó de las dos formas Karihna.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums

Continue the discussion