易语言画边框源码

系统结构:DrawWindowFrame,取屏幕句柄_,默认光栅运算_,取窗口矩形_,创建画笔_,选入设备场景_,画矩形_,删除对象_,释放设备场景_,GetWindowDC,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ DrawWindowFrame
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取屏幕句柄_
           |  |
           |  |---[dll]------   默认光栅运算_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   GetWindowDC

调用的DLL命令:

.DLL命令 取屏幕句柄_, 整数型, "user32", "GetDesktopWindow", , ,

.DLL命令 默认光栅运算_, 整数型, "gdi32", "SetROP2", , ,
    .参数 设备场景, 整数型
    .参数 光栅运算方式, 整数型

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

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

.DLL命令 选入设备场景_, 整数型, "gdi32.dll", "SelectObject", , , SelectObject
    .参数 场景句柄, 整数型, , hdc
    .参数 对象句柄, 整数型, , hobject

.DLL命令 画矩形_, 整数型, "gdi32.dll", "Rectangle", , , Rectangle
    .参数 设备场景句柄, 整数型, , hdc
    .参数 左上角横坐标, 整数型, , X
    .参数 左上角纵坐标, 整数型, , Y
    .参数 右下角横坐标, 整数型, , X1
    .参数 右下角纵坐标, 整数型, , Y1

.DLL命令 删除对象_, 整数型, "gdi32.dll", "DeleteObject", , , DeleteObject
    .参数 对象句柄, 整数型, , hObject,一个GDI对象的句柄

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

.DLL命令 GetWindowDC, 整数型, "user32.dll", "GetWindowDC", , ,
    .参数 窗口句柄, 整数型