Popup barra de botones (Solucionado)

Popup barra de botones (Solucionado)

Postby JoseLuis » Fri Sep 09, 2022 11:14 am

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
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Re: Popup barra de botones

Postby cnavarro » Fri Sep 09, 2022 12:22 pm

Prueba
Code: Select all  Expand view  RUN

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
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Popup barra de botones

Postby karinha » Fri Sep 09, 2022 1:10 pm

Code: Select all  Expand view  RUN

    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
User avatar
karinha
 
Posts: 7828
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Popup barra de botones

Postby JoseLuis » Fri Sep 09, 2022 2:05 pm

Solucionado

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

Jose Luis
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Re: Popup barra de botones

Postby cnavarro » Sat Sep 10, 2022 12:28 pm

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
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Popup barra de botones (Solucionado)

Postby JoseLuis » Thu Sep 22, 2022 4:50 pm

No fastidies, no me abandones .

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

Jose Luis
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 49 guests