易语言GDI渐变矩形源码

系统结构:构造矩形,FillRect,GetDC,GetWindowRect,ReleaseDC,CreateSolidBrush,DeleteObject,MulDiv,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 构造矩形
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FillRect
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   MulDiv

调用的DLL命令:

.DLL命令 FillRect, 整数型, "user32", "FillRect", , 用指定的刷子填充一个矩形　非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 lpRect, RECT, , RECT，对填充区域进行描述的一个矩形，采用逻辑坐标
    .参数 hBrush, 整数型, , 欲使用的刷子的句柄;  

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

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, , , RECT，屏幕坐标中随同窗口装载的矩形;  

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）　执行成功为1，否则为0
    .参数 hwnd, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 hdc, 整数型, , 要释放的设备场景句柄;  

.DLL命令 CreateSolidBrush, 整数型, "gdi32.dll", "CreateSolidBrush"
    .参数 crColor, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject"
    .参数 hObject, 整数型

.DLL命令 MulDiv, 整数型, "kernel32", "MulDiv", , 将两数相乘并并除以结果　
    .参数 nNumber, 整数型
    .参数 nNumerator, 整数型
    .参数 nDenominator, 整数型