Usei programa pra hackear cores.
Disse que poderia ser parecido, então.....
#include "hbgtinfo.ch"
PROCEDURE Main
aPalette := hb_gtInfo( HB_GTI_PALETTE )
aPalette[ 2 ] := RGB( 57, 109, 165 )
aPalette[ 3 ] := RGB( 0, 133, 133 )
hb_gtInfo( HB_GTI_PALETTE, aPalette )
SetColor( "W/B" )
CLS
@ 0, 0 SAY ""
@ Row()+1, 0 SAY "Registrado para"
@ Row()+1, 0 SAY "Name.......: Versao Demonstracao"
@ Row()+1, 0 SAY "City.......: Osasco"
@ 5, 2 TO 10, 40
SetColor( "W/G" )
@ 6, 6 SAY "A-Cadastro"
SetColor( "W/B" )
@ 7, 6 SAY "B-Outra coisa"
Toolbar()
Inkey(0)
RETURN
STATIC FUNCTION Toolbar()
LOCAL oToolbar
oToolbar := WvgToolBar():New( wvgSetAppWindow(), , { 0, 0 }, { 0, 0 }, , .T. )
oToolbar:style := WVGTOOLBAR_STYLE_FLAT
oToolbar:borderStyle := WVGFRAME_RECT
oToolbar:buttonWidth := 32
oToolbar:buttonHeight := 32
oToolbar:imageWidth := 32
oToolbar:imageHeight := 32
oToolbar:showToolTips := .T.
oToolbar:Create()
oToolbar:addItem( "1st button", "policial.bmp" )
oToolbar:AddItem( "2nd button", "policial.bmp" )
oToolbar:AddItem()
oToolbar:AddItem( "3nd button", "policial.bmp" )
oToolbar:AddItem( "4th button", "policial.bmp" )
oToolbar:AddItem( "5th button", "policial.bmp" )
oToolbar:AddItem()
oToolbar:AddItem( "6th button", "policial.bmp" )
oToolbar:AddItem( "7th button", "policial.bmp" )
// oToolbar:ButtonClick := { | oBtn | __Keyboard( Chr( K_HOME ) + oBtn:Caption ), Msg( "Click on toolbar" + HB_EOL() + oBtn:Caption, "toolbar" ) }
RETURN NIL
No Harbour 3.2, compilar com hbmk2 test gtwvg.hbc