易语言字符文本源码

系统结构:创建内存场景_,getdc,用指定属性创建逻辑字体_,释放设备场景_,删除设备场景_,创建刷子_,填充矩形_,填充区域_,复制场景位图_,选入设备场景_,创建阴影刷子_,画矩形_,删除对象_,创建GDI对象_,文本绘图_,取点_,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建内存场景_
           |  |
           |  |---[dll]------   getdc
           |  |
           |  |---[dll]------   用指定属性创建逻辑字体_
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   删除设备场景_
           |  |
           |  |---[dll]------   创建刷子_
           |  |
           |  |---[dll]------   填充矩形_
           |  |
           |  |---[dll]------   填充区域_
           |  |
           |  |---[dll]------   复制场景位图_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   创建阴影刷子_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   删除对象_
           |  |
           |  |---[dll]------   创建GDI对象_
           |  |
           |  |---[dll]------   文本绘图_
           |  |
           |  |---[dll]------   取点_

调用的DLL命令:

.DLL命令 创建内存场景_, 整数型, "Gdi32", "CreateCompatibleDC", , ,
    .参数 设备场景句柄, 整数型

.DLL命令 getdc, 整数型, , "GetDC"
    .参数 z, 整数型

.DLL命令 用指定属性创建逻辑字体_, 整数型, "gdi32.dll", "CreateFontA", , , 执行成功则返回逻辑字体的句柄，零表示失败
    .参数 字体高度, 整数型, , Height，字体高度
    .参数 字体宽度, 整数型, , Width，字体宽度
    .参数 旋转, 整数型, , Escapement，旋转
    .参数 Orientation, 整数型, , Orientation
    .参数 加粗, 整数型, , Weight，加粗
    .参数 倾斜, 整数型, , Italic，倾斜
    .参数 下划线, 整数型, , Underline，下划线
    .参数 删除线, 整数型, , StrikeOut，删除线
    .参数 内码, 整数型, , CharSet，内码
    .参数 OutputPrecision, 整数型, , OutputPrecision
    .参数 CP, 整数型, , ClipPrecision
    .参数 输出质量, 整数型, , Quality，输出质量
    .参数 PAF, 整数型, , PitchAndFamily
    .参数 新字体名, 文本型, , FaceName，新字体名

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , , ReleaseDC
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

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

.DLL命令 创建刷子_, 整数型, "gdi32", "CreateBrushIndirect", , ,
    .参数 格式, 刷子结构_

.DLL命令 填充矩形_, 整数型, "user32.dll", "FillRect", , , FillRect,用指定的刷子填充一个矩形
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 填充区域, 矩形_, , lpRect，对填充区域进行描述的一个矩形，采用逻辑坐标
    .参数 刷子句柄, 整数型, , hBrush，欲使用的刷子的句柄

.DLL命令 填充区域_, 整数型, "gdi32.dll", "ExtFloodFill", , , 在指定的设备场景里，用当前选择的刷子填充一个区域
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄
    .参数 填充点横坐标, 整数型, , x,开始填充的一个点横坐标，采用逻辑坐标表示
    .参数 填充点纵坐标, 整数型, , y,开始填充的一个点纵坐标，采用逻辑坐标表示
    .参数 边界颜色, 整数型, , crColor,要使用的边界颜色
    .参数 填充类型, 整数型, , wFillType,欲执行的填充类型

.DLL命令 复制场景位图_, 整数型, "gdi32.dll", "BitBlt", , ,
    .参数 目标设备场景, 整数型, , hDestDC,目标设备场景
    .参数 目标横坐标, 整数型, , x,对目标设备场景中目标矩形左上角位置进行描述的那个点
    .参数 目标纵坐标, 整数型, , y,对目标设备场景中目标矩形左上角位置进行描述的那个点
    .参数 传输图像宽度, 整数型, , nWidth,欲传输图象的宽度
    .参数 传输图像高度, 整数型, , nHeight,欲传输图象的高度
    .参数 源设备场景, 整数型, , hSrcDC,源设备场景。如光栅运算未指定源，则应设为0
    .参数 源横坐标, 整数型, , xSrc,对源设备场景中源矩形左上角位置进行描述的那个点
    .参数 源纵坐标, 整数型, , ySrc,对源设备场景中源矩形左上角位置进行描述的那个点
    .参数 光栅运算方式, 整数型, , dwRop,传输过程要执行的光栅运算

.DLL命令 选入设备场景_, 整数型, "gdi32.dll", "SelectObject", , , SelectObject
    .参数 场景句柄, 整数型, , hdc
    .参数 对象句柄, 整数型, , hobject

.DLL命令 创建阴影刷子_, 整数型, "gdi32.dll", "CreateHatchBrush", , CreateHatchBrush
    .参数 刷子阴影类型, 整数型, , nindex
    .参数 指定刷子的RGB前景色, 整数型, , crcolor

.DLL命令 画矩形_, 整数型, "gdi32.dll", "Rectangle", , Rectangle
    .参数 设备场景, 整数型, , hdc
    .参数 左上角横坐标, 整数型, , X
    .参数 左上角纵坐标, 整数型, , Y
    .参数 右下角横坐标, 整数型, , X1
    .参数 右下角纵坐标, 整数型, , Y1

.DLL命令 删除对象_, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放  非零表示成功，零表示失败
    .参数 对象句柄, 整数型, , 一个GDI对象的句柄;

.DLL命令 创建GDI对象_, 整数型, "gdi32", "CreateDIBSection", , 创建一个DIBSection。这是一个GDI对象，可象一幅与设备有关位图那样使用。但是，它在内部作为一幅与设备无关位图保存  执行成功返回DIBSection位图的句柄，零表示失败。会设置GetLastError
    .参数 设备场景句柄, 整数型, , 一个设备场景的句柄。如dw设为DIB_PAL_COLORS，那么DIB颜色表就会用来自逻辑调色板的颜色进行初始化
    .参数 pBitmapInfo, 位图信息_, , BITMAPINFO，这个结构初始化成欲创建的那幅位图的配置数据
    .参数 常数, 整数型, , 下述常数之一：;DIB_PAL_COLORS：BITMAPINFO包含了一个16位调色板索引的数组;DIB_RGB_COLORS：BITMAPINFO包含了一个颜色表，其中保存有32位颜色（RGBQUAD）
    .参数 内存地址, 整数型, , 用于载入DIBSection数据区的内存地址
    .参数 文件映射句柄, 整数型, , 指向一个文件映射对象的可选句柄，位图将在其中创建。如设为零，Windows会自动分配内存
    .参数 偏移量, 整数型, , 如指定了句柄，就用这个参数指定位图数据在文件映射对象中的偏移量;

.DLL命令 文本绘图_, 整数型, "gdi32.dll", "TextOutA", , , Long，非零表示成功，零表示失败。会设置GetLastError
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 横, 整数型, , x，绘图的起点，采用逻辑坐标
    .参数 纵, 整数型, , y，绘图的起点，采用逻辑坐标
    .参数 内容, 文本型, , lpstring，欲描绘的字串
    .参数 内容数量, 整数型, , ncount，字串中要描绘的字符数量

.DLL命令 取点_, 整数型, "gdi32.dll", "GetPixel", , ,
    .参数 设备场景句柄, 整数型
    .参数 x坐标, 整数型
    .参数 y坐标, 整数型