FiveTech Software tech support forums

Posted: **Thu Feb 21, 2008 11:01 am**

Muy buenas, pues eso me gustaría cambiar el color de un Say pero en tiempo de diseño.yo utilizo:

redefine say oSayColor id 199 of oDlg font oFontTahoma transparent border pixel COLOR 0,0

redefine button aoBtns[3] id 303 of oDlg action (nColor:=ChooseColor(nColor),msginfo(nColor),oSayColor:setcolor(nColor,nColor),oSayColor:refresh())

Pero no me lo cambia.

Un Saludo.

Posted: **Thu Feb 21, 2008 11:28 am**

Prueba lo siguiente:

Code: Select all

Local Pintado

REDEFINE SAY oSay ID 115 OF oDlg COLOR Pintado

REDEFINE BTNBMP Btn1 ID 200 OF oDlg ACTION RefrescarSay(oSay,Pintado)
...

Code: Select all

Function RefrescarSay(oSay,Pintado)

oSay:ChooseColor(Pintado) // Aquí seleccionas el color que deseas 
oSay:SetColor(Pintado)
oSay:Refresh()

Return nil

Yo lo hago así y me funciona.
Espero te sirva.
Saludos desde Argentina, Esteban

Posted: **Thu Feb 21, 2008 4:06 pm**

Asi tampoco funciona.
¿Sabeis otra forma?
UnSaludo.

FiveTech Software tech support forums

Cambiar color de un say en tiempo de diseño

Cambiar color de un say en tiempo de diseño

No se porque