下你所需,载你所想!
汇集开发技术源码资料

易语言高级表格支持库控件打印模块源码

:9.794KB :1 :2019-12-15 08:34:36

部分简介

集_画板.移动 (0, 0, 编辑框.宽度 + 2, 编辑框.高度 + 2)
集_画板.清除 (, , , )
集_画板.画笔颜色 = 集_边框文本色
集_画板.文本颜色 = 集_编辑文本色
.如果真 (编辑框.内容 ≠ “”)
集_画板.字体 = 编辑框.字体
高度 = 取字体高度 (编辑框.字体.字体大小)
' 宽度 = 取字体宽度 (标签.字体.字体大小)
宽度 = 集_画板.取宽度 (编辑框.内容)
.判断开始 (编辑框.对齐方式 = 0)
左边 = 1
.判断 (编辑框.对齐方式 = 2)
左边 = 编辑框.宽度 - 宽度 - 1
.默认
左边 = (编辑框.宽度 - 宽度) ÷ 2
.判断结束

.判断开始 (编辑框.是否允许多行)
上边 = 1
' 总行数 = 编辑框.发送信息 (#EM_GETLINECOUNT, 0, 0)
SendMessageRECT (编辑框.取窗口句柄 (), #EM_GETRECT, 0, 可视范围) ' 获取编辑框的客户区范围
最小可见行 = 编辑框.发送信息 (#EM_CHARFROMPOS, 0, 1 × 65536) \ 65535 ' 取编辑框左上角当前的可见行行号
最大可见行 = 编辑框.发送信息 (#EM_CHARFROMPOS, 0, (可视范围.Bottom - 1) × 65536) \ 65535 ' 取编辑框左下角当前的可见行行号
.变量循环首 (最小可见行, 最大可见行, 1, 行号)
行文本长度 = SendMessageTEXT (编辑框.取窗口句柄 (), #EM_GETLINE, 行号, 集_行文本)
行文本 = 取文本左边 (集_行文本, 行文本长度)
集_画板.定位写出 (1, 上边, 行文本)
上边 = 上边 + 高度
.变量循环尾 ()
.默认
上边 = (编辑框.高度 - 高度) ÷ 2
集_画板.定位写出 (左边, 上边, 编辑框.内容)
.判断结束

.如果真结束

.如果真 (集_无边框 = 假 且 编辑框.边框 > 0)
集_画板.画出方式 = 8
集_画板.画矩形 (0, 0, 编辑框.宽度, 编辑框.高度)
.如果真结束
集_画板.复制 (0, 0, 编辑框.宽度, 编辑框.高度, 集_打印画板, 编辑框.左边, 编辑框.顶边 + 集_顶边位置, 1)

易语言高级表格支持库控件打印模块源码

热门推荐

相关文章