易语言通用刷新显示源码

系统结构:刷新显示_API,删除设备场景_,取鼠标位置_,画椭圆_,取窗口全部设备场景_,取设备场景_,刷新显示_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_鼠标左键被放开
           |  |
           |  |------ __启动窗口_鼠标位置被移动
           |  |
           |  |
======程序集1
           |  |
           |  |------ 刷新显示_API
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   删除设备场景_
           |  |
           |  |---[dll]------   取鼠标位置_
           |  |
           |  |---[dll]------   画椭圆_
           |  |
           |  |---[dll]------   取窗口全部设备场景_
           |  |
           |  |---[dll]------   取设备场景_
           |  |
           |  |---[dll]------   刷新显示_

调用的DLL命令:

.DLL命令 删除设备场景_, 整数型, "gdi32.dll", "DeleteDC"
    .参数 设备场景句柄, 整数型, , hdc，将要删除的设备场景

.DLL命令 取鼠标位置_, 整数型, "user32", "GetCursorPos"
    .参数 位置, 坐标_

.DLL命令 画椭圆_, 整数型, "gdi32.dll", "Ellipse", , 描绘一个椭圆，由指定的矩形围绕
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄
    .参数 矩形左上角位置横坐标, 整数型, , X1,约束矩形采用逻辑坐标的左上角位置
    .参数 矩形左上角位置纵坐标, 整数型, , Y1,约束矩形采用逻辑坐标的左上角位置
    .参数 矩形右下角位置横坐标, 整数型, , X2,约束矩形采用逻辑坐标的右下角位置
    .参数 矩形右下角位置纵坐标, 整数型, , Y2,约束矩形采用逻辑坐标的右下角位置

.DLL命令 取窗口全部设备场景_, 整数型, "user32.dll", "GetWindowDC"
    .参数 窗口句柄, 整数型

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

.DLL命令 刷新显示_, , "user32", "UpdateWindow"
    .参数 hwnd, 整数型