Cambiar color de un say en tiempo de diseño

[softruz]

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.

[jrestojeda]

Prueba lo siguiente:

Code: Select all  Expand view  RUN

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  Expand view  RUN

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

[softruz]

Asi tampoco funciona.
¿Sabeis otra forma?
UnSaludo.