ON KEY ESCAPE blocks ESC key for all applications running on system...

[mol]

My friend Edward found problem with On Key ESCAPE...

He built app running i n system tray which is ESC sensitive.
But, ESC key is blocked for all running application, until his app is placed in tray.
Try to compile his small sample

Code: Select all

#include "hmg.ch"

PROCEDURE Main()
     DEFINE WINDOW frmMain ;
           AT 0,0 ;
           WIDTH 800 HEIGHT 500 ;
           TITLE 'Test' ICON 'R';
           MAIN;
           ON INIT (frmMain.Minimize, msgbox('The "Escape" will not work in the system until you restore "R" application from the tray'));
           NOTIFYICON 'R' ;
           NOTIFYTOOLTIP 'Test' ;
           ON NOTIFYCLICK frmMain.Restore;
           ON MINIMIZE frmMain.Hide;
           VISIBLE .F. 
		
           DEFINE NOTIFY MENU
			ITEM 'Restore'	ACTION frmMain.Restore
			SEPARATOR
			ITEM 'Exit'  	ACTION frmMain.Release
		 END MENU

           DEFINE MAIN MENU
            DEFINE POPUP '&Exit' NAME menu_xit
            	MENUITEM 'Exit' ACTION IF(MsgYesNo('Exit?',,.T.),ThisWindow.Release,Nil)
            END POPUP
           END MENU
           

        END WINDOW

        ON KEY ESCAPE of frmMain ACTION IF(MsgYesNo('Exit?',,.T.),frmMain.Release,Nil)
        
        CENTER WINDOW frmMain
        ACTIVATE WINDOW frmMain

    QUIT	
RETURN // Main()

You should run another application which waits for ESC to observe bad working.

Regards, Marek

[srvet_claudio]

I will check.

[mol]

Edward solved the problem by setting FrmMain.Visible to .t. and creating function for restore FrmMain in which action of ESC key is defined:

Code: Select all

#include "hmg.ch"

PROCEDURE Main()
     DEFINE WINDOW frmMain ;
           AT 0,0 ;
           WIDTH 800 HEIGHT 500 ;
           TITLE 'Test' ICON 'R';
           MAIN;
           ON INIT (frmMain.Minimize, msgbox('The "Escape" will not work in the system until you restore "R" application from the tray'));
           NOTIFYICON 'R' ;
           NOTIFYTOOLTIP 'Test' ;
           ON NOTIFYCLICK restoreMain();
           ON MINIMIZE frmMain.Hide;
           VISIBLE .T. 
                               
           DEFINE NOTIFY MENU
                                               ITEM 'Restore'  ACTION restoreMain()
                                               SEPARATOR
                                               ITEM 'Exit'           ACTION frmMain.Release
                               END MENU

           DEFINE MAIN MENU
            DEFINE POPUP '&Exit' NAME menu_xit
                MENUITEM 'Exit' ACTION IF(MsgYesNo('Exit?',,.T.),ThisWindow.Release,Nil)
            END POPUP
           END MENU
           
        END WINDOW
        
        CENTER WINDOW frmMain
        ACTIVATE WINDOW frmMain

    QUIT 
RETURN // Main()
************************
PROCEDURE restoreMain()
DECLARE WINDOW frmMain

ON KEY ESCAPE OF frmMain ACTION IF(MsgYesNo('Exit?',,.T.),frmMain.Release,Nil)
frmMain.Restore

RETURN 
************************

[serge_girard]

Hi Marek,

Sometimes I experience some similar effect with the F5 key: pressing it invokes HMG-IDE ti start compiling while I pressed in my browser or so.

Serge

[mol]

Hi Marek,

Sometimes I experience some similar effect with the F5 key: pressing it invokes HMG-IDE ti start compiling while I pressed in my browser or so.

Serge

I reach this effect often while working with Total Commander - F5 is not copying files but is overtaken by IDE and compiles open project

[serge_girard]

Marek, So you and I are not alone... !

Serge

[quartz565]

Marek, So you and I are not alone... !

Serge

+1

[Pablo César]

Marek, So you and I are not alone... !

Serge

+ 1 (me too)

I try always to avoid this unwanted action of IDE by making focus only in the source editor but sometimes It happen with me too...

We could let our suggestion to make IDE configurable and to disable hotkeys at IDE, only by clicking at RUN button and then compile the project.

[mol]

It's not solution, Pablo. Something is wrong with too much agressive code of IDE...

[Pablo César]

It's not solution, Pablo. Something is wrong with too much agressive code of IDE...

Agressive? I don't think so. I'm talking a normal flag that could helps to IDE to define how to behaviour wished by the user.

Wrongly attempt when have pressed F5 and HMG/IDE builds again the project...

Like another case when we create a new project in IDE and "always" receives the same name Main as name of fmg and prg main file...

I like speed on my programming tools but I also wish practicity. I am opposite to this slogan:

Why make it easier if we can complicate?