edtshort.bak

来自「设备维修档案管理系统（ＶＦＰ）课程设计」· BAK 代码 · 共 15 行

para oREF
DEFINE POPUP EdtShort SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF EdtShort PROMPT "撤消(\ MESSAGE 撤消上一次命令或操作"
DEFINE BAR 3 OF EdtShort PROMPT "\-"
DEFINE BAR _med_cut OF EdtShort PROMPT "剪切(\ SKIP FOR _screen.activeform.activecontrol.sellength = 0 ;
MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF EdtShort PROMPT "复制(\ SKIP FOR _screen.activeform.activecontrol.sellength = 0 ;"
MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF EdtShort PROMPT "粘贴(\ SKIP FOR empty(_cliptext) ;"
MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_clear OF EdtShort PROMPT "删除(\ SKIP FOR _screen.activeform.activecontrol.sellength = 0 ;"
MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR 8 OF EdtShort PROMPT "\-"
DEFINE BAR _med_slcta OF EdtShort PROMPT "全选(\ MESSAGE "选定当前窗口中的所有文本或数据项""
ACTIVATE POPUP EdtShort