gdi初学者e语言代码框源码 软件加入语法高亮+尤里Uiluv自绘专用模块.ec

以下 +2 +4 是为了让文本与线框隔开一定距离，防止贴太近不美观
.如果真 (参_最小列宽 ＞ 局_文本矩形.Width ＋ 4)  ' 加4减4是为了对应下面画文本画线框线的偏移值
    局_文本矩形.Width ＝ 参_最小列宽 － 4
.如果真结束

局_成员数 ＝ 取数组成员数 (参_文本数组)
局_计次 ＝ 1
画笔_置颜色 (纯色画笔指针, 参_线框颜色)  ' 线框颜色
.计次循环首 (局_成员数, 局_计次)
    .如果 (局_计次 ＝ 1)
        画刷_纯色_置颜色 (纯色画刷指针, 参_表头背景颜色)  ' 表头背景颜色
        参_表头矩形 ＝ 制矩形F (参_列左边, 参_列顶边, 局_文本矩形.Width ＋ 4, 局_文本矩形.Height ＋ 2)
        ' 表头矩形用处:判断鼠标所在位置 参考子程序【取表项索引】
        ' 1 判断鼠标位置在该列所占矩形 2 判断鼠标位置在表头矩形的内，即处于表头矩形的左边和右边内 3 鼠标位置距离表头顶边距离除以表头矩形高度的到表项索引
        图形_填充矩形 (图形指针, 纯色画刷指针, 参_表头矩形)
        画刷_纯色_置颜色 (纯色画刷指针, 参_表头文本颜色)  ' 表头文本颜色
    .否则
        画刷_纯色_置颜色 (纯色画刷指针, 参_表项文本颜色)  ' 表项文本颜色