gdi初学绘制易语言代码框软件含尤里Uiluv自绘专用模块

局_成员数 ＝ 取数组成员数 (参_文本数组)
局部_计次 ＝ 1
画笔_置颜色 (纯色画笔指针, 参_线框颜色) ' 线框颜色
.计次循环首 (局_成员数, 局部_计次)
.如果 (局部_计次 ＝ 1)
画刷_纯色_置颜色 (纯色画刷指针, 参_表头背景颜色) ' 表头背景颜色
图形_填充矩形 (图形指针, 纯色画刷指针, 制矩形F (参_列左边, 参_列顶边, 局_文本矩形.Width ＋ 4, 局_文本矩形.Height ＋ 2))
画刷_纯色_置颜色 (纯色画刷指针, 参_表头文本颜色) ' 表头文本颜色
.否则
画刷_纯色_置颜色 (纯色画刷指针, 参_表项文本颜色) ' 表项文本颜色
.如果结束
图形_画直线 (图形指针, 纯色画笔指针, 参_列左边, 参_列顶边 ＋ (局_文本矩形.Height ＋ 2) × 局部_计次, 参_列左边 ＋ 局_文本矩形.Width ＋ 4, 参_列顶边 ＋ (局_文本矩形.Height ＋ 2) × 局部_计次)
图形_画文本 (图形指针, 参_文本数组 [局部_计次], 字体指针, 纯色画刷指针, 制矩形F (参_列左边 ＋ 2, 参_列顶边 ＋ (局_文本矩形.Height ＋ 2) × (局部_计次 － 1), 局_文本矩形.Width, 局_文本矩形.Height ＋ 2), 文本格式指针) ' 绘制线框的项目线
局部_计次 ＝ 局部_计次 ＋ 1
.计次循环尾 ()
局_所占矩形 ＝ 制矩形F (参_列左边, 参_列顶边, 局_文本矩形.Width ＋ 4, (局_文本矩形.Height ＋ 2) × 局_成员数)
图形_画矩形 (图形指针, 纯色画笔指针, 局_所占矩形) ' 绘制线框矩形