易语言K线分析图源码

系统结构:消息处理,复制位图,周期事件,调入列表视图参数,设置参数,调入分时视图参数,调入K线视图参数,区域清屏,鼠标左键单击,鼠标左键双击,鼠标轮滚动,子程序1,子程序2,子程序3,初始化,构建总体区域,构建列表区域,画实时行情,移动横调节器,移动纵调节器,初始化,创建分时显示框架,创建盘口显示框架,画分时,分时图初始化,初始化,创建K线显示框架,创建盘口显示框架,K线图初始化,画K线,区域分布,取参数指针,置入场景,画盘口,绘出文本,指定位置绘文本,画直线,画K线_,清屏,红绿白,API_GetDC,取客户区矩形,创建内存场景,创建兼容位图,释放设备场景,系统状态栏信息_,选入设备场景,API_删除对象,创建画笔_,API_创建纯色刷子,API_矩形创建矩形区域,API_画区域外框,复制场景位图_,API_刷新窗口区域,设置窗口信息_,呼叫窗口函数地址_,API_BeginPaint,API_EndPaint,设置前景色,设置背景色,API_TextOut,API_画矩形文本,API_载入图象,指定画笔位置_,API_画直线,API_填充区域,API_用指定属性创建逻辑字体,使用指定属性创建逻辑字体_,文本到字节数组,API_ScrollDC,创建纯色刷子_,填充矩形_,画矩形边框_,延迟时间_,发送消息_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 消息处理
           |  |
           |  |------ 复制位图
           |  |
           |  |------ 周期事件
           |  |
           |  |
======视图处理程序
           |  |
           |  |------ 调入列表视图参数
           |  |
           |  |------ 设置参数
           |  |
           |  |------ 调入分时视图参数
           |  |
           |  |------ 调入K线视图参数
           |  |
           |  |------ 区域清屏
           |  |
           |  |------ 鼠标左键单击
           |  |
           |  |------ 鼠标左键双击
           |  |
           |  |------ 鼠标轮滚动
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 子程序2
           |  |
           |  |------ 子程序3
           |  |
           |  |
======画列表
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 初始化
           |  |
           |  |------ 构建总体区域
           |  |
           |  |------ 构建列表区域
           |  |
           |  |------ 画实时行情
           |  |
           |  |------ 移动横调节器
           |  |
           |  |------ 移动纵调节器
           |  |
           |  |
======画分时
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 初始化
           |  |
           |  |------ 创建分时显示框架
           |  |
           |  |------ 创建盘口显示框架
           |  |
           |  |------ 画分时
           |  |
           |  |------ 分时图初始化
           |  |
           |  |
======画K线
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 初始化
           |  |
           |  |------ 创建K线显示框架
           |  |
           |  |------ 创建盘口显示框架
           |  |
           |  |------ K线图初始化
           |  |
           |  |------ 画K线
           |  |
           |  |
======绘图
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 区域分布
           |  |
           |  |------ 取参数指针
           |  |
           |  |------ 置入场景
           |  |
           |  |------ 画盘口
           |  |
           |  |------ 绘出文本
           |  |
           |  |------ 指定位置绘文本
           |  |
           |  |------ 画直线
           |  |
           |  |------ 画K线_
           |  |
           |  |------ 清屏
           |  |
           |  |------ 红绿白
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_GetDC
           |  |
           |  |---[dll]------   取客户区矩形
           |  |
           |  |---[dll]------   创建内存场景
           |  |
           |  |---[dll]------   创建兼容位图
           |  |
           |  |---[dll]------   释放设备场景
           |  |
           |  |---[dll]------   系统状态栏信息_
           |  |
           |  |---[dll]------   选入设备场景
           |  |
           |  |---[dll]------   API_删除对象
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   API_创建纯色刷子
           |  |
           |  |---[dll]------   API_矩形创建矩形区域
           |  |
           |  |---[dll]------   API_画区域外框
           |  |
           |  |---[dll]------   复制场景位图_
           |  |
           |  |---[dll]------   API_刷新窗口区域
           |  |
           |  |---[dll]------   设置窗口信息_
           |  |
           |  |---[dll]------   呼叫窗口函数地址_
           |  |
           |  |---[dll]------   API_BeginPaint
           |  |
           |  |---[dll]------   API_EndPaint
           |  |
           |  |---[dll]------   设置前景色
           |  |
           |  |---[dll]------   设置背景色
           |  |
           |  |---[dll]------   API_TextOut
           |  |
           |  |---[dll]------   API_画矩形文本
           |  |
           |  |---[dll]------   API_载入图象
           |  |
           |  |---[dll]------   指定画笔位置_
           |  |
           |  |---[dll]------   API_画直线
           |  |
           |  |---[dll]------   API_填充区域
           |  |
           |  |---[dll]------   API_用指定属性创建逻辑字体
           |  |
           |  |---[dll]------   使用指定属性创建逻辑字体_
           |  |
           |  |---[dll]------   文本到字节数组
           |  |
           |  |---[dll]------   API_ScrollDC
           |  |
           |  |---[dll]------   创建纯色刷子_
           |  |
           |  |---[dll]------   填充矩形_
           |  |
           |  |---[dll]------   画矩形边框_
           |  |
           |  |---[dll]------   延迟时间_
           |  |
           |  |---[dll]------   发送消息_

