INIT DIALOG oMENUPRINC TITLE "SGC - SISTEMA DE GESTÃO DE COMÉRCIO" ;
ICON HIcon():Addresource('SGC_ICON') ;
AT 0, 0 SIZE 1088,1021 FONT oFont ;
STYLE WS_OVERLAPPEDWINDOW;
BACKCOLOR 8421504
@ 0,0 PANEL oPanel1 SIZE 1088,80 ;
BACKCOLOR 13400576
oPanel1:Anchor:=130
@ 0,1 PANEL oPanel2 OF oPanel1 SIZE 201,78 ;
ON PAINT {|| Gradiente( oPanel2, 0, 0, 201, 78, 4, {13400576, 0} ) }
@ 80,6 BITMAP oBitmap1 SHOW HBitmap():AddFile('c:\sgcv80\white_icon\sgc-32.bmp') STRETCH 0 ;
OF oPanel2 SIZE 40,40
@ 7,50 SAY oLabel1 CAPTION "SGC v8.0" OF oPanel2 SIZE 187,22 STYLE SS_CENTER;
FONT HFont():Add( '',0,-19,400,,,);
COLOR 16777215 BACKCOLOR 16777215 TRANSPARENT
@ 0,80 PANEL oPanel3 SIZE 201,941 ;
ON PAINT {|| Gradiente( oPanel3, 0, 0, 201, 1071, 4, {8421504, 0} ) }
oPanel3:Anchor:=65
@ 2,10 OWNERBUTTON oButton1 OF oPanel3 ON CLICK {||ProdutosClass():new(oServer):Produtos_Manutencao()} ;
SIZE 195,41 FLAT ;
TEXT 'Produtos' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\product-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton1:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,57 OWNERBUTTON oButton2 OF oPanel3 ON CLICK {||CadastrosClass():new(oServer):Cadastros_Manutencao()} ;
SIZE 195,41 FLAT ;
TEXT 'Cadastros' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\group-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton2:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,104 OWNERBUTTON oButton3 OF oPanel3 ON CLICK {||VendedoresClass():new(oServer):Vendedores_Manutencao()} ;
SIZE 195,41 FLAT ;
TEXT 'Vendedores' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\workers-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton3:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,151 OWNERBUTTON oButton4 OF oPanel3 ON CLICK {||PedidoCompraClass():new(oServer):Compra_Manutencao()} ;
SIZE 195,41 FLAT ;
TEXT 'Compras' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\buy-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton4:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,198 OWNERBUTTON oButton5 OF oPanel3 ON CLICK {||EntradaClass():new(oServer):Entrada_Manutencao()} ;
SIZE 195,41 FLAT ;
TEXT 'Compras' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\truck-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton5:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,245 OWNERBUTTON oButton6 OF oPanel3 ON CLICK {||TransferenciaClass():new(oServer):Transferencia_Manutencao()} ;
SIZE 195,41 FLAT ;
TEXT 'Transferência' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\sinchronize-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton6:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,292 OWNERBUTTON oButton7 OF oPanel3 ON CLICK {||PedidoClass():new(oServer):Pedido()} ;
SIZE 195,41 FLAT ;
TEXT 'Pedido' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\cart-8-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton7:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,339 OWNERBUTTON oButton8 OF oPanel3 ON CLICK {||GerenciaPedidoClass():new(oServer):GERENCIA_PEDIDO()} ;
SIZE 195,41 FLAT ;
TEXT 'Gerência Pedidos' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\browser-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton8:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,386 OWNERBUTTON oButton9 OF oPanel3 ON CLICK {||CaixaClass():new(oServer):Caixa()} ;
SIZE 195,41 FLAT ;
TEXT 'Caixa' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\money-bag-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton9:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,433 OWNERBUTTON oButton10 OF oPanel3 ON CLICK {||GerenciaDanfeClass():new(oServer):GERENCIA_DANFE()} ;
SIZE 195,41 FLAT ;
TEXT 'DANFE' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\invoice-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton10:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,480 OWNERBUTTON oButton11 OF oPanel3 ON CLICK {||GerenciaCupomClass():new(oServer):GERENCIA_CUPOM()} ;
SIZE 195,41 FLAT ;
TEXT 'CUPOM' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\pages-2-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton11:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,527 OWNERBUTTON oButton12 OF oPanel3 ON CLICK {||ReceberClass():new(oServer):RECEBER_MANUTENCAO()} ;
SIZE 195,41 FLAT ;
TEXT 'Contas a Receber' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\cash-receiving-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton12:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,574 OWNERBUTTON oButton13 OF oPanel3 ON CLICK {||PagarClass():new(oServer):Pagar_Manutencao()} ;
SIZE 195,41 FLAT ;
TEXT 'Contas a Pagar' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\banknotes-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton13:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
@ 2,771 OWNERBUTTON oButton14 OF oPanel3 ON CLICK {||hwg_EndDialog()} ;
SIZE 195,41 FLAT ;
TEXT 'Configurações' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\setup-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton14:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
oButton14:Anchor:=48
@ 2,818 OWNERBUTTON oButton15 OF oPanel3 ON CLICK {||hwg_EndDialog()} ;
SIZE 195,41 FLAT ;
TEXT 'Ferramentas' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\settings-24-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton15:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
oButton15:Anchor:=48
@ 2,865 OWNERBUTTON oButton16 OF oPanel3 ON CLICK {||hwg_EndDialog()} ;
SIZE 195,41 FLAT ;
TEXT 'Sair' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP "C:\SGCv80\WHITE_ICON\power-256-30.bmp" ;
COORDINATES 5, 5, 0, 0
oButton16:aStyle := { HStyle():New( {8421504,0}, 4,, ), HStyle():New( {12632256, 0}, 4,, 2, 16777215 ), HStyle():New( {12632256, 0}, 4, ) }
oButton16:Anchor:=48
ACTIVATE DIALOG oMenuPrinc MAXIMIZED
Segue codigo da tela , consegui fazer o OWNERBUTTON FLAT e com visual gradiente