功能强大的结构图设计器

.计次循环首 (记录数, 计次)
跳到 (计次)
图形索引 ＝ 图形窗口1.加入图形 (读 (“图形类型”))
操作接口 ＝ 图形窗口1.取操作接口 (图形索引)
操作接口.置位置和大小 (读 (“图形左边”), 读 (“图形顶边”), 读 (“图形宽度”), 读 (“图形高度”))
操作接口.置阴影 (读 (“阴影方向”), 读 (“阴影颜色”), 读 (“阴影宽度”))
操作接口.置文本 (读 (“图形文本”))
操作接口.置文本字体属性 (读 (“字体名称”), 读 (“字体大小”), 读 (“文本颜色”), 读 (“加粗”), 读 (“倾斜”), 读 (“下划线”), 读 (“删除线”))
操作接口.置文本对齐方式 (读 (“水平对齐方式”), 读 (“垂直对齐方式”))
操作接口.置边线 (读 (“线的类型”), 读 (“线的颜色”), 读 (“线的宽度”))
操作接口.置填充色 (读 (“填充颜色”), 读 (“底纹背景颜色”))
操作接口.置填充底纹类型 (读 (“底纹类型”))
操作接口.置填充图片 (读 (“底图填充类型”), )
操作接口.置填充风格 (读 (“填充风格”))
.计次循环尾 ()

图形索引数组 ＝ 图形窗口1.取所有图形索引 ()
图形总数 ＝ 取数组成员数 (图形索引数组)
关闭 ()
.判断开始 (创建数据库 (通用对话框1.文件名) ＝ 真)
打开 (通用对话框1.文件名, “保存族谱数据库”, , , , , )
置当前库 (“保存族谱数据库”)
.计次循环首 (图形总数, 计次)
操作接口 ＝ 图形窗口1.取操作接口 (计次 － 1)
图形类型 ＝ 操作接口.取图形类型 ()
操作接口.取位置和大小 (图形左边, 图形顶边, 图形宽度, 图形高度)
操作接口.取阴影 (阴影方向, 阴影颜色, 阴影宽度)
图形文本 ＝ 操作接口.取文本 ()
操作接口.取文本字体属性 (字体名称, 字体大小, 文本颜色, 加粗, 倾斜, 下划线, 删除线)
操作接口.取文本对齐方式 (水平对齐方式, 垂直对齐方式)
操作接口.取边线 (线的类型, 线的颜色, 线的宽度)
操作接口.取填充属性 (填充风格, 填充颜色, 底纹类型, 底纹背景颜色, 底图填充类型)
加记录 (图形类型, 图形左边, 图形顶边, 图形宽度, 图形高度, 阴影方向, 阴影颜色, 阴影宽度, 图形文本, 字体名称, 字体大小, 文本颜色, 加粗, 倾斜, 下划线, 删除线, 水平对齐方式, 垂直对齐方式, 线的类型, 线的颜色, 线的宽度, 填充风格, 填充颜色, 底纹类型, 底纹背景颜色, 底图填充类型)
.计次循环尾 ()
信息框 (“数据保存成功！”, 0, )
.默认
信息框 (“数据库创建失败！”, 0, )