易语言编辑框多彩高亮源码

系统结构:加载行号程序,列举行号,滚动条处理,加载高亮程序,取总行数,取光标所在行和列号,取滚动条位置,刷新滚动条,初始化,消息处理子程序,内容被改变,刷新,启用编辑框高亮,添加高亮文本,应用编辑框高亮,消息处理子程序2,GetDC,SetBkMode,SelectObject,SetTextColor,TextOut,DeleteObject,ReleaseDC,CreateFont,SetWindowLongA,CallWindowProcA,GetDeviceCaps,MulDiv,SendMessageA,SendMessageTEXT,SendMessageRECT,获取位置_滚动条,设置位置_滚动条,消息_滚动条,发送消息2,SetWindowLong,CallWindowProc,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 加载行号程序
           |  |
           |  |------ 列举行号
           |  |
           |  |------ 滚动条处理
           |  |
           |  |------ 加载高亮程序
           |  |
           |  |------ _编辑框_代码_内容被改变
           |  |
           |  |------ _编辑框_行号_鼠标左键被放开
           |  |
           |  |------ _编辑框_行号_滚轮被滚动
           |  |
           |  |------ 取总行数
           |  |
           |  |------ 取光标所在行和列号
           |  |
           |  |------ 取滚动条位置
           |  |
           |  |------ 刷新滚动条
           |  |
           |  |
======高亮模块
           |  |
           |  |------ 初始化
           |  |
           |  |------ 消息处理子程序
           |  |
           |  |------ 内容被改变
           |  |
           |  |------ 刷新
           |  |
           |  |------ 启用编辑框高亮
           |  |
           |  |------ 添加高亮文本
           |  |
           |  |------ 应用编辑框高亮
           |  |
           |  |------ 消息处理子程序2
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   TextOut
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   CreateFont
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   GetDeviceCaps
           |  |
           |  |---[dll]------   MulDiv
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   SendMessageTEXT
           |  |
           |  |---[dll]------   SendMessageRECT
           |  |
           |  |---[dll]------   获取位置_滚动条
           |  |
           |  |---[dll]------   设置位置_滚动条
           |  |
           |  |---[dll]------   消息_滚动条
           |  |
           |  |---[dll]------   发送消息2
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc

调用的DLL命令:

.DLL命令 GetDC, 整数型, , "GetDC"
    .参数 hwnd, 整数型

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

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc, 整数型
    .参数 hObject, 整数型

.DLL命令 SetTextColor, , , "SetTextColor"
    .参数 hdc, 整数型
    .参数 crColor, 整数型

.DLL命令 TextOut, 整数型, , "TextOutA"
    .参数 hdc, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 lpStr, 文本型
    .参数 nCount, 整数型

.DLL命令 DeleteObject, 整数型, , "DeleteObject"
    .参数 hObject, 整数型

.DLL命令 ReleaseDC, 整数型, , "ReleaseDC"
    .参数 hwnd, 整数型
    .参数 hdc, 整数型

.DLL命令 CreateFont, 整数型, , "CreateFontA", , 逻辑字体的句柄
    .参数 nHeight, 整数型, , 所创建字体的字符高度
    .参数 nWidth, 整数型, , 字体的字符平均宽度
    .参数 nEscapement, 整数型, , 字符输出方向与水平向右的方向所成角度，  以0.1度为单位 
    .参数 nOrientation, 整数型, , 字符与基线的角度，以0.1度为单位
    .参数 nWeight, 整数型, , 字符颜色的深浅度
    .参数 bItalic, 逻辑型, , 斜体属性标志(0:正常字体，非0:斜体)
    .参数 bUnderline, 逻辑型, , 下划线属性标志(0:无下划线，非0:有下划线)
    .参数 cStrikeOut, 逻辑型, , 删除线属性标志(0:无删除线，非0:有删除线)
    .参数 nCharSet, 整数型, , 字符集标识0:ANSI字符集，1:系统缺省字符集
    .参数 nOutPrecision, 整数型, , 输出精度
    .参数 nClipPrecision, 整数型, , 剪切精度
    .参数 nQuality, 整数型, , 输出品质
    .参数 nPitchAndFamily, 整数型, , 字符间距
    .参数 lpszFacename, 文本型, , 现有系统TrueType字体名称

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetDeviceCaps, 整数型, , "GetDeviceCaps"
    .参数 hdc, 整数型
    .参数 nIndex, 整数型

.DLL命令 MulDiv, 整数型, , "MulDiv"
    .参数 nNumber, 整数型
    .参数 nNumerator, 整数型
    .参数 nDenominator, 整数型

.DLL命令 SendMessageA, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SendMessageTEXT, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 文本型, 传址

.DLL命令 SendMessageRECT, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, RECT, 传址

.DLL命令 获取位置_滚动条, 整数型, "user32.dll", "GetScrollPos"
    .参数 hwnd, 整数型
    .参数 nBar, 整数型

.DLL命令 设置位置_滚动条, , "user32.dll", "SetScrollPos"
    .参数 hwnd, 整数型
    .参数 Nbar, 整数型
    .参数 nPos, 整数型
    .参数 bRedraw, 逻辑型

.DLL命令 消息_滚动条, , , "SendMessageA"
    .参数 句柄, 整数型
    .参数 参数, 整数型
    .参数 参数一, 整数型
    .参数 参数二, 整数型

.DLL命令 发送消息2, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
    .参数 hwnd
    .参数 nIndex
    .参数 dwNewLong

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 lpPrevWndFunc
    .参数 hwnd
    .参数 Msg
    .参数 wParam
    .参数 lParam