FWH 9.12 - BTNBMP 2007 Cor de Fundo

[MGA]

Sr. Antonio, estou com a nova vs do FWH, e não estou conseguindo mudar a cor de fundo do botão. ex:

@ 02,10 btnbmp oBtn prompt "teste" top size 60,64 of oWndc 2007

obtn:setcolor(CLR_WHITE,CLR_RED)

[ICO]

Ola SGS
Para alterar a cor Retire o 2007 e se vc. tiver mais de um botão na dialog mude o objeto de cada um tipo assim

Code: Select all  Expand view

Local obtn[3]

...obtn[1]
...obtn[2]
...obtn[3]

Abraços..

[MGA]

Mais usando o 2007, NÃO É POSSÍVEL ALTERAR A COR DE FUNDO DO BOTÃO?

[Antonio Linares]

Aqui tienes un ejemplo de como hacerlo:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd, oBtn

   DEFINE WINDOW oWnd

   @ 5, 10 BTNBMP oBtn PROMPT "teste" TOP SIZE 60, 64 OF oWnd 2007
   
   oBtn:bClrGrad = { | lMouseOver | If( ! lMouseOver,;
                                    { { 0.5, RGB( 69, 124, 188 ), RGB( 41, 93, 171 ) }, ;
                                      { 0.5, RGB( 26, 64, 136 ), RGB( 56, 135, 191 ) } },;
                                    { { 0.5, RGB( 123, 178, 236 ), RGB( 71, 126, 205 ) }, ;
                                      { 0.5, RGB( 17, 78, 175 ), RGB( 128, 225, 255 ) } } ) }

   ACTIVATE WINDOW oWnd

return nil
 

Al pasar el ratón por encima del botón:

[MGA]

obrigado Sr. Antonio.