易语言控件打印模块1.1源码 [db:版本]

易语言控件打印模块1.1源码

系统结构:打印控件,画标签,画编辑框,画图片框,画高级表格,画组合框,画日期框,取字体宽度,取字体高度,标签文本分行,像素到毫米,毫米到像素,SendMessageRECT,SendMessageTEXT,GetDeviceCaps,API_GetDC,API_ReleaseDC,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======易控件打印类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 打印控件
| |
| |------ 画标签
| |
| |------ 画编辑框
| |
| |------ 画图片框
| |
| |------ 画高级表格
| |
| |------ 画组合框
| |
| |------ 画日期框
| |
| |
======程序集_模块
| |
| |------ 取字体宽度
| |
| |------ 取字体高度
| |
| |------ 标签文本分行
| |
| |------ 像素到毫米
| |
| |------ 毫米到像素
| |
| |
======调用的Dll
| |
| |---[dll]------ SendMessageRECT
| |
| |---[dll]------ SendMessageTEXT
| |
| |---[dll]------ GetDeviceCaps
| |
| |---[dll]------ API_GetDC
| |
| |---[dll]------ API_ReleaseDC

调用的DLL命令:

.DLL命令 SendMessageRECT, 整数型, , "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, RECT, 传址

.DLL命令 SendMessageTEXT, 整数型, , "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 文本型, 传址

.DLL命令 GetDeviceCaps, 整数型, "gdi32", "GetDeviceCaps", , 根据指定设备场景代表的设备的功能返回信息 参见GetDeviceCaps索引表
.参数 设备场景, 整数型, , 要查询其设备的信息的设备场景
.参数 值, 整数型, , 根据GetDeviceCaps索引表所示常数确定返回信息的类型;

.DLL命令 API_GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景 指定窗口的设备场景句柄，出错则为0
.参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 API_ReleaseDC, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害） 执行成功为1，否则为0
.参数 窗口句柄, 整数型, , 要释放的设备场景相关的窗口句柄
.参数 设备场景, 整数型, , 要释放的设备场景句柄;