6-4 极IDE源码

整数 查换消息,字体,选类,配置,类名,库名,注释,数字,缓冲,名称,名字;
文本 编译[9]="Sec1.exe ",路径[64],改色[64]="$3C00000000000040";
查找替换类 查换(长度=40,标记=1,查找=64,替长=64)
小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 绘制静态{修改颜色(参数,$FF6600,0,$C0FFFF)}
为 绘制列表{修改颜色(参数,$FF0030,1,$C0FF30)}
为 单击左键{左键点击(参数)}为 窗口缩放{缩放窗口(数据)}
为 点击右键{展示菜单(菜单.3,0,数据 &$FFFF, 数据>>16,窗口,0)}
为 查换消息{格式化(缓冲,"%X",查换.标记 & $F8)发送消息(列表,列表添加,0,缓冲)}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
文件框类 文件框(长度=76,路长=64);颜色框类 选色(长度=36)
字体框类 字框(长度=60,标记=$101);逻辑字体类 字号;
小程序 窗体启动
文件框.路径=路径;
文件框.分类 = "单文本源码'\0'.txt;.inc'\0'多文本源码'\0'.极'\0'二进制源码'\0'.SEC'\0'";
选色.窗口=窗体
字框.窗口=?
查换.窗口=?
字框.字体=字号
选色.数组=?
查换消息=注册消息("commdlg_FindReplace")
配置=申请内存(25600)
查换.查找=?+64;查换.替换=?+64;
缓冲=?+64;名称=?+256;
名字=?+64;类名=?+64;
选类=?;库名=?+120
模块名称(0,配置,80)
配置(?-3)&=$696E69
复制文字(类名,"设置")
读设置(类名,"字体",字号.名称)
字号.高度=取值("字号")
选色.颜色=取值("背景")
字框.颜色=取值("颜色")
注释=取值("注释")
数字=取值("数字")创建按钮
添加项("大类",类名,大类,0)
背景颜色(选色.颜色)读取消息
结束;
小程序 修改颜色(整数 设备,整数 字色,整数 模式,整数 背景)
文本改色(设备,字色)模式填充(设备,模式)创建画刷(背景)
结束
小程序 创建按钮
整数 数=0,值,左=5,号=7,内容="打开保存另存撤销重复查找替换修改编译资源";
循环数组(值<内容(10)&){
内容=创建窗口(0,"Button",@值,$50000000,左,2,36,24,窗体,号,3,0);
如果(号=12)左+100号++左+40}}
小程序 读设置(整数 段名,整数 键名,整数 内容)
读取文字(段名,键名,空,内容,4640, 配置)}
小程序 写设置(整数 键名,整数 内容)
写入文字("设置",键名,内容,配置)}
小程序 取值(内容){读取整数(类名,内容,0,配置)}
小程序 左键点击(整数 参数)
判断(参数)
为 1001新建工程(0)
为 1002新建工程(1)
为 1003新建工程(2)
为 1004新建工程(3)
为 7,1005打开工程
为 8,1006保存内容
为 9,1007另存文件
为 10,1008编辑操作($304)
为 11,1009编辑操作($454)
为 1010编辑操作($300)
为 1011编辑操作($301)
为 1012编辑操作($302)
为 1013编辑操作($303)
为 12,1014搜索内容
为 13,1015替换内容
为 14,1016搜索所选
为 15,1017编译程序
为 1021更改字体
为 1022更改颜色("背景")
为 1023更改颜色("注释")
为 1024更改颜色("数字")
为 $10003显示内容
为 $10004选择库名
为 $10005提示文字
为 $20005插入文字
结束;
小程序 编辑操作(整数 消息)
发送消息(文档,消息,0,0)
结束;
小程序 更换颜色(首,尾,颜色)
颜色>改色+20;
发送消息(文档,编辑选中,首,尾)
发送消息(文档,$444,1,改色)
结束;
小程序 更改颜色(键名)
如果(颜色选框(选色)){背景颜色(选色.颜色)写数值(键名,选色.颜色)}
结束;
小程序 背景颜色(整数 颜色)
{发送消息(文档,$443,0,颜色)
}
小程序 更改字体
如果(字体选框(字框))
{写设置("字体",字号.名称)设置字体
写数值("字号",字号.高度)写数值("颜色",字框.颜色)}
结束;
小程序 写数值(键名,数值)
{格式化(名称,"%d",数值)
写设置(键名,名称)}
小程序 设置字体
{字体=新建字体(字号)
发送消息(文档,指定字体,字体,0)
更换颜色(0,-1,字框.颜色)
}
小程序 缩放窗口(整数 数据)
整数 高度=数据>>16 -20,宽度=数据 &$FFFF
移动窗口(文档,100,30,宽度-100,高度-30,0)
移动窗口(库表,0,185,100,高度-185,0)
移动窗口(信息,0,高度,宽度,20,0)
结束;
小程序 新建工程(整数 模式)
改窗口字(文档,0)路径=0
改窗口字(窗体,"极语言")
结束;
小程序 打开工程
如果(文件选框(文件框))
读取内容(路径,文件框.定位)
结束;
小程序 显示内容
整数 选项=发送消息(列表,列表选项,0,0)
发送消息(列表,列表读取,选项,名字)
读取内容(名字,0)
结束;
小程序 读取内容(整数 件名,整数 模式)
整数 文件,内容,长度;
文件=开文件(件名,0);
长度=文件大小(文件,0)
内容=申请内存(长度+1)
读文件(文件,内容,长度)
内容(长度)=0
判断(模式)为 <2{改窗口字(文档,内容)设置字体
语法分析(内容,0)发送消息(文档,编辑修改,0,0)}
为 2{
发送消息(列表,列表清除,0,0)
长度=分割文本(内容,"\r\n")
循环{
发送消息(列表,列表添加,0,长度)
长度=分割文本(0,"\r\n")
}(?=0)}释放内存(内容)
关文件(文件)
如果(模式)改窗口字(窗体,路径)
结束
小程序 保存内容
整数 文件,内容,长度;
文件=如果是(文件框.定位=1)路径,名字
文件=建文件(文件,0)
长度=窗口字长(文档)+1
内容=申请内存(长度)
取窗口字(文档,内容,长度)
写文件(文件,内容,长度-1)
关文件(文件)释放内存(内容)
结束;
小程序 另存文件
整数 数量,数=0,文件,长度
如果(保存选框(文件框)){
数量=发送消息(列表,列表数量,0,0)
文件=建文件(路径,0)
循环{长度=发送消息(列表,列表读取,数,名称)
名称(?)&=$A0D;写文件(文件,名称,长度+2)
数++}(数=数量)关文件(文件)}
结束;
小程序 选择库名
整数 选项=发送消息(大类, 取组合项,0,0)
选类=发送消息(大类, 组合数据,选项,0)
添加列表(选类,库名)
结束;
小程序 添加项(整数 段名,整数 内容,整数 控件,整数 编号)
读设置(段名,空,内容)
循环在(内容(0)){
读设置(段名,内容,名称);
发送消息(控件, 组合添加, 0,名称)
发送消息(控件, 组合附加, 编号,内容)
编号++;内容+文字长度(内容)+1}
发送消息(控件, 选组合项, 0, 0)
添加列表(类名,库名)
结束;
小程序 添加列表(整数 段名,整数 内容)
读设置(段名,空,内容)发送消息(库表,列表清除,0,0)
循环在(内容(0)){
发送消息(库表, 列表添加, 0,内容)
内容+文字长度(内容)+1}
结束;
小程序 搜索内容
整数 字=名称,尾=-1,首,定位,长度=取窗口字(搜索,名称,64)
如果(长度>0){发送消息(文档,编辑所选,0,@首)
定位=发送消息(文档,$438,5,@首)
如果(定位<0)信息框(0,"已搜索完毕",0,0)
否则{
发送消息(文档,编辑选中,定位,定位+长度)}}
结束;
小程序 替换内容
整数 长度=发送消息(文档,$43E,0,名称)
搜索选框(查换)
结束;
小程序 搜索所选
整数 定位,长度=取窗口字(搜索,名称,64)
ReplaceTextA(查换)
结束;
小程序 编译程序
如果(发送消息(文档,编辑状态,0,0))保存内容;运行(编译,5)
结束;
小程序 语法分析(数据,位置)
整数 类,上=0,双=-1,起=?,始=?,值;文本 内容[16]=0;
设置焦点(文档)循环数组(值<数据)
{类=字型(值)
判断(类)
为 0{如果(上=值){更换颜色(双,位置,注释)上=0值=?}否则{如果(起>0)更换颜色(起,位置,数字)否则{如果(取值(内容))更换颜色(始,位置,?)}}
内容=0;始=-1;起=?;如果(值=36)起=位置+1;如果(值=34){双=位置+1;上=34;}如果(值=47 && `[0]=47){双=位置;上=13;}}
为 1{如果(起<0)起=位置}
为 2{如果(上=0)加文字(内容,@值)如果(始<0)始=位置;}
如果(值<>10)位置++}结束;
小程序 字型(整数 值)
判断(值)
为 48~57返回(1)
为 65~90返回(2)
为 97~122返回(2)
为 >127返回(2)
否则 返回(0)
}
小程序 提示文字
整数 选项=发送消息(库表,列表选项,0,0)
发送消息(库表,列表读取,选项,名称)
读设置(选类,名称,名称)
改窗口字(信息,名称)
结束;
小程序 插入文字
整数 内容=分割文本(名称," ")
内容=分割文本(0," ")
发送消息(文档,编辑替换,0,内容)
结束;