易语言完整放大镜源码

系统结构:取窗口样式,设置窗口样式,设置窗口透明,设置新外形,创建椭圆区域,取场景,伸缩复制图象,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _窗口1_按下某键
           |  |
           |  |------ _镜片标签_鼠标右键被放开
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取窗口样式
           |  |
           |  |---[dll]------   设置窗口样式
           |  |
           |  |---[dll]------   设置窗口透明
           |  |
           |  |---[dll]------   设置新外形
           |  |
           |  |---[dll]------   创建椭圆区域
           |  |
           |  |---[dll]------   取场景
           |  |
           |  |---[dll]------   伸缩复制图象

调用的DLL命令:

.DLL命令 取窗口样式, 整数型, , "GetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 样式序号, 整数型

.DLL命令 设置窗口样式, 整数型, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 样式序号, 整数型
    .参数 欲赋予的新值, 整数型

.DLL命令 设置窗口透明, 整数型, , "SetLayeredWindowAttributes"
    .参数 窗口句柄, 整数型
    .参数 透明颜色, 整数型
    .参数 透明度, 整数型
    .参数 函数的运用方式, 整数型

.DLL命令 设置新外形, 整数型, , "SetWindowRgn"
    .参数 窗口或控件句柄, 整数型
    .参数 据以创建外形的区域句柄, 整数型
    .参数 创建后是否重画窗口或控件, 逻辑型

.DLL命令 创建椭圆区域, 整数型, , "CreateEllipticRgn"
    .参数 左上角横坐标, 整数型
    .参数 左上角纵坐标, 整数型
    .参数 右下角横坐标, 整数型
    .参数 右下角纵坐标, 整数型

.DLL命令 取场景, 整数型, , "GetDC"
    .参数 窗口或控件句柄, 整数型

.DLL命令 伸缩复制图象, , , "StretchBlt"
    .参数 目标设备场景, 整数型
    .参数 目标位置横坐标, 整数型
    .参数 目标位置纵坐标, 整数型
    .参数 目标图像宽, 整数型
    .参数 目标图像高, 整数型
    .参数 源设备场景, 整数型
    .参数 源位置横坐标, 整数型
    .参数 源位置纵坐标, 整数型
    .参数 源图像宽, 整数型
    .参数 源图像高, 整数型
    .参数 光栅运算, 整数型