易语言浅海笔记源码

系统结构:调整窗口,导入配置数据,搜索记忆,WndProc,取低位_,取高位_,MakeParam,子程序1,GetWindowLong,SetWindowLong,CallWindowProc,GetScrollPos,SetScrollPos,PostMessageA,滚动窗口_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 调整窗口
           |  |
           |  |------ 导入配置数据
           |  |
           |  |------ _最近打开1_被选择
           |  |
           |  |------ 搜索记忆
           |  |
           |  |------ WndProc
           |  |
           |  |------ 取低位_
           |  |
           |  |------ 取高位_
           |  |
           |  |------ MakeParam
           |  |
           |  |------ _滚动条时钟_周期事件
           |  |
           |  |------ _标签1_反馈事件
           |  |
           |  |------ _编辑框_鼠标右键被按下
           |  |
           |  |------ _编辑框_被双击
           |  |
           |  |------ _编辑框_按下某键
           |  |
           |  |------ 子程序1
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _帮助_被选择
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _打开_被选择
           |  |
           |  |------ _保存_被选择
           |  |
           |  |------ _滚屏一行秒_被选择
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _滚屏二行秒_被选择
           |  |
           |  |------ _滚屏4行秒_被选择
           |  |
           |  |------ _快速滚屏_被选择
           |  |
           |  |------ _文本颜色_被选择
           |  |
           |  |------ _字体调色_颜色被改变
           |  |
           |  |------ _背景颜色_被选择
           |  |
           |  |------ _背景调色_颜色被改变
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _编辑框1_按下某键
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetScrollPos
           |  |
           |  |---[dll]------   SetScrollPos
           |  |
           |  |---[dll]------   PostMessageA
           |  |
           |  |---[dll]------   滚动窗口_

调用的DLL命令:

.DLL命令 GetWindowLong, 整数型, , "GetWindowLongA", 公开
    .参数 hWnd
    .参数 index

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

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", 公开, 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetScrollPos, 整数型
    .参数 hwnd, 整数型
    .参数 nBar, 整数型

.DLL命令 SetScrollPos, 整数型
    .参数 hwnd, 整数型
    .参数 nBar, 整数型
    .参数 nPos, 整数型
    .参数 bRedraw, 整数型

.DLL命令 PostMessageA, 整数型
    .参数 hwnd, 整数型
    .参数 wmsg, 整数型
    .参数 lparam, 整数型
    .参数 wparam, 整数型

.DLL命令 滚动窗口_, 整数型, "user32", "ScrollWindow", , ScrollWindow，非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , hwnd，待滚动窗口的句柄
    .参数 水平滚动距离, 整数型, , XAmount，水平滚动的距离。正值向右滚动，负值向左滚动
    .参数 垂直滚动距离, 整数型, , YAmount，垂直滚动的距离。正值向下滚动，负值向上滚动
    .参数 客户区矩形, 整数型, , lpRect，用客户区坐标表示的一个矩形，它定义了客户区要滚动的一个部分。如设为NULL，则滚动整个客户区。在NULL的情况下，子窗口和控件的位置也会随同任何无效区域移动。否则，子窗口和无效区域不会一起移动。因此，在滚动之前，如指定了lpRect，一个明智的做法是先调用UpdateWindow函数
    .参数 剪切区域, 整数型, , lpClipRect，指定剪切区域。只有这个矩形的区域才可能滚动。该矩形优先于lpRect。可设为NULL