doble click en set message

doble click en set message

Postby MOISES » Fri Sep 12, 2008 10:49 am

Hola:

Cuando se hace doble clic en la barra aparece en el título de la ventana una información sobre los recursos y el tiempo de ejecución. ¿Cómo se desactiva esto?.

Muchas gracias
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Postby karinha » Fri Sep 12, 2008 12:34 pm

Code: Select all  Expand view  RUN
    oDlg:bRClicked = { || MsgInfo( OemToAnsi( "BotÆo Direito " + CRLF+ ;
                                              "NÆo Est  Ativo" ),      ;
                                 ( OemToAnsi( "Informa‡Æo   " ) ) ) }
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7860
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby MOISES » Fri Sep 12, 2008 2:39 pm

Hola:

Me refiero a la siguiente barra:

SET MESSAGE OF oWndMain ;
TO OemToAnsi( cMainMsg ) ;
CLOCK ;
DATE ;
KEYBOARD 2007


¿Cómo puedo anular el doble click?.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: doble click en set message

Postby FranciscoA » Fri Sep 12, 2008 2:42 pm

MOISES wrote:Hola:

Cuando se hace doble clic en la barra aparece en el título de la ventana una información sobre los recursos y el tiempo de ejecución. ¿Cómo se desactiva esto?.

Muchas gracias



En la Classe TmsgBar haz este cambio, u omite totalment el METHOD

METHOD LDblClick( nRow, nCol, nKeyFlags ) CLASS TMsgBar

* if ::lInfoRes .or. ( ! ::lInfoRes .and. ::lCheckRes )
* if ! ::lCheckRes
* ::Cargo := ::oWnd:GetText()
* endif
* ::lCheckRes := ! ::lCheckRes
* endif

return Super:LDblClick( nRow, nCol, nKeyFlags )

Saludos

Francisco J. Alegria P.
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.


Return to FiveWin para Harbour/xHarbour

Who is online

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