易语言带行号的编辑框源码

系统结构:处理,写行号,画热点,取总行数,取光标所在行和列号,取字体高度,发送消息1,SetWindowLong,CallWindowProc,GetTextExtentPoint,GetDC,CreateCompatibleDC,CreateFont,MulDiv,GetDeviceCaps,SelectObject,CloseHandle,ReleaseDC,DeleteDC,DeleteObject,

======窗口程序集1
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 处理
           |  |
           |  |------ _编辑框1_按下某键
           |  |
           |  |------ 写行号
           |  |
           |  |------ _编辑框1_鼠标左键被放开
           |  |
           |  |------ 画热点
           |  |
           |  |
======程序集1
           |  |
           |  |------ 取总行数
           |  |
           |  |------ 取光标所在行和列号
           |  |
           |  |------ 取字体高度
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   发送消息1
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetTextExtentPoint
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateFont
           |  |
           |  |---[dll]------   MulDiv
           |  |
           |  |---[dll]------   GetDeviceCaps
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject

调用的DLL命令:

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

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

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

.DLL命令 GetTextExtentPoint, 整数型, "gdi32", "GetTextExtentPointA"
    .参数 hdc, 整数型
    .参数 lpszString, 文本型
    .参数 cbString, 整数型
    .参数 lpSize, Size, 传址

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

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

.DLL命令 CreateFont, 整数型, "gdi32", "CreateFontA"
    .参数 nHeight, 整数型
    .参数 nWidth, 整数型
    .参数 nEscapement, 整数型
    .参数 nOrientation, 整数型
    .参数 fnWeight, 整数型
    .参数 fdwItalic, 整数型
    .参数 fdwUnderline, 整数型
    .参数 fdwStrikeOut, 整数型
    .参数 fdwCharSet, 整数型
    .参数 fdwOutputPrecision, 整数型
    .参数 fdwClipPrecision, 整数型
    .参数 fdwQuality, 整数型
    .参数 fdwPitchAndFamily, 整数型
    .参数 lpszFace, 文本型

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

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

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

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
    .参数 hObject, 整数型

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

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

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