调用的DLL命令:

.DLL命令 API_GetDC, 整数型, "user32.dll", "GetDC", , HDC WINAPI GetDC
    .参数 hWnd, 整数型, , HWND hWnd ,

.DLL命令 取客户区矩形, 整数型, "user32", "GetClientRect"
    .参数 窗口句柄, 整数型
    .参数 矩形区域, RECT

.DLL命令 创建内存场景, 整数型, "gdi32.dll", "CreateCompatibleDC", , 创建内存场景
    .参数 hdc, 整数型

.DLL命令 创建兼容位图, 整数型, "gdi32.dll", "CreateCompatibleBitmap"
    .参数 hdc, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型

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

.DLL命令 系统状态栏信息_, 整数型, "shell32.dll", "SHAppBarMessage", , , SHAppBarMessage
    .参数 信息值, 整数型, , dwMessage
    .参数 数据结构, 系统状态栏信息_, , pData

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

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

.DLL命令 创建画笔_, 整数型, "gdi32", "CreatePen"
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

.DLL命令 API_创建纯色刷子, 整数型, "gdi32", "CreateSolidBrush", , 用纯色创建一个刷子　如执行成功，返回新刷子的一个句柄；否则返回零
    .参数 颜色值, 整数型, , 数字的RGB彩色;  

.DLL命令 API_矩形创建矩形区域, 整数型, "gdi32", "CreateRectRgnIndirect", , 创建一个由lpRect确定的矩形区域　执行成功则为区域句柄，失败则为0
    .参数 矩形结构信息, RECT, , RECT，要用来创建区域的矩形;  

.DLL命令 API_画区域外框, 整数型, "gdi32.dll", "FrameRgn", , FrameRgn,用指定刷子围绕指定区域画一个外框
    .参数 设备场景, 整数型, , hdc，设备场景句柄
    .参数 区域句柄, 整数型, , hRgn，将数据设备坐标填充的区域句柄
    .参数 刷子句柄, 整数型, , hBrush，将用的刷子句柄
    .参数 垂直边框宽度, 整数型, , nWidth，垂直边框宽度（以设备单元为单位）
    .参数 水平边框高度, 整数型, , nHeight，水平边框高度（以设备单元为单位）

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

.DLL命令 API_刷新窗口区域, 整数型, "user32", "InvalidateRgn", , 使窗口指定区域不活动，并将它加入窗口刷新区，使之可随后被重画　TRUE
    .参数 窗口句柄, 整数型, , 窗口句柄
    .参数 不活动区域句柄, 整数型, , 不活动区域句柄，该区域以窗口客户坐标定义。若该句柄为0，则将使整个窗口客户区不活动
    .参数 重画前删除, 整数型, , 为非零值则表示要在刷新前擦除;  

.DLL命令 设置窗口信息_, 整数型, "user32.dll", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA", , CallWindowProcA将消息传答窗口函数　
    .参数 前一窗口函数地址, 整数型, , lpPrevWndFunc
    .参数 窗口句柄, 整数型, , hwnd
    .参数 消息值, 整数型, , msg
    .参数 附加参数1, 整数型, , wParam
    .参数 附加参数2, 整数型, , lParam

.DLL命令 API_BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 API_EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 设置前景色, 整数型, "gdi32", "SetTextColor", , 设置当前文本颜色。这种颜色也称为“前景色”  文本色的前一个RGB颜色设定。CLR_INVALID表示失败。会设置GetLastError
    .参数 设备场景, 整数型
    .参数 颜色, 整数型

.DLL命令 设置背景色, 整数型, "gdi32.dll", "SetBkColor", , SetBkColor，背景颜色用于填充阴影刷子、虚线画笔以及字符（如背景模式为OPAQUE）中的空隙。也在位图颜色转换期间使用。参考SetBkMode,Long，前一个背景色，CLR_INVALID表示出错
    .参数 设备场景句柄, 整数型, , hdc，设备场景的句柄
    .参数 RGB颜色值, 整数型, , crColor，新背景颜色的RGB颜色值

