Popup barra de botones (Solucionado)

Post Reply
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Popup barra de botones (Solucionado)

Post by JoseLuis »

Buenos dias

No me acuerdo como impedir que al hacer clic con el boton derecho del raton sobre la barra de botones aparezca el popup siguiente:
Image
Last edited by JoseLuis on Fri Sep 09, 2022 2:06 pm, edited 1 time in total.
--------------------------
Saludos

Jose Luis
User avatar
cnavarro
Posts: 6568
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Has thanked: 4 times
Been thanked: 5 times

Re: Popup barra de botones

Post by cnavarro »

Prueba

Code: Select all | Expand


oBar:bRClicked  := { || .T. }
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
karinha
Posts: 7956
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 4 times
Contact:

Re: Popup barra de botones

Post by karinha »

Code: Select all | Expand


    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...   " ) )
 


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Re: Popup barra de botones

Post by JoseLuis »

Solucionado

Muchas gracias Carlos y Joao
--------------------------
Saludos

Jose Luis
User avatar
cnavarro
Posts: 6568
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Has thanked: 4 times
Been thanked: 5 times

Re: Popup barra de botones

Post by cnavarro »

JoseLuis wrote:Solucionado

Muchas gracias Carlos y Joao


Si me cambias el nombre, no te volveré a contestar :D :D :D :D :D :D :D :D
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
JoseLuis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Re: Popup barra de botones (Solucionado)

Post by JoseLuis »

No fastidies, no me abandones .

Vaya fallo, estoy yo bueno.
--------------------------
Saludos

Jose Luis
Post Reply