易语言模拟选择夹图形按钮源码

系统结构:界面初始化,F_圆角化窗口,画选择夹按钮,激活选择夹,GetWindowRect,CreateRoundRectRgn,SetWindowRgn,DeleteObject,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 界面初始化
           |  |
           |  |------ _图形按钮101_被单击
           |  |
           |  |------ _图形按钮_关闭_被单击
           |  |
           |  |
======模块程序集
           |  |
           |  |------ F_圆角化窗口
           |  |
           |  |------ 画选择夹按钮
           |  |
           |  |------ 激活选择夹
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   DeleteObject

调用的DLL命令:

.DLL命令 GetWindowRect, 整数型, , "GetWindowRect"
    .参数 hwnd, 整数型
    .参数 lpRect, RECT

.DLL命令 CreateRoundRectRgn, 整数型, , "CreateRoundRectRgn"
    .参数 x1
    .参数 y1
    .参数 x2
    .参数 y2
    .参数 x3
    .参数 y3

.DLL命令 SetWindowRgn, , , "SetWindowRgn"
    .参数 hWnd
    .参数 hRgn
    .参数 bRedraw, 逻辑型

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放,非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