📄 menu1.mpr
字号:
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 文件f
* * Prompt: 保存(S)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0vq00hdtd
ask=messagebox("保存所做的修改吗？",32+4,"备忘录")
if ask=6
strtofile(_screen.activeform.edit1.value,"备忘录.doc")
endif
* *********************************************************
* *
* * _0VQ00HDTE ON SELECTION BAR 4 OF POPUP 文件f
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 文件f
* * Prompt: 另存为(A)
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0vq00hdte
fil=putfile("文件名","文档","doc;txt")
if not empty(fil)
strtofile(_screen.activeform.edit1.value,fil)
endif
* *********************************************************
* *
* * _0VQ00HDTI ON SELECTION BAR 5 OF POPUP 文件f
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 9
* * Called By: ON SELECTION BAR 5 OF POPUP 文件f
* * Prompt: 打印(P)
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0vq00hdti
if upper(sys(102))="OFF"
messagebox("未连接打印机！",16+0,"打印")
else
??? _screen.activeform.edit1.value
endif
* *********************************************************
* *
* * _0VQ00HDTJ ON SELECTION BAR 6 OF POPUP 文件f
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 10
* * Called By: ON SELECTION BAR 6 OF POPUP 文件f
* * Prompt: 退出(X)
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0vq00hdtj
_screen.activeform.release
* *********************************************************
* *
* * _0VQ00HDTK ON SELECTION BAR 1 OF POPUP 编辑e
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 13
* * Called By: ON SELECTION BAR 1 OF POPUP 编辑e
* * Prompt: 撤消(U)
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0vq00hdtk
KEYBOARD [{CTRL+Z}]
* *********************************************************
* *
* * _0VQ00HDTL ON SELECTION BAR 3 OF POPUP 编辑e
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 16
* * Called By: ON SELECTION BAR 3 OF POPUP 编辑e
* * Prompt: 剪切(T)
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0vq00hdtl
KEYBOARD [{CTRL+X}]
* *********************************************************
* *
* * _0VQ00HDTM ON SELECTION BAR 4 OF POPUP 编辑e
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 17
* * Called By: ON SELECTION BAR 4 OF POPUP 编辑e
* * Prompt: 复制(C)
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0vq00hdtm
KEYBOARD [{CTRL+C}]
* *********************************************************
* *
* * _0VQ00HDTN ON SELECTION BAR 5 OF POPUP 编辑e
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 18
* * Called By: ON SELECTION BAR 5 OF POPUP 编辑e
* * Prompt: 粘贴(P)
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _0vq00hdtn
KEYBOARD [{CTRL+V}]
* *********************************************************
* *
* * _0VQ00HDTO ON SELECTION BAR 6 OF POPUP 编辑e
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 19
* * Called By: ON SELECTION BAR 6 OF POPUP 编辑e
* * Prompt: 清除(A)
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _0vq00hdto
_screen.activeform.edit1.value=""
_screen.activeform.refresh
* *********************************************************
* *
* * _0VQ00HDTP ON SELECTION BAR 7 OF POPUP 编辑e
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 20
* * Called By: ON SELECTION BAR 7 OF POPUP 编辑e
* * Prompt: 全选(L)
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _0vq00hdtp
KEYBOARD [{CTRL+A}]
* *********************************************************
* *
* * _0VQ00HDTS ON SELECTION BAR 1 OF POPUP 格式o
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 23
* * Called By: ON SELECTION BAR 1 OF POPUP 格式o
* * Prompt: 字体(F)...
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _0vq00hdts
fon=getfont()
If !empty(fon)
_Screen.activeform.edit1.fontname=left(fon,atc(",",fon)-1)
Do case
Case upper(right(fon,2))=",N"
_Screen.activeform.edit1.fontbold=.f.
_Screen.activeform.edit1.fontitalic=.f.
If left(right(fon,4),1)=","
_Screen.activeform.edit1.fontsize=val(left(right(fon,3),1))
Else
_Screen.activeform.edit1.fontsize=val(left(right(fon,4),2))
Endif
Case upper(right(fon,2))=",I"
_Screen.activeform.edit1.fontbold=.f.
_Screen.activeform.edit1.fontitalic=.t.
If left(right(fon,4),1)=","
_Screen.activeform.edit1.fontsize=val(left(right(fon,3),1))
Else
_Screen.activeform.edit1.fontsize=val(left(right(fon,4),2))
Endif
Case upper(right(fon,2))=",B"
_Screen.activeform.edit1.fontbold=.t.
_Screen.activeform.edit1.fontitalic=.f.
If left(right(fon,4),1)=","
_Screen.activeform.edit1.fontsize=val(left(right(fon,3),1))
Else
_Screen.activeform.edit1.fontsize=val(left(right(fon,4),2))
Endif
Case upper(right(fon,2))="BI"
_Screen.activeform.edit1.fontbold=.t.
_Screen.activeform.edit1.fontitalic=.t.
If left(right(fon,5),1)=","
_Screen.activeform.edit1.fontsize=val(left(right(fon,4),1))
Else
_Screen.activeform.edit1.fontsize=val(left(right(fon,5),2))
Endif
Endcase
_Screen.activeform.refresh
Endif
* *********************************************************
* *
* * _0VQ00HDTT ON SELECTION BAR 2 OF POPUP 格式o
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 24
* * Called By: ON SELECTION BAR 2 OF POPUP 格式o
* * Prompt: 设置前景色(C)...
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _0vq00hdtt
fcol=getcolor()
if fcol#-1
_screen.activeform.edit1.forecolor=fcol
endif
* *********************************************************
* *
* * _0VQ00HDTU ON SELECTION BAR 3 OF POPUP 格式o
* *
* * Procedure Origin:
* *
* * From Menu: MENU1.MPR, Record: 25
* * Called By: ON SELECTION BAR 3 OF POPUP 格式o
* * Prompt: 设置背景色(B)...
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _0vq00hdtu
bcol=getcolor()
if bcol#-1
_screen.activeform.edit1.backcolor=bcol
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -