kjfs.prg

来自「专家库管理系统(多用户)」· PRG 代码 · 共 11 行

DEFINE POPUP _medit1 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR _med_undo OF _medit1 PROMPT "   撤消(\<U)    "
DEFINE BAR _med_redo OF _medit1 PROMPT "   重作(\<D)    "
DEFINE BAR _med_sp100 OF _medit1 PROMPT "\-"

DEFINE BAR _med_cut OF _medit1 PROMPT "   剪切(\<T)    "
DEFINE BAR _med_copy OF _medit1 PROMPT "   复制(\<C)    " 
DEFINE BAR _med_paste OF _medit1 PROMPT "   粘贴(\<P)    "
DEFINE BAR _med_sp200 OF _medit1 PROMPT "\-"
DEFINE BAR _med_slcta OF _medit1 PROMPT "   全部选定(\<L)    "
ACTIVATE POPUP _medit1