Disable all shortcuts accept the shortcut's I defined

[turbojack]

Re: Disable all shortcuts accept the shortcut's I defined

Tested in V10 - didn't trap F6

Does anyone know why we can not trap F6, & what is Alpha's reason for this. Is this a bug never fixed?

[Al Buchholz]

Re: Disable all shortcuts accept the shortcut's I defined

I learned something new today. The F6 key can't be trapped.

It's probably the same in v10 also.

Tested in V10 - didn't trap F6

[werder101010]

Re: Disable all shortcuts accept the shortcut's I defined

I'm happy with the script anyway so thanks again and I'll just have to do without the F6 shortcut.

[CALocklin]

Re: Disable all shortcuts accept the shortcut's I defined

I learned something new today. The F6 key can't be trapped.

I ran the script below in the OnKey event of one of my forms and the F6 key doesn't even trigger the OnKey event. The "Testing" message never even runs if the F6 key is pressed.

Disclaimer: I just realized I ran my tests in v8 but I suspect the same will be true of v9 since you seem to be having the same problem. It's probably the same in v10 also.

FOR qx = 1 to 12
ui_msg_box( "TESTING " + qx, "" )
IF a_user.key.value = eval( "\"{F" + ltrim(str(qx)) + "}\"" )
    ui_msg_box( "FOUND " + qx, "" )
    a_user.key.handled = .T.
    IF a_user.key.event = "down"
        vcTab = "menu"
        var->menu = 2
        parentform.Refresh_Layout()
        END'
    END IF
END IF
NEXT
END'

[werder101010]

Re: Disable all shortcuts except the shortcut's I defined

Thanks for the script and tips Cal. If I understand correctly the (on key) script blocks “system” and “custom menu” shortcut's. The new shortcut must be defined in the same “on key” script. To let the user understand which menu option is activated with a shortcut I will have to edit my custom menu separately (without the shortcut script). This is an acceptable solution.

Everything works fine and the F8 shortcut is now replaced but F6 still moves out of an embedded browse and the alternative shortcut isn't executed. Any idea why?

IF a_user.key.value = "{F6}"    
    a_user.key.handled = .T.
        if a_user.key.event = "down"
vcTab="menu"
var->menu=2
parentform.Refresh_Layout()
    END'
END IF
END IF


IF a_user.key.value = "{F8}"    
    a_user.key.handled = .T.
        if a_user.key.event = "down"
vcTab="menu"
var->menu=3
parentform.Refresh_Layout()
    END'
END IF
END IF

[CALocklin]

Re: Disable all shortcuts accept the shortcut's I defined

I just run my "Std_OnKey" script in the OnKey event. Note that the "ESC" routine in the particular script will cause a form to close if it is in View mode. Some users don't like that so just delete the first "IF" when it isn't wanted.

You may also notice that I use the F1 and F8-F12 keys as "special purpose" keys. By having them "push" the appropriate button, the OnKey code is the same in every form and, IF the specified button exists, then the code on that button will be run. In other words, the F9 key presses the "Done_btn" but the "Done_btn" on each form could do something different - test for missing values, update certain fields, some combination of both, or just close the form.

The "Alt-Down" action specified for the F8 key is the Windows shortcut used to open drop-down menus from the keyboard. Touch typists sometimes appreciate the fact that they aren't forced to switch to the mouse to use a drop-down.

FWIW, I also use the F8 key for various other actions at times. A common one is for filling in 'default' values that I don't want to have filled in automatically. If the user wants to enter the default value, they press F8; otherwise they enter whatever other value they want and if it's still blank when they try to save the record, I force them to enter something first. This forces them to think about what they are doing rather than just blindly accepting the default.

Also, there are no guarantees that this is the most efficient way to do it. However, I originally wrote the script years ago and stored it in my code library. I haven't bothered changing it since. (The 2006 date shown below is just the date it was first used in the app I copied it from. I'm sure I used it before that.)

'Date Created: 18-Aug-2006 08:17:22 PM
'Last Updated: 18-Aug-2006 08:17:22 PM
'Created By  : Cal
'Updated By  : Cal

IF a_user.key.value = "{ESC}"    'This IF MUST be split!
    IF parentform.mode_get() = "VIEW"
        a_user.key.handled = .T.
        IF a_user.key.event = "down"
            parentform.close()
            END'
        END IF
    END IF
END IF
IF a_user.key.value = "{F12}"
    IF is_object( parentform:Done_btn.this )
        a_user.key.handled = .T.
        IF a_user.key.event = "down"
            parentform:Done_btn.push()
            END'
        END IF
    END IF
END IF
IF a_user.key.value = "{F11}"
    IF is_object( parentform:Find_btn.this )
        a_user.key.handled = .T.
        IF a_user.key.event = "down"
            parentform:Find_btn.push()
            END'
        END IF
    END IF
END IF
IF a_user.key.value = "{F10}"
    IF is_object( parentform:Enter_btn.this )
        a_user.key.handled = .T.
        IF a_user.key.event = "down"
            parentform:Enter_btn.push()
            END'
        END IF
    END IF
END IF
IF a_user.key.value = "{F9}"
    IF is_object( parentform:Save_btn.this )
        a_user.key.handled = .T.
        IF a_user.key.event = "down"
            parentform:Save_btn.push()
            END'
        END IF
    END IF
END IF
IF a_user.key.value = "{F8}"
    a_user.key.handled = .T.
    IF a_user.key.event = "down"
        sys_send_keys( "{ALT-DOWN}" )
        END'
    END IF
END IF
IF a_user.key.value = "{F1}"
    IF is_object( parentform:Help_btn.this )
        a_user.key.handled = .T.
        IF a_user.key.event = "down"
            IF is_object( "parentform:Help_btn" )
                parentform:Help_btn.push()
                END'
            END IF
        END IF
    END IF
END IF
'The following are designed to restrict normal ctrl key functions and should 
'ALWAYS go at the end of any other control key functions.
'OEBPQMUDFT
IF a_user.key.value = "{^O}"    'Open form
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^E}"    'Enter Record
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^B}"    'Query by Form
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^P}"    'Print
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^Q}"    'Query Genie
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^M}"    'Mark record
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^U}"    'Unmark record
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^D}"    'Delete record
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^F}"    'Find by Form
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{^T}"    'Dial phone
    a_user.key.handled = .T.
    END'
END IF
IF a_user.key.value = "{F8}"    'Switch to browse mode
    a_user.key.handled = .T.
    END'
END IF

[MikeC]

Re: Disable all shortcuts accept the shortcut's I defined

OOPS!! Sorry....I'll try to be more careful. I'll change my settings. :o

[werder101010]

Re: Disable all shortcuts except the shortcut's I defined

I was actually trying to say: How do I disable all shortcuts except the shortcut's I defined.

[werder101010]

I created a new menu and selected this new menu in form properties. No system menu's are active and toolbars are set to none.

I defined new shortcut's in my custom menu but shortcut F6 an F8 are not working as defined in my custom menu. F6 and F8 still behave like described in the help menu (F6 move out of an embedded Browse. F8 switch between form and browse view).

Selwin said:

the shorcut keys are shown in the menu. if you customize the menu, you can customize the shortcut keys.

if you use a system menu for a form, and the system menu has not been customized, then you are using the default shortcut keys.

How do I disable all shortcuts accept the shortcut's I defined?