.DLL命令 API_TextOut, 整数型, "gdi32", "TextOutA", , 文本绘图函数。也请参考SetTextAlign  非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 x, 整数型, , 绘图的起点，采用逻辑坐标
    .参数 y, 整数型, , 同上
    .参数 lpString, 文本型, , 欲描绘的字串
    .参数 nCount, 整数型, , 字串中要描绘的字符数量;

.DLL命令 API_画矩形文本, 整数型, "user32", "DrawTextA", , 将文本描绘到指定的矩形中　描绘文字的高度
    .参数 设备场景句柄, 整数型, , 欲在其中显示文字的一个设备场景的句柄
    .参数 描绘的字串, 文本型, , 欲描绘的文本字串
    .参数 描绘的字串数量, 整数型, , 欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1
    .参数 描绘文本区域, RECT, , RECT，指定用于绘图的一个格式化矩形（采用逻辑坐标）
    .参数 格式, 整数型, , 一个标志位数组，决定了以何种形式执行绘图。参考下面总结的常数类型列表标志常数说明DT_BOTTOM必须同时指定DT_SINGLE。指示文本对齐格式化矩形的底边DT_CALCRECT象下面这样计算格式化矩形：多行绘图时矩形的底边根据需要进行延展，以便容下所有文字；单行绘图时，延展矩形的右侧。不描绘文字。由lpRect参数指定的矩形会载入计算出来的值DT_CENTER文本垂直居中DT_EXPANDTABS描绘文字的时候，对制表站进行扩展。默认的制表站间距是8个字符。但是，可用DT_TABSTOP标志改变这项设定DT_EXTERNALLEADING计算文本行高度的时候，使用当前字体的外部间距属性（the external leading attribute）DT_LEFT文本左对齐DT_NOCLIP描绘文字时不剪切到指定的矩形DT_NOPREFIX通常，函数认为 & 字符表示应为下一个字符加上下划线。该标志禁止这种行为DT_RIGHT文本右对齐DT_SINGLELINE只画单行DT_TABSTOP指定新的制表站间距，采用这个整数的高8位DT_TOP必须同时指定DT_SINGLE。指示文本对齐格式化矩形的顶部DT_VCENTER必须同时指定DT_SINGLE。指示文本对齐格式化矩形的中部DT_WORDBREAK进行自动换行。如用SetTextAlign函数设置了TA_UPDATECP标志，这里的设置则无效;

.DLL命令 API_载入图象, 整数型, "user32", "LoadImageA", , 载入一个位图、图标或指针　执行成功则返回对象的一个句柄；零表示失败
    .参数 实例句柄, 整数型, , 要从其中载入图象的DLL或应用程序模块或实例句柄。零表示装载一幅固有图象
    .参数 图象标志符, 文本型, , 欲载入图象的名字。如指定了hInst，就用这个参数指定资源或资源的标志符（标志符是一个长整数）。如hInst为空，而且已指定了LR_LOADFROMFILE，那么这个参数代表文件名（位图、图标或指针文件）。如果是个Long型值，这个参数就代表固有位图、图标或指针的编号
    .参数 图象类型, 整数型, , 下述常数之一，指定了欲载入的图象类型：IMAGE_BITMAP， IMAGE_CURSOR， IMAGE_ICON
    .参数 图象宽度, 整数型, , 要求的图象宽度和高度。图象会根据情况自动伸缩。如设为零，表示用图象的默认大小
    .参数 图象高度, 整数型, , 同上
    .参数 常数组合, 整数型, , 下述常数的任意组合，它们都在api32.txt文件中得到了定义：;LR_DEFAULTCOLOR：以常规方式载入图象;LR_LOADREALSIZE：不对图象进行缩放处理。忽略n1和n2的设置;LR_CREATEDIBSECTION：如果指定了IMAGE_BITMAP，就返回DIBSection的句柄，而不是位图的句柄;LR_DEFAULTSIZE：如果n1和n2为零，就使用由系统定义的图象默认大小，而不是图象本身定义的大小;LR_LOADFROMFILE：如hInst为零，lpsz就代表要载入适当类型的一个文件的名字，仅适用于Win95;LR_LOADMAP3DCOLORS：将图象中的深灰、灰、以及浅灰像素都替换成COLOR_3DSHADOW，COLOR_3DFACE以及COLOR_3DLIGHT的当前设置;LR_LOADTRANSPARENT：与图象中第一个像素相符的所有像素都由系统替换;LR_MONOCHROME：将图象转换成单色;LR_SHARED：将图象作为一个共享资源载入。在NT 4.0中装载固有资源时要用到这个设置;

