Cor de fundo do ICON

[JoséQuintas]

Mudei a cor da dialog pra preto, mas os ícones não acompanharam a cor.
Alguma dica?

[JoséQuintas]

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.

[Fernando queiroz]

fiz os meus invertendo

usei o IrfanView

NEGATIVE(Invert Image) All Channels

[JoséQuintas]

Antes funcionou, mas eram ícones coloridos, e tudo no default.
agora são ícones brancos.
e alterar a cor da dialog não altera o restante.

[JoséQuintas]

fiz os meus invertendo
usei o IrfanView
NEGATIVE(Invert Image) All Channels

Me recuso a isso.
Se a imagem tem fundo transparente.... é transparente.

[Fernando queiroz]

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 

[Fernando queiroz]

[JoséQuintas]

Ia acrescentar a propriedade backcolor, mas aqui deu um nó na cabeça:

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

Sei lá pra onde foram os dois parâmetros de click.....

[Fernando queiroz]

[JoséQuintas]

Quintas tenta assim para ver como fica

Seu ícone/bitmap está com fundo preto, diferente da área.

[Fernando queiroz]

aumentei a area do gradiente com preto e resolveu

[asimoes]

Pessoal, como fizeram o gradiente na TOOLBAR?
Olhando a GUILIB.CH não tem BACKCOLOR na definição do comando

[asimoes]

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 

[Fernando queiroz]

Na realidade nao uso ToolsBar eu uso um panel e coloco os icones em cima
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,  ) }

[JoséQuintas]

Para icones transparentes eu uso:
@ 010,nRowBt BITMAP oIcon SHOW          HBitMap():AddFile("AVI\exit-512 Black.ico", 60, 60)

Tem @ x, y ICON .... mas pra ficar transparente usa @ x, y BITMAP

Resta a dúvida.... o ICO é ICO mesmo, ou é BMP salvo como ICO?