>>>&& (1) RightClick - see two last bars >>> >>>DEFINE POPUP ccp SHORTCUT RELATIVE from mrow(),mcol() >>> >>> >>>DEFINE BAR _med_cut OF ccp PROMPT "Cu\<t" ; >>> KEY CTRL+X, "Ctrl+X" ; >>> MESSAGE "Removes the selection and places it onto the Clipboard" >>> >>>DEFINE BAR _med_copy OF ccp PROMPT "\<Copy" ; >>> KEY CTRL+C, "Ctrl+C" ; >>> MESSAGE "Copies the selection onto the Clipboard" >>> >>>DEFINE BAR _med_paste OF ccp PROMPT "\<Paste" ; >>> KEY CTRL+V, "Ctrl+V" ; >>> MESSAGE "Pastes the contents of the Clipboard" >>> >>>DEFINE BAR _med_slcta OF ccp PROMPT "Se\<lect All" ; >>> KEY CTRL+A, "Ctrl+A" ; >>> MESSAGE "Selects all text or items in the current window" >>> >>>define bar _MED_FIND of ccp prompt '\<Find' ; >>> key CTRL+F, 'Ctrl+F' ; >>> message 'Finds text in the current window' >>> >>>define bar (cntbar('ccp')) + 1 of ccp prompt 'Find Nex\<t' ; >>> key CTRL+T, 'Ctrl+T' ; >>> message 'Find Next' >>> >>>on selection bar (cntbar('ccp')) of ccp ; >>> Keyboard "{CTRL+F}{ALT+N}" plain clear >>> >>>activate popup ccp >>> >>>release popup ccp >>>>>>
>>>&& (2) KeyPress >>>LPARAMETERS nKeyCode, nShiftAltCtrl >>> >>>if( inlist(m.nShiftAltCtrl, 2) and inlist(m.nKeyCode, 20) ) >>> NODEFAULT >>> keyboard "{CTRL+F}{ALT+N}" plain clear >>>endif >>>>>
>try && get rid of ALT-N (file/new) > release bar _MFI_NEW of _MSM_FILE >catch > >endtry > >DEFINE POPUP ccp SHORTCUT RELATIVE from mrow(),mcol() > > >DEFINE BAR _med_cut OF ccp PROMPT "Cu\<t" ; > KEY CTRL+X, "Ctrl+X" ; > MESSAGE "Removes the selection and places it onto the Clipboard" > >DEFINE BAR _med_copy OF ccp PROMPT "\<Copy" ; > KEY CTRL+C, "Ctrl+C" ; > MESSAGE "Copies the selection onto the Clipboard" > >DEFINE BAR _med_paste OF ccp PROMPT "\<Paste" ; > KEY CTRL+V, "Ctrl+V" ; > MESSAGE "Pastes the contents of the Clipboard" > >DEFINE BAR _med_slcta OF ccp PROMPT "Se\<lect All" ; > KEY CTRL+A, "Ctrl+A" ; > MESSAGE "Selects all text or items in the current window" > >define bar _MED_FIND of ccp prompt '\<Find' ; > key CTRL+F, 'Ctrl+F' ; > message 'Finds text in the current window' > >define bar (cntbar('ccp')) + 1 of ccp prompt 'Find \<Next' ; > key CTRL+N, 'Ctrl+N' ; > message 'Find Next' > >on selection bar (cntbar('ccp')) of ccp ; > Keyboard "{CTRL+F}{ALT+N}" plain clear > >activate popup ccp > >release popup ccp >>
>&& keypress >LPARAMETERS nKeyCode, nShiftAltCtrl > >if( inlist(m.nShiftAltCtrl, 2) and inlist(m.nKeyCode, 14) ) > NODEFAULT > keyboard "{CTRL+F}{ALT+N}" plain clear >endif >