Cor de fundo do ICON

por **JoséQuintas** » 07 Dez 2020 14:48

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

por **JoséQuintas** » 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.

por **Fernando queiroz** » 07 Dez 2020 15:23

fiz os meus invertendo

usei o IrfanView

NEGATIVE(Invert Image) All Channels

por **JoséQuintas** » 07 Dez 2020 15:36

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.

por **JoséQuintas** » 07 Dez 2020 15:47

Fernando queiroz escreveu:fiz os meus invertendo
usei o IrfanView
NEGATIVE(Invert Image) All Channels

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

por **Fernando queiroz** » 07 Dez 2020 15:47

Quintas tenta assim para ver como fica

  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

por **Fernando queiroz** » 07 Dez 2020 15:51

por **JoséQuintas** » 07 Dez 2020 16:06

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

#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

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

por **Fernando queiroz** » 07 Dez 2020 16:11

por **JoséQuintas** » 07 Dez 2020 16:14

Fernando queiroz escreveu:Quintas tenta assim para ver como fica

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

por **Fernando queiroz** » 07 Dez 2020 16:24

aumentei a area do gradiente com preto e resolveu

por **asimoes** » 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

por **asimoes** » 08 Dez 2020 14:27

Para icones transparentes eu uso:

 @ 010,nRowBt BITMAP oIcon ;
                SHOW          HBitMap():AddFile("AVI\exit-512 Black.ico", 60, 60) ; 
                OF            oPanelx1 ;
                STRETCH       0 ;
                BACKTRANSPARENT ;
                SIZE          60, 60

por **Fernando queiroz** » 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

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,  ) }

por **JoséQuintas** » 08 Dez 2020 14:50

asimoes escreveu: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?

Quem está online