易语言重画分组框源码

系统结构:加入分组框处理,分组框_消息处理,画分组框,控件_销毁释放资源,取字体宽高度,取属性_,置属性_,删除属性_,设置窗口信息_,呼叫窗口函数地址_,取设备场景_,释放设备场景_,取窗口信息_,调用缺省窗口过程_,取窗口矩形_,创建画笔_,指定画笔位置_,画直线_,选入设备场景_,删除对象_,取窗口标题长度_,取字串尺寸_,创建内存场景_,用指定属性创建逻辑字体_,取设备场景信息_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 加入分组框处理
           |  |
           |  |------ 分组框_消息处理
           |  |
           |  |------ 画分组框
           |  |
           |  |------ 控件_销毁释放资源
           |  |
           |  |------ 取字体宽高度
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_尺寸被改变
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取属性_
           |  |
           |  |---[dll]------   置属性_
           |  |
           |  |---[dll]------   删除属性_
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   取窗口信息_
           |  |
           |  |---[dll]------   调用缺省窗口过程_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   指定画笔位置_
           |  |
           |  |---[dll]------   画直线_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   取窗口标题长度_
           |  |
           |  |---[dll]------   取字串尺寸_
           |  |
           |  |---[dll]------   创建内存场景_
           |  |
           |  |---[dll]------   用指定属性创建逻辑字体_
           |  |
           |  |---[dll]------   取设备场景信息_

调用的DLL命令:

.DLL命令 取属性_, 整数型, "user32.dll", "GetPropA", , 取窗口属性列表
    .参数 窗口句柄, 整数型
    .参数 标识字符, 文本型

.DLL命令 置属性_, 整数型, "user32.dll", "SetPropA", , 设置窗口属性列表
    .参数 窗口句柄, 整数型
    .参数 标识字符, 文本型
    .参数 值, 整数型

.DLL命令 删除属性_, 整数型, "user32.dll", "RemovePropA"
    .参数 窗口句柄, 整数型
    .参数 标识字符, 文本型

.DLL命令 设置窗口信息_, 整数型, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 窗口信息值, 整数型
    .参数 窗口信息新值, 整数型

.DLL命令 呼叫窗口函数地址_, 整数型, , "CallWindowProcA"
    .参数 前一窗口函数地址, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息值, 整数型
    .参数 附加参数1, 整数型
    .参数 附加参数2, 整数型

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

.DLL命令 释放设备场景_, 整数型, , "ReleaseDC"
    .参数 窗口句柄, 整数型, , 要释放的设备场景相关的窗口
    .参数 设备场景, 整数型, , 要释放的设备场景句柄

.DLL命令 取窗口信息_, 整数型, , "GetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 窗口属性, 整数型

.DLL命令 调用缺省窗口过程_, 整数型, , "DefWindowProcA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 取窗口矩形_, 整数型, , "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_

.DLL命令 创建画笔_, 整数型, "gdi32", "CreatePen"
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

.DLL命令 指定画笔位置_, 整数型, "gdi32.dll", "MoveToEx"
    .参数 设备场景, 整数型, , hdc，指向一个设备场景的句柄
    .参数 横坐标, 整数型, , x，采用逻辑坐标表示的新画笔位置
    .参数 纵坐标, 整数型, , y，采用逻辑坐标表示的新画笔位置
    .参数 画笔位置, 坐标_, , lpPoint，用于保存前一个画笔位置

.DLL命令 画直线_, 整数型, "gdi32.dll", "LineTo", , 用当前画笔画一条线，从当前位置连到一个指定的点
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄
    .参数 终点横坐标, 整数型, , x,线段终点位置，采用逻辑坐标表示
    .参数 终点纵坐标, 整数型, , y,线段终点位置，采用逻辑坐标表示

.DLL命令 选入设备场景_, 整数型, , "SelectObject", 公开
    .参数 设备场景, 整数型
    .参数 对象句柄, 整数型

.DLL命令 删除对象_, 整数型, , "DeleteObject", 公开
    .参数 对象句柄, 整数型

.DLL命令 取窗口标题长度_, 整数型, , "GetWindowTextLengthA", , 取窗口标题长度_
    .参数 窗口句柄, 整数型, , 欲获取文字长度的那个窗口的句柄

.DLL命令 取字串尺寸_, 整数型, "gdi32", "GetTextExtentPointA"
    .参数 设备场景, 整数型
    .参数 字串, 文本型
    .参数 字符数, 整数型
    .参数 尺寸, 坐标_, , 借用,和尺寸都是8个字节长度

.DLL命令 创建内存场景_, 整数型, "Gdi32", "CreateCompatibleDC", , ,
    .参数 设备场景句柄, 整数型

.DLL命令 用指定属性创建逻辑字体_, 整数型, "gdi32.dll", "CreateFontA", , , 执行成功则返回逻辑字体的句柄，零表示失败
    .参数 字体高度, 整数型, , Height，字体高度
    .参数 字体宽度, 整数型, , Width，字体宽度
    .参数 旋转, 整数型, , Escapement，旋转
    .参数 Orientation, 整数型, , Orientation
    .参数 加粗, 整数型, , Weight，加粗
    .参数 倾斜, 整数型, , Italic，倾斜
    .参数 下划线, 整数型, , Underline，下划线
    .参数 删除线, 整数型, , StrikeOut，删除线
    .参数 内码, 整数型, , CharSet，内码
    .参数 OutputPrecision, 整数型, , OutputPrecision
    .参数 CP, 整数型, , ClipPrecision
    .参数 输出质量, 整数型, , Quality，输出质量
    .参数 PAF, 整数型, , PitchAndFamily
    .参数 新字体名, 文本型, , FaceName，新字体名

.DLL命令 取设备场景信息_, 整数型, "gdi32", "GetDeviceCaps", , ,
    .参数 设备场景, 整数型
    .参数 值, 整数型