.DLL命令 指定画笔位置_, 整数型, "gdi32.dll", "MoveToEx"
    .参数 设备场景, 整数型, , hdc，指向一个设备场景的句柄
    .参数 横坐标, 整数型, , x，采用逻辑坐标表示的新画笔位置
    .参数 纵坐标, 整数型, , y，采用逻辑坐标表示的新画笔位置
    .参数 画笔位置, 坐标_, , lpPoint，用于保存前一个画笔位置

.DLL命令 API_画直线, 整数型, "gdi32.dll", "LineTo", , 用当前画笔画一条线，从当前位置连到一个指定的点
    .参数 设备场景句柄, 整数型, , hdc,设备场景的句柄
    .参数 终点横坐标, 整数型, , x,线段终点位置，采用逻辑坐标表示
    .参数 终点纵坐标, 整数型, , y,线段终点位置，采用逻辑坐标表示

.DLL命令 API_填充区域, 整数型, "gdi32", "FillRgn", , 用指定刷子填充指定区域　执行成功为非零值，失败则为0
    .参数 设备场景句柄, 整数型, , 设备场景句柄
    .参数 区域句柄, 整数型, , 以数据设备坐标填充的区域句柄
    .参数 刷子句柄, 整数型, , 要用的刷子的句柄;

.DLL命令 API_用指定属性创建逻辑字体, 整数型, "gdi32", "CreateFontA", , 用指定的属性创建一种逻辑字体　执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 字体高度, 整数型, , IfHeight
    .参数 字体宽度, 整数型, , IfWidth
    .参数 旋转, 整数型, , IfEscapement
    .参数 Orientation, 整数型, , IfOrientation字体的倾斜角
    .参数 加粗, 整数型, , IfWeight
    .参数 倾斜, 整数型, , IfItalic
    .参数 下划线, 整数型, , IfUnderline
    .参数 删除线, 整数型, , IfStrikeOut
    .参数 内码, 整数型, , IfCharSet   字体使用的字符集
    .参数 OutputPrecision, 整数型, , IfOutputPrecision选择合适的字体
    .参数 CP, 整数型, , IfClipPrecision定裁剪的精度
    .参数 输出质量, 整数型, , IfQuality
    .参数 PAF, 整数型, , IfPitchAndFamily间距标志和属性标志
    .参数 新字体名, 文本型, , IfFaceName;  

.DLL命令 使用指定属性创建逻辑字体_, 整数型, "gdi32.dll", "CreateFontIndirectA", , 执行成功则返回逻辑字体句柄，零表示失败
    .参数 字体结构信息, 逻辑字体_, 传址, lpLogFont，字体结构信息

.DLL命令 文本到字节数组, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据地址, 字节型, 数组, lpvDest
    .参数 源数据, 文本型, 传址, lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 API_ScrollDC, 整数型, "user32", "ScrollDC", , 在窗口（由设备场景代表）中水平和（或）垂直滚动矩形　执行成功为非零值，失败为0，并设置GetLastError
    .参数 hdc, 整数型, , 设备场景句柄
    .参数 dx, 整数型, , 将滚动的水平单位
    .参数 dy, 整数型, , 将滚动的垂直单位
    .参数 lprcScroll, RECT, , RECT，要滚动的矩形
    .参数 lprcClip, RECT, , RECT，定义剪裁区的矩形，滚动只能在该区内进行
    .参数 hrgnUpdate, 整数型, , 该区域设置为客户坐标系统中不被滚动操作覆盖的区，也可为0，则表示没有设置刷新区域
    .参数 lprcUpdate, RECT, , RECT，该矩形为客户坐标系统中不被滚动操作覆盖的区，也可为0（要求修改vb声明使之能接收lprcUpdate为长整型参数）;  

.DLL命令 创建纯色刷子_, 整数型, "gdi32.dll", "CreateSolidBrush"
    .参数 颜色值, 整数型, , crColor，颜色值

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

.DLL命令 画矩形边框_, 整数型, "user32.dll", "FrameRect"
    .参数 设备场景, 整数型, , hdc，设备场景的句柄
    .参数 矩形, RECT, , lpRect，对要描绘的边框进行描述的一个矩形
    .参数 刷子句柄, 整数型, , hBrush，欲使用的刷子的句柄

.DLL命令 延迟时间_, 整数型, "kernel32.dll", "Sleep", , Sleep
    .参数 延迟秒数, 整数型, , dwMilliseconds

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;