|
2精币
等待用户输入欲编译到的文件名
正在进行名称连接...
开始静态链接...
警告:支持库“VCLBase”未提供静态库所需的命令实现函数的函数名称
警告:支持库“VCLBase”未提供静态库所需的“处理系统通知的函数”的函数名称
警告:支持库“VCLBase”未提供静态库所需的命令实现函数的函数名称:打开
源码如下:
.版本 2
.支持库 vclbase
.程序集 窗口程序集1
.子程序 __启动窗口_尺寸被改变
编辑框1.左边 = 5
编辑框1.高度 = 取用户区高度 () - 5
编辑框1.顶边 = 60
编辑框1.宽度 = 取用户区宽度 () - 10
.子程序 _工具条1_被单击
.参数 按钮索引, 整数型
.如果真 (按钮索引 = 0)
通用对话框1.打开 ()
编辑框1.内容 = 到文本 (读入文件 (通用对话框1.文件名))
.如果真结束
.如果真 (按钮索引 = 1)
通用对话框2.打开 ()
写到文件 (通用对话框2.文件名, 到字节集 (编辑框1.内容))
.如果真结束
.如果真 (按钮索引 = 3)
通用对话框3.打开 ()
编辑框1.字体.字体大小 = 通用对话框3.字体大小
编辑框1.字体.字体名称 = 通用对话框3.字体名称
编辑框1.文本颜色 = 通用对话框3.字体颜色
编辑框1.字体.加粗 = 通用对话框3.加粗
编辑框1.字体.倾斜 = 通用对话框3.倾斜
编辑框1.字体.删除线 = 通用对话框3.删除线
编辑框1.字体.下划线 = 通用对话框3.下划线
.如果真结束
.如果真 (按钮索引 = 4)
选择颜色对话框1.打开 ()
编辑框1.背景颜色 = 选择颜色对话框1.颜色
.如果真结束
.子程序 __启动窗口_将被销毁
.如果 (编辑框1.内容 = “”)
返回 ()
.否则
通用对话框2.打开 ()
写到文件 (通用对话框2.文件名, 到字节集 (编辑框1.内容))
.如果结束
.子程序 _打开_被选择
通用对话框1.打开 ()
编辑框1.内容 = 到文本 (读入文件 (通用对话框1.文件名))
.子程序 _保存_被选择
通用对话框2.打开 ()
写到文件 (通用对话框2.文件名, 到字节集 (编辑框1.内容))
.子程序 _退出_被选择
.如果 (编辑框1.内容 = “”)
返回 ()
.否则
通用对话框2.打开 ()
写到文件 (通用对话框2.文件名, 到字节集 (编辑框1.内容))
.如果结束
.子程序 _字体设置_被选择
通用对话框3.打开 ()
编辑框1.字体.字体大小 = 通用对话框3.字体大小
编辑框1.字体.字体名称 = 通用对话框3.字体名称
编辑框1.文本颜色 = 通用对话框3.字体颜色
编辑框1.字体.加粗 = 通用对话框3.加粗
编辑框1.字体.倾斜 = 通用对话框3.倾斜
编辑框1.字体.删除线 = 通用对话框3.删除线
编辑框1.字体.下划线 = 通用对话框3.下划线
.子程序 _背景颜色_被选择
选择颜色对话框1.打开 ()
编辑框1.背景颜色 = 选择颜色对话框1.颜色
|
|