易语言屏幕写字命令

系统结构:刷新清除,屏幕写字,取桌面句柄,写屏,GetDC,ReleaseDC,GetWindowDC,SetTextCharacterExtra,SetTextColor,SetBkMode,FindWindowExA,InvalidateRect,SelectObject,CreateFontIndirectA,API_指定画笔位置,API_画直线,API_创建画笔,API_选入设备场景,API_当前选定对象,API_取窗口dc,API_设置背景模式,API_锁定窗口,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 刷新清除
           |  |
           |  |------ 屏幕写字
           |  |
           |  |------ __启动窗口_鼠标左键被按下
           |  |
           |  |------ __启动窗口_鼠标右键被按下
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取桌面句柄
           |  |
           |  |---[dll]------   写屏
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   SetTextCharacterExtra
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   InvalidateRect
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   CreateFontIndirectA
           |  |
           |  |---[dll]------   API_指定画笔位置
           |  |
           |  |---[dll]------   API_画直线
           |  |
           |  |---[dll]------   API_创建画笔
           |  |
           |  |---[dll]------   API_选入设备场景
           |  |
           |  |---[dll]------   API_当前选定对象
           |  |
           |  |---[dll]------   API_取窗口dc
           |  |
           |  |---[dll]------   API_设置背景模式
           |  |
           |  |---[dll]------   API_锁定窗口

调用的DLL命令:

.DLL命令 取桌面句柄, 整数型, "user32", "GetDesktopWindow"

.DLL命令 写屏, 整数型, "gdi32.dll", "TextOutA"
    .参数 设备场景, 整数型
    .参数 横, 整数型
    .参数 纵, 整数型
    .参数 内容, 文本型
    .参数 内容数量, 整数型

.DLL命令 GetDC, 整数型, "user32", "GetDC"
    .参数 窗口的句柄, 整数型

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , ReleaseDC
    .参数 窗口句柄, 整数型
    .参数 设备场景, 整数型

.DLL命令 GetWindowDC, 整数型, "user32", "GetWindowDC"
    .参数 窗口句柄, 整数型

.DLL命令 SetTextCharacterExtra, 整数型, "gdi32", "SetTextCharacterExtra"
    .参数 设备场景, 整数型
    .参数 间距, 整数型

.DLL命令 SetTextColor, 整数型, "gdi32", "SetTextColor"
    .参数 设备场景, 整数型
    .参数 颜色, 整数型

.DLL命令 SetBkMode, 整数型, "gdi32", "SetBkMode"
    .参数 hdc, 整数型
    .参数 nBkMode, 整数型

.DLL命令 FindWindowExA, 整数型, "user32", "FindWindowExA"
    .参数 窗口句柄1, 整数型
    .参数 窗口句柄2, 整数型
    .参数 欲搜索的类名1, 文本型
    .参数 欲搜索的类名2, 文本型

.DLL命令 InvalidateRect, 整数型, "user32", "InvalidateRect"
    .参数 窗口句柄, 整数型
    .参数 屏蔽矩形, 整数型
    .参数 重画前删除, 整数型

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject"
    .参数 设备场景句柄, 整数型
    .参数 对象句柄, 整数型, ,  

.DLL命令 CreateFontIndirectA, 整数型, "gdi32", "CreateFontIndirectA"
    .参数 字体结构信息, LOGFONT

.DLL命令 API_指定画笔位置, 整数型, "gdi32", "MoveToEx", , 为指定的设备场景指定一个新的当前画笔位置。前一个位置保存在lpPoint中  非零表示成功，零表示失败
    .参数 设备场景, 整数型, , 指向一个设备场景的句柄
    .参数 横坐标, 整数型, , 采用逻辑坐标表示的新画笔位置
    .参数 纵坐标, 整数型, , 同上
    .参数 画笔位置, POINTAPI, , POINTAPI，用于保存前一个画笔位置。可以为NULL（将参数改为ByVal As 以传递一个空参数）;

.DLL命令 API_画直线, 整数型, "gdi32", "LineTo", , 用当前画笔画一条线，从当前位置连到一个指定的点。这个函数调用完毕，当前位置变成x,y点  非零表示成功，零表示失败
    .参数 设备场景句柄, 整数型, , 设备场景的句柄
    .参数 终点横坐标, 整数型, , 线段终点位置，采用逻辑坐标表示。这个点不会实际画出来；它不属于线段的一部分;
    .参数 终点纵坐标, 整数型, , 同上;

.DLL命令 API_创建画笔, 整数型, "gdi32", "CreatePen", , 用指定的样式、宽度和颜色创建一个画笔  如函数执行成功，就返回指向新画笔的一个句柄；否则返回零
    .参数 风格, 整数型, , 指定画笔样式，可以是下述常数之一;PS_SOLID：画笔画出的是实线;PS_DASH：画笔画出的是虚线（nWidth必须是1）;PS_DOT：画笔画出的是点线（nWidth必须是1）;PS_DASHDOT：画笔画出的是点划线（nWidth必须是1）;PS_DASHDOTDOT：画笔画出的是点-点-划线（nWidth必须是1）;PS_NULL：画笔不能画图;PS_INSIDEFRAME：画笔在由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框中画图。如指定的准确RGB颜色不存在，就进行抖动处理
    .参数 宽度, 整数型, , 以逻辑单位表示的画笔的宽度
    .参数 颜色, 整数型, , 画笔的RGB颜色;

.DLL命令 API_选入设备场景, 整数型, "gdi32", "SelectObject", , 每个设备场景都可能有选入其中的图形对象。其中包括位图、刷子、字体、画笔以及区域等等。一次选入设备场景的只能有一个对象。选定的对象会在设备场景的绘图操作中使用。例如，当前选定的画笔决定了在设备场景中描绘的线段颜色及样式  与以前选入设备场景的相同hObject类型的一个对象的句柄，零表示出错。如选定的对象是一个区域（Region），结果就是下列常数之一：SIMPLEREGION， ;    COMPLEXREGION 或 NULLREGION 对区域进行描述， GDI_ERROR 表示出错
    .参数 设备场景句柄, 整数型, , 一个设备场景的句柄
    .参数 对象句柄, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄;

.DLL命令 API_当前选定对象, 整数型, "gdi32", "GetCurrentObject", , 用于获得指定类型的当前选定对象  当前选定对象的句柄，零表示错误
    .参数 设备场景句柄, 整数型, , 欲查询的设备场景
    .参数 对象类型, 整数型, , 对象类型。可以是下述常数之一：OBJ_PEN，OBJ_BRUSH，OBJ_PAL，OBJ_FONT，或OBJ_BITMAP;

.DLL命令 API_取窗口dc, 整数型, "user32", "GetWindowDC", , 获取整个窗口（包括边框、滚动条、标题栏、菜单等）的设备场景  执行成功为窗口设备场景，失败则为0
    .参数 窗口句柄, 整数型, , 将获取其设备场景的窗口;

.DLL命令 API_设置背景模式, 整数型, "gdi32", "SetBkMode", , 指定阴影刷子、虚线画笔以及字符中的空隙的填充方式  前一个背景模式的值
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 nBkMode, 整数型, , 下述常数之一：;OPAQUE：用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙;TRANSPARENT：透明处理，即不作上述填充;

.DLL命令 API_锁定窗口, 整数型, "user32", "LockWindowUpdate", , 锁定指定窗口，禁止它更新。同时只能有一个窗口处于锁定状态  非零表示成功，零表示失败（比如另外已有一个窗口锁定）
    .参数 窗口句柄, 整数型, , 欲锁定窗口的句柄。如设为零，则对窗口解锁;