FiveTech Software tech support forums

Code: Select all  Expand view

oBar:bRClicked  := { || .T. }
 

Code: Select all  Expand view

    DEFINE BUTTONBAR OBAR BUTTONSIZE 49, 55 _3DLOOK  TOP  OF oWndMain ;
           CURSOR oHand 2007  // ESTA EM C:\SAMPLES\TESTGRAD.PRG

    // Liga o Cursor do Dedo, Mesmo Que eu Tire de ButtonBar...
    AEval( oBar:aControls, { | o | o:oCursor := oHand } )
    AEval( oBar:aControls, { | oBtn | oBtn:lBarBtn := .F. } )

    // Tratamentos Para a Barra de Botoes
    oBar:bRClicked := { || ( Click(), FUNDOWND( 1 ) ) } // Mouse Direito
    oBar:bLClicked := { || ( Click(), Logo()        ) } // Mouse Esquerdo

    oBar:SetColor( CLR_BLACK, CLR_WINDOW )

    // Este modelo e melhor esta em: \samples\testbtb.prg e testgrad.prg
    oBar:bClrGrad := { | lInvert | If( lInvert, ;
        { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
          { 2/3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) }  ;
        }, ;
          { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
          { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) }  ;
        } ) }

    // Cor no Prompt dos Botoes
    oBar:nClrText = CLR_HBLUE
    oBar:Adjust()
    oBar:ctooltip := ( OemToAnsi( "<Click> Na Barra de Ferramentas " +CRLF+  ;
                                  "Com o BotÆo  Direito do Mouse,  " +CRLF+  ;
                                  "Para Trocar o Fundo da Janela,  " +CRLF+  ;
                                  "Somente de um Arquivo BitMap... " +CRLF+  ;
                                  "<Click>  no BotÆo Esquerdo Para " +CRLF+  ;
                                  "Mostrar um Logo do Sistema...   " ) )
 

JoseLuis wrote:Solucionado

Muchas gracias Carlos y Joao