Cor de fundo do ICON
Enviado: 07 Dez 2020 14:48
Alguma dica?
Mudei a cor da dialog pra preto, mas os ícones não acompanharam a cor.
Alguma dica?
Página 1 de 3
Cor de fundo do ICON
Enviado: 07 Dez 2020 15:22
Na prática seriam buttons com fundo transparente, mas só consegui com o @ ICON.
E agora.... ao mudar a cor da dialog, aí está o @ ICON com outra cor.
E agora.... ao mudar a cor da dialog, aí está o @ ICON com outra cor.
Cor de fundo do ICON
Enviado: 07 Dez 2020 15:23
fiz os meus invertendo
usei o IrfanView
NEGATIVE(Invert Image) All Channels
usei o IrfanView
NEGATIVE(Invert Image) All Channels
Cor de fundo do ICON
Enviado: 07 Dez 2020 15:36
agora são ícones brancos.
e alterar a cor da dialog não altera o restante.
Cor de fundo do ICON
Enviado: 07 Dez 2020 15:47
Me recuso a isso.Fernando queiroz escreveu:fiz os meus invertendo
usei o IrfanView
NEGATIVE(Invert Image) All Channels
Se a imagem tem fundo transparente.... é transparente.
Cor de fundo do ICON
Enviado: 07 Dez 2020 15:47
Quintas tenta assim para ver como fica
Código: Selecionar todos
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 Cor de fundo do ICON
Enviado: 07 Dez 2020 15:51
Cor de fundo do ICON
Enviado: 07 Dez 2020 16:06
Ia acrescentar a propriedade backcolor, mas aqui deu um nó na cabeça:
Sei lá pra onde foram os dois parâmetros de click.....
Código: Selecionar todos
#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)> )]
Código: Selecionar todos
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
Cor de fundo do ICON
Enviado: 07 Dez 2020 16:11
Cor de fundo do ICON
Enviado: 07 Dez 2020 16:14
Fernando queiroz escreveu:Quintas tenta assim para ver como fica
Cor de fundo do ICON
Enviado: 07 Dez 2020 16:24
aumentei a area do gradiente com preto e resolveu
Cor de fundo do ICON
Enviado: 08 Dez 2020 08:02
Pessoal, como fizeram o gradiente na TOOLBAR?
Olhando a GUILIB.CH não tem BACKCOLOR na definição do comando
Olhando a GUILIB.CH não tem BACKCOLOR na definição do comando
Cor de fundo do ICON
Enviado: 08 Dez 2020 14:27
Para icones transparentes eu uso:
Código: Selecionar todos
@ 010,nRowBt BITMAP oIcon ;
SHOW HBitMap():AddFile("AVI\exit-512 Black.ico", 60, 60) ;
OF oPanelx1 ;
STRETCH 0 ;
BACKTRANSPARENT ;
SIZE 60, 60
Cor de fundo do ICON
Enviado: 08 Dez 2020 14:42
Na realidade nao uso ToolsBar eu uso um panel e coloco os icones em cima
e fiz uma rotina para fazer gradiente
e fiz uma rotina para fazer gradiente
Código: Selecionar todos
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.Código: Selecionar todos
@ 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, ) }Cor de fundo do ICON
Enviado: 08 Dez 2020 14:50
Tem @ x, y ICON .... mas pra ficar transparente usa @ x, y BITMAPasimoes escreveu:Para icones transparentes eu uso:
@ 010,nRowBt BITMAP oIcon SHOW HBitMap():AddFile("AVI\exit-512 Black.ico", 60, 60)
Resta a dúvida.... o ICO é ICO mesmo, ou é BMP salvo como ICO?