易语言更改组件光标源码

系统结构:创建插入符,显示插入符,载入图象,取实例句柄,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _编辑框1_获得焦点
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建插入符
           |  |
           |  |---[dll]------   显示插入符
           |  |
           |  |---[dll]------   载入图象
           |  |
           |  |---[dll]------   取实例句柄

调用的DLL命令:

.DLL命令 创建插入符, 整数型, "user32.dll", "CreateCaret"
    .参数 窗口句柄, 整数型, , hwnd，窗口句柄
    .参数 位图句柄, 整数型, , hBitmap，位图句柄
    .参数 宽度, 整数型, , nWidth，宽度
    .参数 高度, 整数型, , nHeight，高度

.DLL命令 显示插入符, 整数型, "user32.dll", "ShowCaret"
    .参数 窗口句柄, 整数型

.DLL命令 载入图象, 整数型, "user32.dll", "LoadImageA"
    .参数 实例句柄, 整数型, , hInst
    .参数 图象标志符, 文本型, , lpsz
    .参数 图象类型, 整数型, , un1
    .参数 图象宽度, 整数型, , n1
    .参数 图象高度, 整数型, , n2
    .参数 常数组合, 整数型, , un2

.DLL命令 取实例句柄, 整数型, , "GetModuleHandleA"
    .参数 程序名, 文本型