#define BrowseStyleHead HStyle():New( { 4339747,4339747,4339747, 12632256 }, 1,, 0.4, 16759929 )
#define OwnerbuttonStyle { HStyle():New( {0, 0}, 1,{8,8,8,8}, ), HStyle():New( {0, 0, 0, 16777215}, 1,{8,8,8,8}, 0, 0 ), HStyle():New( {0, 0}, 1,{8,8,8,8}, ) }
#define OwnerbuttonStyleMenu { HStyle():New( {0, 0}, 1,{8,8,8,8}, ), HStyle():New( {0, 0, 0, 16777215}, 1,{8,8,8,8}, 0, 0 ), HStyle():New( {0, 0}, 1,{8,8,8,8}, ) }
#define OwnerbuttonStyleNoBorder { HStyle():New( {0, 0}, 1,{8,8,8,8}, ), HStyle():New( {0, 0, 0, 16777215}, 3,{8,8,8,8}, 0, 0 ), HStyle():New( {0, 0}, 1,{8,8,8,8}, ) }
#define OwnerbuttonLupa { HStyle():New( {16777215}, 1,, ), HStyle():New( {16777215}, 1,, 2, 0 ), HStyle():New( {16777215}, 1, ) }
#define OwnerbuttonPrinter { HStyle():New( {16777215}, 1,, ), HStyle():New( {16777215}, 1,, 2, 0 ), HStyle():New( {16777215}, 1, ) }
#define GradienteColor {4339747,4339747,4339747, 4339747}
#define OwnerbuttonLogin1 { HStyle():New( {2631720}, 1,, 1 ), HStyle():New( {1842204}, 2,, 1 ), HStyle():New( {04210752}, 1,, 2, 16777215 ) }
#define OwnerbuttonLogin2 { HStyle():New( {0}, 1,, ), HStyle():New( { 0}, 1,, 2, 16777215 ), HStyle():New( {0}, 1,, 2, 16777215 ) }
#define OwnerbuttonLogin3 { HStyle():New( {0},,,), HStyle():New( { 0},,,, 16777215 ), HStyle():New( {0},,,,) }
#define PanelMenuColor HStyle():New( { 4339747,4339747,4339747,4339747},, {8,8,8,8} )
#define BrowseBarColorPrimary {0,16777215,16777215,8421504 }
#define BrowseBarColorSecondary {255, 16777215 ,16777215,255 }
#define DashboardPanelColor HStyle():New( { 4339747,4339747,4339747, 12632256}, 1, , 1, 16759929 )
quintas tenho usado as cores assim , facilita as mudancas
criei um .ch de cores CORES.CH
Uso os OwnnerButton assim
@ 5,10 OWNERBUTTON oOwnerbutton1 OF oPanel1 SIZE 73,63 ;
ON CLICK {|| ::CADASTRO_PRODUTOS_MANUTENCAO( "INCLUIR" ), oPage1:oBrowse1:aArray := ::CADASTRO_PRODUTOS_MANUTENCAO_CARREGA( "ORDER BY " + cAlvo_Consulta ), ::CADASTRO_PRODUTOS_MANUTENCAO_onDlgInit( oDlg ), oPage1:obrowse1:REFRESH()};
FLAT ;
TEXT 'Inclui' COLOR 16777215 ;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource('add-file-256-30') ;
COORDINATES 0, 5, 0, 0 ;
TOOLTIP 'Incluir novo Produto'
oOwnerbutton1:aStyle := OwnerbuttonStyle