易语言高级表格自动换行源码

系统结构:处理,SetWindowLongA,CallWindowProc,SendMessageA_文本,SendMessageA,GetClientRect,CreateCompatibleDC,GetDC,DeleteDC,ReleaseDC,SetBkMode,SetGraphicsMode,CreateCompatibleBitmap,SelectObject,DeleteObject,CreateFontA,DrawTextA,SetWindowPos,GetTextExtentPointA,GetWindowLongA,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_尺寸被改变
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ 处理
           |  |
           |  |------ _取限宽文本高度
           |  |
           |  |------ _取绘制文本宽度
           |  |
           |  |------ _LOword
           |  |
           |  |------ _HIword
           |  |
           |  |------ _取子程序指针
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SendMessageA_文本
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   SetGraphicsMode
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   CreateFontA
           |  |
           |  |---[dll]------   DrawTextA
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   GetTextExtentPointA
           |  |
           |  |---[dll]------   GetWindowLongA

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, "user32", "SetWindowLongA", 公开, 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", 公开, 将消息传答窗口函数
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SendMessageA_文本, 整数型, "user32.dll", "SendMessageA", 公开
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 文本型

.DLL命令 SendMessageA, 整数型, "user32.dll", "SendMessageA", 公开
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetClientRect, 整数型, "user32", "GetClientRect", 公开, 返回指定窗口矩形的大小  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 欲计算大小的目标窗口
    .参数 lpRect, RECT_, 传址, RECT，指定一个矩形，用客户区域的大小载入（以像素为单位）;

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC", 公开, 创建兼容画布
    .参数 画布句柄, 整数型

.DLL命令 GetDC, 整数型, , "GetDC", 公开, 取画布句柄
    .参数 窗口句柄, 整数型

.DLL命令 DeleteDC, 逻辑型, , "DeleteDC", 公开, 删除画布
    .参数 画布句柄, 整数型

.DLL命令 ReleaseDC, 整数型, , "ReleaseDC", 公开, 释放画布
    .参数 窗口句柄, 整数型
    .参数 画布句柄, 整数型

.DLL命令 SetBkMode, 整数型, , "SetBkMode", 公开
    .参数 画布句柄, 整数型
    .参数 模式, 整数型, , 透明处理 TRANSPARENT=1

.DLL命令 SetGraphicsMode, 整数型, , "SetGraphicsMode", 公开, 设置图形模式
    .参数 画布句柄, 整数型
    .参数 模式, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, , "CreateCompatibleBitmap", 公开, 创建设备场景位图_
    .参数 hdc
    .参数 nWidth
    .参数 nHeight

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject", 公开
    .参数 hdc, 整数型
    .参数 hObject, 整数型

.DLL命令 DeleteObject, 整数型, , , 公开
    .参数 hObject, 整数型

.DLL命令 CreateFontA, 整数型, , "CreateFontA", 公开
    .参数 高度, 整数型
    .参数 宽度, 整数型
    .参数 倾斜, 整数型
    .参数 方向, 整数型
    .参数 粗细, 整数型
    .参数 倾斜样式, 逻辑型
    .参数 下划线样式, 逻辑型
    .参数 中画线样式, 逻辑型
    .参数 字符集, 整数型
    .参数 输出精度, 整数型
    .参数 裁切精度, 整数型
    .参数 质量, 整数型
    .参数 家族, 整数型
    .参数 字体名, 文本型, 传址

.DLL命令 DrawTextA, 整数型, , "DrawTextA", 公开
    .参数 hdc, 整数型
    .参数 lpStr, 文本型, , 欲描绘的文本字串
    .参数 nCount, 整数型, , 欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1
    .参数 lpRect, RECT_, , 绘图的一个格式化矩形
    .参数 wFormat, 整数型

.DLL命令 SetWindowPos, , , "SetWindowPos", 公开
    .参数 hwnd, 整数型
    .参数 hWndInsertAfter, 整数型, , HWND_TOPMOST=-1
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 cx, 整数型, , 新宽度
    .参数 cy, 整数型, , 新高度
    .参数 wFlags, 整数型, , SWP_NOMOVE=2

.DLL命令 GetTextExtentPointA, , "gdi32", "GetTextExtentPointA", 公开, 判断一个字串的大小（范围）。非零表示成功，零表示失败。
    .参数 hdc, 整数型
    .参数 lpszString, 文本型, , 欲度量其范围（extent）的一个字串
    .参数 cbString, 整数型, , lpszString字串的长度
    .参数 lpSize, Point_, 传址

.DLL命令 GetWindowLongA, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型