Moderador: Moderadores
Fernando queiroz escreveu:fiz os meus invertendo
usei o IrfanView
NEGATIVE(Invert Image) All Channels
INIT DIALOG oTelaCadastros TITLE "Produtos" ;
AT 391,0 SIZE 1028,749 ;
STYLE WS_SYSMENU+WS_MINIMIZEBOX+WS_MAXIMIZEBOX+WS_VISIBLE ;
ON ACTIVATE {|| onDlgActivate( ) }
@ 0,0 TOOLBAR oToolbar3 SIZE 1018,80 ;
BACKCOLOR 16744448 ID 700
oToolbar3:AddButton(1, 701, 4, 0, "Sair" ,,,'')
@ 12,11 OWNERBUTTON oOwnerbutton1 OF oToolbar3 SIZE 95,63 ;
STYLE WS_TABSTOP ;
TEXT 'Sair' ;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():AddFile('c:\sgcv80\sgchb\door-8-256-30.bmp') TRANSPARENT ;
COORDINATES 0, 5, 0, 0
#xcommand @ <x>,<y> ICON [ <oIco> SHOW ] <icon> ;
[<res: FROM RESOURCE>] ;
[ OF <oWnd> ] ;
[ ID <nId> ] ;
[ SIZE <width>, <height> ] ;
[ ON INIT <bInit> ] ;
[ ON SIZE <bSize> ] ;
[ ON CLICK <bClick> ] ;
[ ON DBLCLICK <bDblClick> ];
[ TOOLTIP <ctoolt> ] ;
=> ;
[<oIco> := ] HSayIcon():New( <oWnd>,<nId>,<x>,<y>,<width>, ;
<height>,<icon>,<.res.>,<bInit>,<bSize>,<ctoolt>,,<bClick>,<bDblClick> );
[; hwg_SetCtrlName( <oIco>,<(oIco)> )]
CLASS HSayIcon INHERIT HSayImage
METHOD New( oWndParent, nId, nLeft, nTop, nWidth, nHeight, Image, lRes, bInit, ;
bSize, ctoolt )
ENDCLASS
METHOD New( oWndParent, nId, nLeft, nTop, nWidth, nHeight, Image, lRes, bInit, ;
bSize, ctoolt ) CLASS HSayIcon
Fernando queiroz escreveu:Quintas tenta assim para ver como fica
@ 010,nRowBt BITMAP oIcon ;
SHOW HBitMap():AddFile("AVI\exit-512 Black.ico", 60, 60) ;
OF oPanelx1 ;
STRETCH 0 ;
BACKTRANSPARENT ;
SIZE 60, 60
FUNCTION Gradiente( oPanel, x, y, x1, y1, nOrient, aCores )
Local pps, hDC
pps := hwg_Definepaintstru()
hDC := hwg_Beginpaint( oPanel:handle, pps )
hwg_drawGradient( hDC, x, y, x1, y1, nOrient, aCores )
hwg_Endpaint( oPanel:handle, pps )
RETURN .T.
@ 0,0 PANEL oPanel1 SIZE 1024,80 ;
ON PAINT {|| Gradiente( oPanel1, 0, 0, 1920, 80, 1, {0, 0, 13400576} ) }
oPanel1:Anchor:=130
@ 0,0 LINE oLine LENGTH 1024
oLine:Anchor:=130
@ 5,13 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 := { HStyle():New( {0, 0, 13400576}, 1,, ), HStyle():New( {0, 0, 13400576}, 1,, 2, 16777215 ), HStyle():New( {0, 0, 13400576}, 1, ) }
@ 79,13 OWNERBUTTON oOwnerbutton2 OF oPanel1 SIZE 73,63 ;
ON CLICK {|| ::CADASTRO_PRODUTOS_MANUTENCAO( LTRIM(str(oPage1:oBrowse1:aArray[ oPage1:oBrowse1:nCurrent, 1])) , "ALTERAR" ) , oPage1:oBrowse1:aArray := ::CADASTRO_PRODUTOS_MANUTENCAO_CARREGA( "ORDER BY " + cAlvo_Consulta ), oPage1:obrowse1:REFRESH()};
FLAT ;
TEXT 'Edita' COLOR 16777215 ;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource('edit-property-256-30') ;
COORDINATES 0, 5, 0, 0 ;
TOOLTIP 'Edita os dados dos Produtos'
oOwnerbutton2:aStyle := { HStyle():New( {0, 0, 13400576}, 1,, ), HStyle():New( {0, 0, 13400576}, 1,, 2, 16777215 ), HStyle():New( {0, 0, 13400576}, 1, ) }
asimoes escreveu:Para icones transparentes eu uso:
@ 010,nRowBt BITMAP oIcon SHOWÂ Â Â Â Â HBitMap():AddFile("AVI\exit-512 Black.ico", 60, 60)
Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes