易语言API画矩形源码

系统结构:设置刷子颜色,取对象句柄_,设置画笔颜色,取设备场景_,释放设备场景_,画矩形_,删除对象_,DrawText,GetClientRect,选入设备场景_,画矩形边框_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   设置刷子颜色
           |  |
           |  |---[dll]------   取对象句柄_
           |  |
           |  |---[dll]------   设置画笔颜色
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   DrawText
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   画矩形边框_

调用的DLL命令:

.DLL命令 设置刷子颜色, 整数型, "gdi32.dll", "SetDCBrushColor"
    .参数 hdc, 整数型
    .参数 colorref, 整数型

.DLL命令 取对象句柄_, 整数型, "gdi32", "GetStockObject", , ,
    .参数 类型, 整数型

.DLL命令 设置画笔颜色, 整数型, "gdi32.dll", "SetDCPenColor"
    .参数 hdc, 整数型
    .参数 colorref, 整数型

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

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

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

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

.DLL命令 DrawText, 整数型, "user32.dll", "DrawTextA"
    .参数 hdc, 整数型
    .参数 lpStr, 文本型
    .参数 nCount, 整数型
    .参数 lpRect, Rect, 传址
    .参数 wFormat, 整数型

.DLL命令 GetClientRect, 整数型, "user32.dll", "GetClientRect"
    .参数 hwnd, 整数型
    .参数 lpRect, Rect, 传址

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

.DLL命令 画矩形边框_, 整数型, "user32.dll", "FrameRect", , ,
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 矩形, Rect, , lpRect，对要描绘的边框进行描述的一个矩形
    .参数 刷子句柄, 整数型, , hBrush，欲使用的刷子的句柄