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:
oBar:bRClicked := { || .T. }
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 37 guests