deflangres.pas

一个可以把源代码以语法高亮的形式转换成HTML格式或RTF格式。

{
  编译进入Exe文件的语言信息
  值对 以第一个等号(=)为分界符
  Create DateTime : 2006-08-12 20:00
  Auther          : liqj
} 
unit DefLangRes;

interface

const

CrLf = #13#10;
resStr = ''+
  // --- program Info ---
  CrLf + '90=高亮语法程序' +
  CrLf + '91=版本 1.0.0.1' +
  CrLf + '92=修改 liqj by 2006-08-13' +
  CrLf + '93=[e-mail]' +
  
  // --- form Control Caption ---
  // -- TFrmMain/MainFrm.pas --
  CrLf + '100=高亮语法程序 - 主窗体' +
  CrLf + '101=RTF文档' +
  CrLf + '102=网页浏览' +
  CrLf + '103=文本查看' +
  CrLf + '104=加到剪贴板' +
  CrLf + '105=清空文本' +
  CrLf + '106=从选择文本转换' +
  CrLf + '107=从剪贴板转换' +
  CrLf + '108=在RTF文档中查看剪贴板' +
  CrLf + '109=剪贴板用网页浏览' +
  CrLf + '110=查看浏览网页的HTML源码' +
  CrLf + '111=查看转换的高亮头部' +
  CrLf + '112=查看转换的高亮尾部' +
  CrLf + '113=设置选择字体' +
  CrLf + '114=查看剪贴板内容' +
  CrLf + '115=高亮' +
  CrLf + '116=剪贴板' +
  CrLf + '117=其它' +
  CrLf + '118=设置...' +
  CrLf + '119=转换目录(&Z)' +
  CrLf + '120=源目录' +
  CrLf + '121=要转换的文件后缀' +
  CrLf + '122=目的目录' +
  CrLf + '123=词法设置：' +
  CrLf + '124=不能随便操作，知道是做什么的话请继续。<br>是否一起复制源文件？' +
  CrLf + '125=转换的文件数量：' +
  CrLf + '126=没保存' +
  CrLf + '127=源文件' +
  CrLf + '128=目的文件' +
  CrLf + '129=转换文件(&T)' +
  CrLf + '130=转换完后查看(&V)' +
  CrLf + '131=转换失败，目标文件没生成！' +
  CrLf + '132=是否把HTML格式复制到系统剪贴板' +
  CrLf + '133=复制到剪贴板的文本是否是源码内容' +
  CrLf + '134=正在取得文件列表' +
  CrLf + '135=正在转换文件列表' +
  CrLf + '136=查看HTML源码还是网页文本？' +
  CrLf + '137=查看的是剪贴板中的文本内容。'+ 
  
  // -- TFrmSetting/SettingFrm.pas --
  CrLf + '200=词法配置文件管理' +
  CrLf + '201=词法配置文件' +
  CrLf + '202=名称' +
  CrLf + '203=路径' +
  CrLf + '204=加入(&I)' +
  // -- TFrmRename/RenameFrm.pas
  CrLf + '210=提示信息' +
  CrLf + '211=请输入名称' +
  // -- TFrmAcciInfo/AcciInfoFrm.pas
  CrLf + '212=词法配置文件信息' +
  CrLf + '213=名称(&N)' +
  CrLf + '214=文件路径(&H)' +
  // -- TFrmAbout/AboutFrm.pas --
  CrLf + '215=关于' +
  CrLf + '216=谢谢使用，欢迎提出意见！' +

  // -- TFrmAccidenceEdit/AccidenceEditFrm.pas --
  CrLf + '300=词法编辑器' +
  CrLf + '301=常规' +
  CrLf + '302=基本信息' +
  CrLf + '303=忽略大小写(&E)' +
  CrLf + '304=显示行号(&L)' +
  CrLf + '305=背景颜色(&B)' +
  CrLf + '306=字体信息' +  
  CrLf + '307=关键字' +
  CrLf + '308=新增关键字...(&N)' +
  CrLf + '309=删除当前关键字...(&D)' +   
  CrLf + '310=符号' +
  CrLf + '311=新增符号...(&N)' +
  CrLf + '312=删除当前符号...(&D)' +  
  CrLf + '313=数字' +

  // --- Frame Control Caption ---
  // -- TFrameKeyWord/KeyWordFrame.pas --
  CrLf + '400=关键字列表' +  
  // -- TFrameFont/FontFrame.pas --
  CrLf + '401=字体名称' +
  CrLf + '402=字体大小' +
  CrLf + '403=字体颜色' +
  CrLf + '404=粗体' +
  CrLf + '405=斜体' +
  CrLf + '406=下划线' +
  CrLf + '407=删除线' +
  CrLf + '408=0-9 AaBb 中文' +
  
  
  // -- TFrameSymbol/SymbolFrame.pas --
  CrLf + '409=常规信息' +
  CrLf + '410=范围' +
  CrLf + '411=双符号' +
  CrLf + '412=高亮部份' +
  CrLf + '413=开始值' +
  CrLf + '414=结束值' +
  CrLf + '415=转义符' +
  
  // -- Hint --
  CrLf + '501=字体列表' +
  CrLf + '502=只列出字体支持大小' +
  CrLf + '503=字体颜色' +
  CrLf + '504=字体格式预览' +
  CrLf + '505=每个关键字一行<br>前后空格无效<br>只能字母下划线开头<br>' +
         '保存时：<br>    删除重复值(按常规中设置是否忽略大小写)<br>' +
         '    重新排序、去除空行、空格行、前后空格'+
  CrLf + '506=分布范围<br>  MultiLine(多行)<br>  SingleLine(单行)<br>' +
         '  OneWord(单词) --符号与单词之间允许空格<br>  None(只符号部份)' +
  CrLf + '507=符号由开始、结束值包含，多行必须设置。' +
  CrLf + '508=Both(高亮符号与内容)<br>Symbols(高亮符号)<br>' +
         'Content(高亮符号包含的内容)' +
  CrLf + '509=非字母、数字、下划线开头' +
  CrLf + '510=结束符号' +
  CrLf + '511=如果没有转义符号，要留空。只能一个字符<br>' +
         '转义只对开始值第一个字符有效' +
  CrLf + '512=双击可以重命名<br>按Ctrl + 鼠标左键 拖动' +
  CrLf + '513=保存词法文件到...' +
  CrLf + '514=忽略大小写' +
  CrLf + '515=转换后的正文包含行号' +
  CrLf + '516=保存并关闭' +
  
  // --- public string info ---
  CrLf + '1=错误' +
  CrLf + '2=提示' + 
  CrLf + '3=警告' +
  CrLf + '4=信息' + 
  CrLf + '5=确定(&O)' +
  CrLf + '6=取消(&C)' +
  CrLf + '7=中断(&C)' +
  CrLf + '8=中断' +
   
    
  CrLf + '10=文件(&F)' +
  CrLf + '11=打开(&O)' +
  CrLf + '12=保存(&S)' +
  CrLf + '13=另存为(&A)...' +
  CrLf + '14=退出(&X)' +
  CrLf + '15=新建(&N)' +
  CrLf + '16=关闭(&C)' +
  
  CrLf + '20=编辑(&E)' +
  CrLf + '21=复制(&C)' +
  CrLf + '22=剪切(&X)' +
  CrLf + '23=粘贴(&V)' +
  CrLf + '24=删除(&D)' +
  CrLf + '25=撤消(&U)' +
  CrLf + '26=选择所有(&A)' +

  CrLf + '31=上移(&U)' + 
  CrLf + '32=下移(&L)' +
  
    
  CrLf + 'HTML_File=HTML 文件(*.html)'+ 
  CrLf + 'RTF_File=RTF 文件(*.rtf)' +
  CrLf + 'XML_File=XML 文件(*.xml)' + 
  CrLf + 'ALL_File=所有文件(*.*)' + 
  CrLf + 'Hint_DestFile_HTML=转换源文件到 HTML 文件。' +
  CrLf + 'Hint_DestFile_RTF=转换源文件到 RTF 文件。' + 
  CrLf + 'Err_NameExist=这个名称已存在，请输入另一个。' +
  CrLf + 'Err_NameEmpty=名称是空，请输入一个。' +
  CrLf + 'Err_FilePathEmpty=文件路径是空，请输入文件路径。' +
  CrLf + 'Err_IndexOutOfBound=索引越界。' +
  CrLf + 'Err_AcciInvalide=这是无效的词法文件。' +
  CrLf + 'Err_NoTextFile=这文件不是一个文本文件。' +
  CrLf + 'Info_FileNoFound=这个文件没找到。' +
  CrLf + 'Info_SrcFileNoFound=源文件没找到。' +
  CrLf + 'Info_AcciNoFound=词法文件没找到。' +
  CrLf + 'Info_SetSrcFile=请打开要将转换的源代码文件。' +
  CrLf + 'Info_SetDesFile=请设定目标文件保存路径。' +
  CrLf + 'LV_Delete=是否保留词法文件?' +
  CrLf + 'LV_NoSelect=请选择一个项目.' +
  CrLf + 'Qry_ResetAcciFile=这个文件路径不正确, 重新选择?' +
  CrLf + 'Qust_Delete=是否删除当前页？' +
  CrLf + 'Info_BValue=符号开始值不能为空！' +
  CrLf + 'Info_BValue_InVaild=符号开始值无效，第一个字符必须不是字母或下划线。' +
  CrLf + 'Info_EValue=符号结束值不能为空！' +
  CrLf + 'Info_BValue_Dup=符号页 [%s] 与页 [%s] 的开始值有重复，请修改。' +
  CrLf + 'Info_KeyWords_Empty=页 [%s] 关键字列表为空，继续保存？' +
  CrLf + 'Info_KeyWords_Dup=符号页 [%s] 与页 [%s] 的关键字 [%s] 有重复，%s'+
                       '选择是手动修改。选择否全部自动清除重复内容。--当前页' +
  CrLf + 'Info_KeyWord_Invalid=关键字无效，第一个字符必须是字母或下划线。' +
  CrLf + 'List_OutOfBounds=引用索引超出范围' +
  CrLf + 'DialogFilter=RTF文件(*.rtf)|*.rtf|网页文件(*.htm)|*.htm;*.html|' +
         '文本源文件(*.txt,pas,cpp,xml,sql,java)|*.txt;*.pas;*.Cpp;*.xml;*.sql;*.java|' +
  
  CrLf + 'Err_Params_Invalide=无效参数' +
  CrLf + 'Err_Invalide_XMLFile=无效XML文件' +
  CrLf + 'Err_CreateDirectory=创建目录失败！' +
  '';

implementation

uses CommonUtils;


initialization
  pubResources.AddStrings(resStr);  // 默认   
  
finalization
  
end.