>>>>&& (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 >>