edtshort.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 26 行

para oREF
DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF 快捷菜单 PROMPT "撤消(\<U)" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF 快捷菜单 PROMPT "重做(\<D)" ;
	KEY CTRL+R, "Ctrl+R" ;
	MESSAGE "重复上一次命令或操作"
DEFINE BAR 3 OF 快捷菜单 PROMPT "\-"
DEFINE BAR _med_cut OF 快捷菜单 PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF 快捷菜单 PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF 快捷菜单 PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_clear OF 快捷菜单 PROMPT "清除(\<A)" ;
	MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR 8 OF 快捷菜单 PROMPT "\-"
DEFINE BAR _med_slcta OF 快捷菜单 PROMPT "全部选定(\<L)" ;
	KEY CTRL+A, "Ctrl+A" ;
	MESSAGE "选定当前窗口中的所有文本或数据项"

ACTIVATE POPUP 快捷菜单