易语言PerlEdit编辑器源码

系统结构:配置代码编辑框,获取函数,初始化组件尺寸,加载函数列表,置状态,显示提示列表,取DOS执行结果,开始发送,CreateProcess,CreatePipe,ReadFile,CloseHandle,PeekNamedPipe,GetExitCodeProcess,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 配置代码编辑框
           |  |
           |  |------ 获取函数
           |  |
           |  |------ 初始化组件尺寸
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _分隔条上下2_被拖动
           |  |
           |  |------ _分隔条左右_被拖动
           |  |
           |  |------ 加载函数列表
           |  |
           |  |------ 置状态
           |  |
           |  |------ _编辑框_代码_处理新字符
           |  |
           |  |------ 显示提示列表
           |  |
           |  |------ _编辑框_代码_按下某键
           |  |
           |  |------ _树型框1_项目被选择
           |  |
           |  |------ _树型框1_双击项目
           |  |
           |  |------ _树型框1_即将扩展
           |  |
           |  |------ _插入平级项目_被选择
           |  |
           |  |------ _插入子项目_被选择
           |  |
           |  |------ _删除该项目_被选择
           |  |
           |  |------ _保存修改后的函数列表_被选择
           |  |
           |  |------ _扩展_被选择
           |  |
           |  |------ _收缩_被选择
           |  |
           |  |------ _树型框1_右键单击项目
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _编辑框_代码_旁注栏被单击
           |  |
           |  |------ _执行_被选择
           |  |
           |  |------ _关闭自动提示_被选择
           |  |
           |  |------ _插入当前时间_被选择
           |  |
           |  |------ _新建_被选择
           |  |
           |  |------ _打开_被选择
           |  |
           |  |------ _保存_被选择
           |  |
           |  |------ _另存为_被选择
           |  |
           |  |------ _复制_被选择
           |  |
           |  |------ _粘贴_被选择
           |  |
           |  |------ _剪切_被选择
           |  |
           |  |------ _撤销_被选择
           |  |
           |  |------ _重复_被选择
           |  |
           |  |------ _帮助_被选择
           |  |
           |  |------ _关于PerlEdit_被选择
           |  |
           |  |------ _函数库窗口_被选择
           |  |
           |  |------ _工具条1_被单击
           |  |
           |  |------ _注释及输出窗口_被选择
           |  |
           |  |------ _查找函数_被选择
           |  |
           |  |------ _查找_被选择
           |  |
           |  |------ _发送代码_被选择
           |  |
           |  |------ 取DOS执行结果
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _寻找文本窗口_创建完毕
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ _按钮查找下一个_被单击
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _发送代码窗口_创建完毕
           |  |
           |  |------ _按钮发送_被单击
           |  |
           |  |------ 开始发送
           |  |
           |  |------ _按钮添加附件_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateProcess
           |  |
           |  |---[dll]------   CreatePipe
           |  |
           |  |---[dll]------   ReadFile
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   PeekNamedPipe
           |  |
           |  |---[dll]------   GetExitCodeProcess

调用的DLL命令:

.DLL命令 CreateProcess, 整数型, , "CreateProcessA"
    .参数 lpApplicationName, 整数型
    .参数 lpCommandLine, 文本型
    .参数 lpProcessAttributes, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 bInheritHandles, 逻辑型
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型
    .参数 lpCurrentDriectory, 整数型
    .参数 lpStartupInfo, STARTUPINFO, 传址
    .参数 lpProcessInformation, PROCESS_INFORMATION, 传址

.DLL命令 CreatePipe, 整数型, , "CreatePipe"
    .参数 phReadPipe, 整数型, 传址
    .参数 phWritePipe, 整数型, 传址
    .参数 lpPipeAttributes, SECURITY_ATTRIBUTES, 传址
    .参数 nSize, 整数型

.DLL命令 ReadFile, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

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

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe"
    .参数 hNamedPipe, 整数型
    .参数 lpBuffer, 整数型
    .参数 nBufferSize, 整数型
    .参数 lpBytesRead, 整数型
    .参数 lpTotalBytesAvail, 整数型, 传址
    .参数 lpBytesLeftThisMessage, 整数型

.DLL命令 GetExitCodeProcess, 整数型, , "GetExitCodeProcess"
    .参数 hProcess, 整数型
    .参数 lpExitCode, 整数型, 传址