Se puede cambiar el color de los botones ?

[astursoft]

Tengo un boton creado con recursos , al que quiero cambiar de color , para que se vea un estado del programa

con obtn:setcolor(rgb(192,192,192),rgb(200,200,200)) por ejemplo no me funciona .
Como sería ?

[Antonio Linares]

Jose Luis,

Normalmente no se le puede cambiar el color a los botones estandard.

Puedes usar un botón TBtnBmp y le cambias el bitmap, para representar otro estado.

[astursoft]

Buena idea la del btnbmp .
Lo he intentado hacer con un say , pero tampoco consiguo cambiar el color , se puede ? Cual es el procedimiento ?

[Carles]

Hola Jose Luis,

Me parecer haber probado en el comando @, SAY... la clausula COLOR CLR_BLACK, CLR_??? y funcionaba correctamente


Saludos.
C.

[astursoft]

Si eso funciona , pero una vez puesto un color y mostrado el say , cambiarlo desde un boton ( por ejemplo ) ACTION osay:setColor( rgb(192,192,192),rgb(200,200,200) )

Eso me da que no va .

Otra cosa , que no he comprobado tampoco ( lo debo verificar , pero me parece que falla ) , en los btnbmps , dos btnBmp mismo codigo en los dos mismo bmp en los dos , pero con una diferencia uno es un bmp archivo y el otro esta dentro del RC ( llamado con clausula NAME ) el del archivo coje la trasparencia del bmp y el del recurso no .
Si alguien lo puede verificar , no vaya a ser yo ....
Que coste que comento estos pequeños bugs para que Antonio tome nota y los resuelva a su ritmo ( nada de dar prisas )
Saludso.

[Carles]

Si haces un :Refresh() te tiene q funcionar

function Main()

local oWnd, oFont, oSay

DEFINE WINDOW oWnd TITLE "Tutor05"

@ 1, 2 SAY oSay PROMPT "Create DBF Test" SIZE 100, 40 COLOR "R+/B"

@ 5, 2 BUTTON "&Color" ;
ACTION ( oSay:SetColor( CLR_BLUE, CLR_RED ), oSay:Refresh() )


ACTIVATE WINDOW oWnd

return nil


Saludos.
C.

[astursoft]

Tienes razon , me faltaba el refresh() ( la falta de esperiencia en esto del pocket), por eso digo lo de comprobarlo por otro lado .
Si puedes comprobar lo del btnbmp , te lo agradezco , no vaya a estar reportando bugs inexistentes .
Saludso.
y Gracias por perder el tiempo conmigo.