srmconst.pas

初次上传,不太会规类.这是一个电子文档收集的软件.支持从浏览器窗口中托拽到本地窗口中.个人以为比网文快抓,webcollecter之类的好.小,绿色,适用.

//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1999
//单元名称：常量定义单元
//程序名称：电子书库
//作    者：李会文
//开始时间：1998.07.28
//最后修改：1999.03.18
//备注：此单元定义了SRM文件的读写接口
//---------------------------------------------------------------------------
unit SrmConst;

interface

const
  //注册表相关常量
  {$ifdef CHINESE}
    csAppName='电子书库';
  {$else}
    csAppName='Stack Room';
  {$endif}
  csRegKey='.DEFAULT\SOFTWARE\KivenSoft\Stack Room';
  csAppPath='AppPath';
  csAuthor='KivenSoft';
  csWidth='Width';
  csHeight='Height';
  csLeft='Left';
  csTop='Top';
  csState='State';
  csLPanelWidth='LPanelWidth';
  csLPanelShow='LPanelShow';
  csMenuShow='MenuShow';
  csToolBarShow='ToolBarShow';
  csStatusBarShow='StatusBarShow';
  csFile0='File0'; //我的最爱
  csFile1='File1';
  csFile2='File2';
  csFile3='File3';
  csFile4='File4';
  csFile5='File5';
  csFile6='File6'; //最后打开的文件
  csTvFontSize='TvFontSize';
  csDfFontName='DfFontName';
  csDfFontSize='DfFontSize';
  csDfFontColor='DfFontColor';
  csReBkColor='ReBkColor';

  //对话框相关常量
  csSrmExt='srm';
  csTreExt='tre';
  csIdxExt='idx';
  csDatExt='dat';
  csTmpExt='tmp';
  csTxtExt='txt';
  csHlpExt='hlp';
  {$ifdef CHINESE}
    csSrmFilter='书库文件(srm)|*.srm';
    csOldFilter='2.x书库文件(dat)|*.dat';
    csCreateTitle='新建';
    csSaveAsTitle='另存为';
    csOpenTitle='打开';
    csTxtFilter='文本文件(txt)|*.txt';
  {$else}
    csSrmFilter='Srm File(srm)|*.srm';
    csOldFilter='2.x Db File(tre,idx,dat)|*.tre;*.idx;*.dat';
    csCreateTitle='Create';
    csSaveAsTitle='Save As';
    csOpenTitle='Open';
    csTxtFilter='Txt File(txt)|*.txt';
  {$Endif}

  //状态栏相关常量
  {$IFDEF CHINESE}
    csPanel1Text='记录数：';
    csPanel2Text='记录长度：';
  {$ELSE}
    csPanel1Text='Count:';
    csPanel2Text='Current Size:';
  {$ENDIF}

  //杂类字符串
  csHomePage='http://kiven.yeah.net';
  csEMail='mailto:[e-mail]';
  {$ifdef CHINESE}
    csPasswordTitle='请输入密码：';
    csNewDefaultTitle='新标题';
    csSaveQuery='数据库已改动，是否保存？';
    csDeleteQuery='是否删除所选记录？';
    csBrowseFolderInfo='请选择目录：';
    csAuthorLabel='作者：';
    csPasswordLabel='口令：';
    csBuildDateLabel='建库日期：';
    csEditDateLabel='修改日期：';
  {$else}
    csPasswordTitle='Input Password:';
    csNewDefaultTitle='NewTitle';
    csSaveQuery='Save changed File？';
    csDeleteQuery='Delete records,sure?';
    csBrowseFolderInfo='Select directry:';
    csAuthorLabel='Author:';
    csPasswordLabel='Password:';
    csBuildDateLabel='Build Date:';
    csEditDateLabel='Edit Date:';
  {$Endif}

  //错误显示信息
  {$ifdef CHINESE}
    csAppExists='电子书库已经运行';
    csOldFileError='原2.x版数据库不完整！';
    csFindError='未发现匹配文本';
    csPasswordError='密码错误！';
    csIndexError='关键字总共只能有50个字符，此串太长';
    csReplaceSucess='成功完成全文本的替换';
    csDirExists='要导出的目录已存在';
    csTechniqueSupport='老兄，开什么玩笑，免费软件也想要技术支持？';
    csNotSrmFile='此文件不是SRM数据库或数据库已损坏';
  {$else}
    csAppExists='Stack Room already exists';
    csOldFileError='Old dataBase file not intact!';
    csFindError='Search not found';
    csPasswordError='Password Error!';
    csIndexError='Index key only 50 byte,This string is longer';
    csReplaceSucess='Replace Succeed';
    csDirExists='Directry exists,Select again';
    csTechniqueSupport='What? Freeware has Technique Support?';
    csNotSrmFile='this file is not SRM or file already bad';
  {$Endif}


implementation

end.