开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 查看源码
MainUnit.~pa
资源名称：srmsrc.zip　[点击查看]
上传用户：tj00001
上传日期：2007-01-07
资源大小：672k
文件大小：60k
源码类别：

行业应用

开发平台：

Delphi

MainUnit.~pa：源码内容
  1. //---------------------------------------------------------------------------
  2. //(R)CopyRight KivenSoft International ,inc 1998
  3. //程序名称：电子书库
  4. //单元名称：主窗口单元
  5. //作    者：李会文
  6. //单元名称：主程序单元
  7. //开始时间：1998.07.28
  8. //最后修改：1999.07.22
  9. //---------------------------------------------------------------------------
  10. unit MainUnit;
  12. interface
  14. uses
  15.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  16.   Menus, StdCtrls, ComCtrls, CommCtrl, ExtCtrls, ToolWin, ShellApi, Registry,
  17.   SrmUnit, SrmConst, ShlObj, FileCtrl, RichEdit, ImgList, KvLabel, Buttons,
  18.   jpeg, ActnList;
  20. type
  22.   TSrmForm = class(TForm)
  23.     Splitter: TSplitter;
  24.     StatusBar: TStatusBar;
  25.     LeftForm: TPanel;
  26.     LeftBottomPanel: TPanel;
  27.     RightPanel: TPanel;
  28.     ImageList: TImageList;
  29.     SaveDialog: TSaveDialog;
  30.     OpenDialog: TOpenDialog;
  31.     FindDialog: TFindDialog;
  32.     ReplaceDialog: TReplaceDialog;
  33.     LeftPageControl: TPageControl;
  34.     RightPageControl: TPageControl;
  35.     IndexTabSheet: TTabSheet;
  36.     TreeView: TTreeView;
  37.     DrawTabSheet: TTabSheet;
  38.     PropertiyTabSheet: TTabSheet;
  39.     SearchTabSheet: TTabSheet;
  40.     ProTabSheet: TTabSheet;
  41.     DbAuthorEdit: TEdit;
  42.     DbPasswordEdit: TEdit;
  43.     DbBuildDateEdit: TEdit;
  44.     DbEditDateEdit: TEdit;
  45.     ContextAuthorEdit: TEdit;
  46.     ContextPasswordEdit: TEdit;
  47.     ContextPubDateEdit: TEdit;
  48.     ContextIndexEdit: TEdit;
  49.     SearchListBox: TListBox;
  50.     ContextTypeRadioGroup: TRadioGroup;
  51.     MainFormMenu: TMainMenu;
  52.     FileMenuItem: TMenuItem;
  53.     NewMenuItem: TMenuItem;
  54.     OpenMenuItem: TMenuItem;
  55.     SaveMenuItem: TMenuItem;
  56.     CloseMenuItem: TMenuItem;
  57.     N1: TMenuItem;
  58.     FImportMenuItem: TMenuItem;
  59.     DImportMenuItem: TMenuItem;
  60.     ExportMenuItem: TMenuItem;
  61.     N3: TMenuItem;
  62.     PrintMenuItem: TMenuItem;
  63.     N4: TMenuItem;
  64.     ListMenuItem: TMenuItem;
  65.     MenuItem2: TMenuItem;
  66.     MenuItem3: TMenuItem;
  67.     MenuItem4: TMenuItem;
  68.     MenuItem5: TMenuItem;
  69.     MyLoveMenuItem: TMenuItem;
  70.     MyLoveNextMenuItem: TMenuItem;
  71.     ExitMenuItem: TMenuItem;
  72.     EditMenuItem: TMenuItem;
  73.     UndoMenuItem: TMenuItem;
  74.     RedoMenuItem: TMenuItem;
  75.     N6: TMenuItem;
  76.     CutMenuItem: TMenuItem;
  77.     CopyMenuItem: TMenuItem;
  78.     PasteMenuItem: TMenuItem;
  79.     N7: TMenuItem;
  80.     SelAllMenuItem: TMenuItem;
  81.     N8: TMenuItem;
  82.     FindMenuItem: TMenuItem;
  83.     FindNextMenuItem: TMenuItem;
  84.     ReplaceMenuItem: TMenuItem;
  85.     N9: TMenuItem;
  86.     DelSpaceMenuItem: TMenuItem;
  87.     ViewMenuItem: TMenuItem;
  88.     ToolsMenuItem: TMenuItem;
  89.     StatusMenuItem: TMenuItem;
  90.     TitleMenuItem: TMenuItem;
  91.     ReadOnlyMenuItem: TMenuItem;
  92.     BigFontMenuItem: TMenuItem;
  93.     SmallFontMenuItem: TMenuItem;
  94.     N10: TMenuItem;
  95.     OptionsMenuItem: TMenuItem;
  96.     OperatorMenuItem: TMenuItem;
  97.     AddNodeMenuItem: TMenuItem;
  98.     AddSubNodeMenuItem: TMenuItem;
  99.     EditNodeMenuItem: TMenuItem;
  100.     DelNodeMenuItem: TMenuItem;
  101.     N11: TMenuItem;
  102.     SortMenuItem: TMenuItem;
  103.     N12: TMenuItem;
  104.     CompressMenuItem: TMenuItem;
  105.     CovertMenuItem: TMenuItem;
  106.     HelpMenuItem: TMenuItem;
  107.     AboutMenuItem: TMenuItem;
  108.     ReadmeMenuItem: TMenuItem;
  109.     N13: TMenuItem;
  110.     HomePageMenuItem: TMenuItem;
  111.     EMailMenuItem: TMenuItem;
  112.     OtherMenuItem: TMenuItem;
  113.     KivenLabel: TKvLabel;
  114.     N2: TMenuItem;
  115.     DbAuthorLabel: TKvLabel;
  116.     DbPasswordLabel: TKvLabel;
  117.     BuildDateLabel: TKvLabel;
  118.     DbEditDateLabel: TKvLabel;
  119.     ContextAuthorLabel: TKvLabel;
  120.     ContextPasswordLabel: TKvLabel;
  121.     ContextPubDateLabel: TKvLabel;
  122.     KvLabel1ContextIndexLabel: TKvLabel;
  123.     TreeViewPopupMenu: TPopupMenu;
  124.     AddNodePopMenuItem: TMenuItem;
  125.     AddSubNodePopMenuItem: TMenuItem;
  126.     DelNodePopMenuItem: TMenuItem;
  127.     EditNodePopMenuItem: TMenuItem;
  128.     N14: TMenuItem;
  129.     CutNodePopMenuItem: TMenuItem;
  130.     CopyNodePopMenuItem: TMenuItem;
  131.     PasteNodePopMenuItem: TMenuItem;
  132.     RichEditPopupMenu: TPopupMenu;
  133.     CutPopMenuItem: TMenuItem;
  134.     CopyPopMenuItem: TMenuItem;
  135.     PastePopMenuItem: TMenuItem;
  136.     SelAllPopMenuItem: TMenuItem;
  137.     N15: TMenuItem;
  138.     DelSpacePopMenuItem: TMenuItem;
  139.     SetTitlePopMenuItem: TMenuItem;
  140.     SetIndexPopMenuItem: TMenuItem;
  141.     SetAuthorPopMenuItem: TMenuItem;
  142.     RichEdit: TRichEdit;
  143.     RightTopPanel: TPanel;
  144.     TitleLabel: TKvLabel;
  145.     PrevSpeedButton: TSpeedButton;
  146.     NextSpeedButton: TSpeedButton;
  147.     ControlBar: TControlBar;
  148.     FileToolBar: TToolBar;
  149.     OpenToolButton: TToolButton;
  150.     SaveToolButton: TToolButton;
  151.     MyLoveToolButton: TToolButton;
  152.     PrintToolButton: TToolButton;
  153.     MenuToolBar: TToolBar;
  154.     FileToolButton: TToolButton;
  155.     EditToolButton: TToolButton;
  156.     ViewToolButton: TToolButton;
  157.     OperatorToolButton: TToolButton;
  158.     HelpToolButton: TToolButton;
  159.     EditToolBar: TToolBar;
  160.     CutToolButton: TToolButton;
  161.     CopyToolButton: TToolButton;
  162.     PasteToolButton: TToolButton;
  163.     FindToolButton: TToolButton;
  164.     ActionList: TActionList;
  165.     NewAction: TAction;
  166.     OpenAction: TAction;
  167.     SaveAction: TAction;
  168.     CloseAction: TAction;
  169.     FImportAction: TAction;
  170.     DImportAction: TAction;
  171.     ExportAction: TAction;
  172.     PrintAction: TAction;
  173.     MyLoveAction: TAction;
  174.     ExitAction: TAction;
  175.     UndoAction: TAction;
  176.     RedoAction: TAction;
  177.     CutAction: TAction;
  178.     CopyAction: TAction;
  179.     PasteAction: TAction;
  180.     SelAllAction: TAction;
  181.     FindAction: TAction;
  182.     FindNextAction: TAction;
  183.     ReplaceAction: TAction;
  184.     DelSpaceAction: TAction;
  185.     ToolsAction: TAction;
  186.     StatusAction: TAction;
  187.     ReadOnlyAction: TAction;
  188.     BigFontAction: TAction;
  189.     SmallFontAction: TAction;
  190.     OptionAction: TAction;
  191.     AddNodeAction: TAction;
  192.     AddSubNodeAction: TAction;
  193.     EditNodeAction: TAction;
  194.     DelNodeAction: TAction;
  195.     SortAction: TAction;
  196.     CompressAction: TAction;
  197.     CovertAction: TAction;
  198.     AboutAction: TAction;
  199.     ReadMeAction: TAction;
  200.     HomePageAction: TAction;
  201.     EMailAction: TAction;
  202.     OtherAction: TAction;
  203.     TitleAction: TAction;
  204.     ViewToolBar: TToolBar;
  205.     ReadOnlyToolButton: TToolButton;
  206.     ToolButton4: TToolButton;
  207.     BigFontToolButton: TToolButton;
  208.     SmallFontToolButton: TToolButton;
  209.     OperatorToolBar: TToolBar;
  210.     AddNodeToolButton: TToolButton;
  211.     AddSubNodeToolButton: TToolButton;
  212.     EditNodeToolButton: TToolButton;
  213.     DelNodeToolButton: TToolButton;
  214.     OtherToolBar: TToolBar;
  215.     ReadMeToolButton: TToolButton;
  216.     AboutToolButton: TToolButton;
  217.     ToolButton7: TToolButton;
  218.     HomePageToolButton: TToolButton;
  219.     EMailToolButton: TToolButton;
  220.     ToolButton8: TToolButton;
  221.     ExitToolButton: TToolButton;
  222.     ToolButton1: TToolButton;
  223.     ToolButton2: TToolButton;
  224.     ToolButton3: TToolButton;
  225.     WordWrapAction: TAction;
  226.     WordWrapMenuItem: TMenuItem;
  227.     WordWrapToolButton: TToolButton;
  228.     N5: TMenuItem;
  229.     TitleToolButton: TToolButton;
  230.     N16: TMenuItem;
  231.     ExportPopMenuItem: TMenuItem;
  232.     CParaAction: TAction;
  233.     DParaAction: TAction;
  234.     CParaMenuItem: TMenuItem;
  235.     DParaMenuItem: TMenuItem;
  236.     GbToBigAction: TAction;
  237.     BigToGbAction: TAction;
  238.     N17: TMenuItem;
  239.     GbToBigMenuItem: TMenuItem;
  240.     BigToGbMenuItem: TMenuItem;
  241.     ToolBar1: TToolBar;
  242.     KvLabel1: TKvLabel;
  243.     Edit1: TEdit;
  244.     procedure FormShow(Sender: TObject);
  245.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  246.     procedure FormDestroy(Sender: TObject);
  247.     procedure FormCreate(Sender: TObject);
  248.     procedure StatusBarDrawPanel(StatusBar: TStatusBar;
  249.       Panel: TStatusPanel; const Rect: TRect);
  250.     procedure NewMenuItemClick(Sender: TObject);
  251.     procedure CovertMenuItemClick(Sender: TObject);
  252.     procedure OpenMenuItemClick(Sender: TObject);
  253.     procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
  254.     procedure CloseMenuItemClick(Sender: TObject);
  255.     procedure SaveMenuItemClick(Sender: TObject);
  256.     procedure TreeViewEdited(Sender: TObject; Node: TTreeNode;
  257.       var S: String);
  258.     procedure FImportMenuItemClick(Sender: TObject);
  259.     procedure ExportMenuItemClick(Sender: TObject);
  260.     procedure PrintMenuItemClick(Sender: TObject);
  261.     procedure ExitMenuItemClick(Sender: TObject);
  262.     procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
  263.       var AllowChange: Boolean);
  264.     procedure UndoMenuItemClick(Sender: TObject);
  265.     procedure RedoMenuItemClick(Sender: TObject);
  266.     procedure CutMenuItemClick(Sender: TObject);
  267.     procedure CopyMenuItemClick(Sender: TObject);
  268.     procedure PasteMenuItemClick(Sender: TObject);
  269.     procedure SelAllMenuItemClick(Sender: TObject);
  270.     procedure FindMenuItemClick(Sender: TObject);
  271.     procedure FindNextMenuItemClick(Sender: TObject);
  272.     procedure ReplaceMenuItemClick(Sender: TObject);
  273.     procedure DelSpaceMenuItemClick(Sender: TObject);
  274.     procedure FindDialogFind(Sender: TObject);
  275.     procedure ReplaceDialogReplace(Sender: TObject);
  276.     procedure ToolsMenuItemClick(Sender: TObject);
  277.     procedure StatusMenuItemClick(Sender: TObject);
  278.     procedure TitleMenuItemClick(Sender: TObject);
  279.     procedure ReadOnlyMenuItemClick(Sender: TObject);
  280.     procedure BigFontMenuItemClick(Sender: TObject);
  281.     procedure SmallFontMenuItemClick(Sender: TObject);
  282.     procedure OptionsMenuItemClick(Sender: TObject);
  283.     procedure AddNodeMenuItemClick(Sender: TObject);
  284.     procedure AddSubNodeMenuItemClick(Sender: TObject);
  285.     procedure EditNodeMenuItemClick(Sender: TObject);
  286.     procedure DelNodeMenuItemClick(Sender: TObject);
  287.     procedure SortMenuItemClick(Sender: TObject);
  288.     procedure CompressMenuItemClick(Sender: TObject);
  289.     procedure MyLoveMenuItemClick(Sender: TObject);
  290.     procedure HomePageMenuItemClick(Sender: TObject);
  291.     procedure AboutMenuItemClick(Sender: TObject);
  292.     procedure ReadmeMenuItemClick(Sender: TObject);
  293.     procedure EMailMenuItemClick(Sender: TObject);
  294.     procedure OtherMenuItemClick(Sender: TObject);
  295.     procedure DImportMenuItemClick(Sender: TObject);
  296.     procedure SetTitlePopMenuItemClick(Sender: TObject);
  297.     procedure TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  298.       State: TDragState; var Accept: Boolean);
  299.     procedure TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
  300.     procedure CutNodePopMenuItemClick(Sender: TObject);
  301.     procedure CopyNodePopMenuItemClick(Sender: TObject);
  302.     procedure PasteNodePopMenuItemClick(Sender: TObject);
  303.     procedure TreeViewPopupMenuPopup(Sender: TObject);
  304.     procedure RichEditPopupMenuPopup(Sender: TObject);
  305.     procedure FileMenuItemClick(Sender: TObject);
  306.     procedure EditMenuItemClick(Sender: TObject);
  307.     procedure DbAuthorEditChange(Sender: TObject);
  308.     procedure ContextAuthorEditChange(Sender: TObject);
  309.     procedure SetAuthorPopMenuItemClick(Sender: TObject);
  310.     procedure SetIndexPopMenuItemClick(Sender: TObject);
  312.     procedure PrevSpeedButtonClick(Sender: TObject);
  313.     procedure NextSpeedButtonClick(Sender: TObject);
  314.     procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  315.       var AllowExpansion: Boolean);
  316.     procedure ContextTypeRadioGroupClick(Sender: TObject);
  317.     procedure RichEditChange(Sender: TObject);
  318.     procedure ListMenuItemClick(Sender: TObject);
  319.     procedure TreeViewCompare(Sender: TObject; Node1, Node2: TTreeNode;
  320.       Data: Integer; var Compare: Integer);
  321.     procedure RichEditKeyDown(Sender: TObject; var Key: Word;
  322.       Shift: TShiftState);
  323.     procedure ControlBarDockOver(Sender: TObject; Source: TDragDockObject;
  324.       X, Y: Integer; State: TDragState; var Accept: Boolean);
  325.     procedure WordWrapMenuItemClick(Sender: TObject);
  326.     procedure CParaMenuItemClick(Sender: TObject);
  327.     procedure DParaMenuItemClick(Sender: TObject);
  328.     procedure GbToBigMenuItemClick(Sender: TObject);
  329.     procedure BigToGbMenuItemClick(Sender: TObject);
  330.     procedure Edit1KeyDown(Sender: TObject; var Key: Word;
  331.       Shift: TShiftState);
  332.     procedure SearchListBoxClick(Sender: TObject);
  333.   private
  334.       procedure MyShowHint(Sender:TObject); //应用程序提示函数
  335.   public
  336.     { Public declarations }
  337.   end;
  339. var
  340.   SrmForm: TSrmForm;
  341.   PanelHint:string;                  //在线提示
  342.   Srm: TSrmObject;   //Srm读写类
  345. implementation
  347. uses SrmAbout, InputPw, SrmOption, MainFun, RegUnit, MruUnit, ClipUnit,
  348.   GbBig;
  351. {$R *.DFM}
  353. //****************************************************************
  354. procedure TSrmForm.MyShowHint(Sender:TObject);
  355. begin
  356.   PanelHint:=GetLongHint(Application.Hint);
  357.   SrmForm.StatusBar.Refresh;
  358. end;
  359. //****************************************************************
  360. //窗体新建前----------------------------------------------------------------
  361. procedure TSrmForm.FormCreate(Sender: TObject);
  362. var
  363.   i:integer;
  364. begin
  365.   //变量初始化
  366.   SrmClip:=TSrmClip.Create;  //初始化自身剪贴板
  367.   AppIni:=TAppIni.Create;   //读入配置信息和状态信息
  369.   Mru:=TMru.Create;              //文件菜单的设置
  370.   Mru.ParentMenu:=FileMenuItem;
  371.   Mru.Position:=11;
  372.   Mru.Visible:=AppIni.FileListVisible;
  373.   for i:=4 downto 0 do Mru.Add(AppIni.FileList[i]);
  374.   MyLoveMenuItem.Enabled:=AppIni.MyLoveFile<>'';
  375.   MyLoveMenuItem.Visible:=AppIni.MyLoveVisible;
  376.   MyLoveNextMenuItem.Visible:=Appini.MyLoveVisible;
  378.   if ParamCount=1 then
  379.   begin
  380.     OpenSrm(ParamStr(1)); //带文件名参数运行时
  381.     exit;
  382.   end;
  383.   if AppIni.LoadNearFile then        //如果允许打开上次关闭时的文件
  384.     if AppIni.NearFile<>'' then        //否则打开上次关闭时的文件
  385.       if FileExists(AppIni.NearFile) then  //文件存在时
  386.       begin
  387.         OpenSrm(AppIni.NearFile);
  388.         if Srm<>nil then Caption:=csAppName+' - '+Srm.FileName;
  389.       end;
  390.   Application.OnHint:=MyShowHint;
  391. end;
  392. //窗体显示前----------------------------------------------------------------
  393. procedure TSrmForm.FormShow(Sender: TObject);
  394. begin
  395. //
  396. end;
  397. //窗体关闭前----------------------------------------------------------------
  398. procedure TSrmForm.FormClose(Sender: TObject; var Action: TCloseAction);
  399. begin
  400.   if Srm<>nil then
  401.     AppIni.NearFile:=Srm.FileName
  402.   else
  403.     AppIni.NearFile:='';
  404.   if CloseSrmQuery then
  405.     CloseSrm
  406.   else
  407.   begin
  408.     Action:=caNone;
  409.     exit;
  410.   end;
  411.   Action:=caFree;
  412. end;
  413. //窗体释放前----------------------------------------------------------------
  414. procedure TSrmForm.FormDestroy(Sender: TObject);
  415. var
  416.   i:integer;
  417. begin
  418.   for i:=0 to 4 do AppIni.FileList[i]:=Mru.FileList[i];
  419.   Mru.Free;
  420.   AppIni.Free;
  421.   SrmClip.Free;
  422. end;
  425. //****************************************************************
  426. //查找文本---------------------------------------------------------------
  427. procedure TSrmForm.FindDialogFind(Sender: TObject);
  428. var
  429.   FoundAt,StartPos,ToEnd:integer;
  430.   SearchFlag:TSearchTypes;
  431. begin
  432.   if frMatchCase in FindDialog.Options then
  433.     SearchFlag:=SearchFlag+[stMatchCase];
  434.   if frWholeWord in FindDialog.Options then
  435.     SearchFlag:=SearchFlag+[stWholeWord];
  436.   StartPos:=RichEdit.SelStart+RichEdit.SelLength;
  437.   ToEnd:=Length(RichEdit.Text)-StartPos;
  438.   FoundAt:=RichEdit.FindText(FindDialog.FindText,StartPos,ToEnd,
  439.                              SearchFlag);
  440.   if FoundAt<>-1 then
  441.   begin
  442.     RichEdit.SetFocus;
  443.     RichEdit.SelStart:=FoundAt;
  444.     RichEdit.SelLength:=Length(FindDialog.FindText);
  445.   end
  446.   else
  447.   begin
  448.     MessageBox(Handle,csFindError,csAppName,MB_OK or MB_ICONWARNING);
  449.   end;
  450. end;
  451. //替换文本---------------------------------------------------------------
  452. procedure TSrmForm.ReplaceDialogReplace(Sender: TObject);
  453. var
  454.   FoundAt,StartPos,ToEnd:integer;
  455.   SearchFlag:TSearchTypes;
  456. begin
  457.   if frMatchCase in ReplaceDialog.Options then
  458.     SearchFlag:=SearchFlag+[stMatchCase];
  459.   if frWholeWord in ReplaceDialog.Options then
  460.     SearchFlag:=SearchFlag+[stWholeWord];
  461.   StartPos:=0;
  462.   ToEnd:=Length(RichEdit.Text)-StartPos;
  464.   if frReplace in ReplaceDialog.Options then
  465.   begin
  466.     StartPos:=RichEdit.SelStart+RichEdit.SelLength;
  467.     FoundAt:=RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,
  468.                                SearchFlag);
  469.     if FoundAt<>-1 then
  470.     begin
  471.       RichEdit.SetFocus;
  472.       RichEdit.SelStart := FoundAt;
  473.       RichEdit.SelLength := Length(ReplaceDialog.FindText);
  474.       RichEdit.SelText := ReplaceDialog.ReplaceText;
  475.       RichEdit.SelStart := FoundAt;
  476.       RichEdit.SelLength := Length(ReplaceDialog.ReplaceText);
  477.     end
  478.     else
  479.     begin
  480.       MessageBox(Handle,csFindError,csAppName,MB_OK or MB_ICONWARNING);
  481.     end;
  482.   end
  483.   else if frReplaceAll in ReplaceDialog.Options then
  484.   begin
  485.     StartPos:=0;
  486.     FoundAt:=0;
  487.     while FoundAt<>-1 do
  488.     begin
  489.       FoundAt:=RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,
  490.                                  SearchFlag);
  491.       if FoundAt<>-1 then
  492.       begin
  493.         RichEdit.SetFocus;
  494.         RichEdit.SelStart := FoundAt;
  495.         RichEdit.SelLength:=Length(ReplaceDialog.FindText);
  496.         RichEdit.SelText:=ReplaceDialog.ReplaceText;
  497.         StartPos:=FoundAt+Length(ReplaceDialog.Findtext);
  498.         ToEnd:=Length(RichEdit.Text)-StartPos;
  499.       end
  500.       else
  501.       begin
  502.         MessageBox(Handle,csReplaceSucess,csAppName,0);
  503.         break;
  504.       end;
  505.     end;
  506.   end
  507.   else
  508.   begin
  509.     FindDialog.Options:=ReplaceDialog.Options;
  510.     FindDialog.FindText:=ReplaceDialog.FindText;
  511.     FindDialogFind(Sender);
  512.   end;
  513. end;
  516. //****************************************************************
  517. //节点改变前---------------------------------------------------------------
  518. procedure TSrmForm.TreeViewChanging(Sender: TObject; Node: TTreeNode;
  519.   var AllowChange: Boolean);
  520. var
  521.   Ps,UserPs:string;
  522. begin
  523.   AllowChange:=true;
  525.   if Srm=nil then exit;
  526.   SaveItem;
  528.   if Node.Data=pointer(-1) then exit;           //如果是新建节点则不检查口令
  529.   Ps:=Srm.GetItemPassword(integer(Node.Data));  //得要显示标题的口令
  530.   if Ps<>'' then                                //口令不为空时
  531.   begin
  532.     with TInpwForm.Create(self) do
  533.     begin
  534.       Caption:=csAppName;
  535.       InputLabel.Caption:=csPasswordTitle;
  536.       if ShowModal=mrCancel then
  537.       begin
  538.        AllowChange:=false;
  539.       end;
  540.       UserPs:=Edit.Text;
  541.       if Ps<>UserPs then                        //输入口令不对时
  542.       begin
  543.         if ModalResult<>mrCancel then           //在口令输入框中没按Cancel按钮
  544.           Application.MessageBox(csPasswordError,csAppName,MB_OK);
  545.         AllowChange:=false;                     //不允许转移选择点
  546.       end;
  547.       Free;
  548.     end;
  549.   end;
  550.   end;
  551. //节点改变后---------------------------------------------------------------
  552. procedure TSrmForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
  553. var
  554.   Ms:TMemoryStream;
  555. begin
  557.   if Srm=nil then exit;
  558.   if ((Node=nil) or (integer(Node.Data)=-1)) then  //无效节点或无内容
  559.   begin
  560.     ContextAuthorEdit.Text:='';
  561.     ContextPasswordEdit.Text:='';
  562.     ContextPubDateEdit.Text:=DateToStr(Date);
  563.     ContextIndexEdit.Text:='';
  564.     ContextTypeRadioGroup.ItemIndex:=1;
  565.     RichEdit.Text:='';
  566.     RichEdit.Modified:=false;
  567.     if Node<>nil then
  568.     begin
  569.       Srm.ItemHeadChanged:=true;
  570.       Srm.ItemDataChanged:=true;
  571.     end;
  572.     exit;
  573.   end;
  575.   Srm.ReadItemHead(integer(Node.Data));  //读入标题属性
  576.   case Srm.DataHead.Num of
  577.     0:                //无内容
  578.     begin
  579.       RichEdit.Text:='';
  580.     end;
  581.     1:
  582.     begin
  583.       Ms:=TMemoryStream.Create;
  584.       Srm.ReadItemData(Ms);
  585.       RichEdit.PlainText:=true; //和3.2版兼容
  586.       RichEdit.SetTextBuf(Ms.Memory);
  587.       RichEdit.PlainText:=false;//和3.2版兼容
  588.       Ms.Free;
  589.     end;
  590.   end;
  592.   Node.SelectedIndex:=Node.ImageIndex;  //设置标题属性
  594.   ContextAuthorEdit.Text:=string(Srm.DataHead.Author);
  595.   ContextPasswordEdit.Text:=String(Srm.DataHead.Password);
  596.   ContextPubDateEdit.Text:=DateToStr(Srm.DataHead.PubDate);
  597.   ContextIndexEdit.Text:=string(Srm.DataHead.SearchKey);
  598.   ContextTypeRadioGroup.ItemIndex:=Node.ImageIndex-1;
  599.   TitleLabel.Caption:=Node.Text;
  600.   StatusBar.Refresh;
  602.   RichEdit.Modified:=false;
  603.   Srm.ItemHeadChanged:=false;
  604.   Srm.ItemDataChanged:=false;
  605. end;
  606. //节点被编辑后------------------------------------------------------------
  607. procedure TSrmForm.TreeViewEdited(Sender: TObject; Node: TTreeNode;
  608.   var S: String);
  609. var
  610.   Id:integer;
  611. begin
  612.   S:=FormatTreeNodeString(S);
  613.   if S='' then S:=csNewDefaultTitle;
  614.   if Node.Parent=nil then Id:=0 else Id:=integer(Node.Parent.ItemId);
  615.   PostMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  616.   TitleLabel.Caption:=S;
  617.   Srm.IndexChanged:=true;
  618. end;
  619. //标题排序函数-------------------------------------------------------
  620. procedure TSrmForm.TreeViewCompare(Sender: TObject; Node1,
  621.   Node2: TTreeNode; Data: Integer; var Compare: Integer);
  622. begin
  623.   if Node1.ImageIndex<Node2.ImageIndex then Compare:=-1
  624.   else if Node1.ImageIndex>Node2.ImageIndex then begin Compare:=1 end
  625.   else comPare:=CompareText(Node1.Text,Node2.Text);
  626. end;
  627. //树形视图拖动过程----------------------------------------------------------
  628. procedure TSrmForm.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  629.   State: TDragState; var Accept: Boolean);
  630. Var
  631.    NbPixels:Integer;
  632.    Info:TScrollInfo;
  633. begin
  634.      if Source<>TreeView then
  635.      begin
  636.        Accept:=false;
  637.        exit;
  638.      end;
  639.      GetScrollInfo(TreeView.Handle,SB_VERT,Info);
  640.      if Info.nMin=Info.nMax then exit;
  641.      NbPixels:=Abs(TreeView.Font.Height);
  643.      if (Y<NbPixels) then
  644.      begin
  645.         TreeView.Perform(WM_VSCROLL,SB_LINEUP,0);
  646.         TreeView.Refresh;
  647.      end;
  649.      if (Y>TreeView.Height-NbPixels-16) then
  650.      begin
  651.         TreeView.Perform(WM_VSCROLL,SB_LINEDOWN,0);
  652.         TreeView.Refresh;
  653.      end;
  654. end;
  655. //树形视图拖动结束----------------------------------------------------------
  656. procedure TSrmForm.TreeViewDragDrop(Sender, Source: TObject; X,
  657.   Y: Integer);
  658. var
  659.   SNode,DNode:TTreeNode;
  660.   Id:integer;
  661. begin
  662.   SNode:=TreeView.Selected;  //得被拖动的标题
  663.   DNode:=TreeView.GetNodeAt(X,Y);  //得坐标处标题
  664.   if DNode<>SNode then
  665.     if DNode=nil then
  666.       SNode.MoveTo(TreeView.Items.GetFirstNode,naAdd)
  667.     else
  668.     begin
  669.       SNode.MoveTo(DNode,naAddChild);
  670.      end;
  671.   if DNode=nil then Id:=0 else Id:=integer(DNode.ItemId);
  672.   SendMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  673.   srm.IndexChanged:=true;      //置索引改变为真
  674. end;
  675. //树形视图拖动结束----------------------------------------------------------
  677. //节点被扩展前------------------------------------------------------------
  678. procedure TSrmForm.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  679.   var AllowExpansion: Boolean);
  680. var
  681.   ps,UserPs:string;
  682. begin
  683.   AllowExpansion:=true;
  685.   if Node.Data=pointer(-1) then exit;
  687.   UserPs:=Srm.GetItemPassword(integer(Node.Data));
  688.   if UserPs<>'' then
  689.   begin
  690.     with TInpwForm.Create(self) do
  691.     begin
  692.       Caption:=csAppName;
  693.       InputLabel.Caption:=csPasswordTitle;
  694.       if ShowModal=mrCancel then AllowExpansion:=false;
  695.       Ps:=Edit.Text;
  696.       if Ps<>UserPs then
  697.       begin
  698.         if ModalResult<>mrCancel then
  699.           MessageBox(Handle,csPasswordError,csAppName,MB_OK);
  700.         AllowExpansion:=false;
  701.       end;
  702.       Free;
  703.     end;
  704.   end;
  705. end;
  707. //设为标题----------------------------------------------------------
  708. procedure TSrmForm.SetTitlePopMenuItemClick(Sender: TObject);
  709. begin
  710.   TreeView.Selected.Text:=FormatTreeNodeString(RichEdit.SelText);
  711.   Srm.IndexChanged:=true;
  712.   TitleLabel.Caption:=TreeView.Selected.Text;
  713. end;
  714. //设为作者----------------------------------------------------------
  715. procedure TSrmForm.SetAuthorPopMenuItemClick(Sender: TObject);
  716. begin
  717.   ContextAuthorEdit.Text:=RichEdit.SelText;
  718.   Srm.ItemHeadChanged:=true;
  719. end;
  720. //设为关键字--------------------------------------------------------
  721. procedure TSrmForm.SetIndexPopMenuItemClick(Sender: TObject);
  722. var
  723.   TmpStr:string;
  724.   p: pchar;
  725. begin
  726.   TmpStr:=RichEdit.SelText;
  727.   if 51<Length(ContextIndexEdit.Text)+RichEdit.SelLength then
  728.   begin
  729.     Application.MessageBox(csIndexError,csAppName,MB_OK);
  730.     exit;
  731.   end;
  732.   p:=pchar(TmpStr);
  733.   while (p^<#33) and (P^<>#0) do inc(p);
  734.   if ContextIndexEdit.Text<>'' then
  735.     if ContextIndexEdit.Text[Length(ContextIndexEdit.Text)]<>'&' then
  736.       ContextIndexEdit.Text:=ContextIndexEdit.Text+'&';
  737.   ContextIndexEdit.Text:=ContextIndexEdit.Text+string(p);
  738.   Srm.ItemHeadChanged:=true;
  739. end;
  740. //编辑框菜单弹出时--------------------------------------------------
  741. procedure TSrmForm.RichEditPopupMenuPopup(Sender: TObject);
  742. begin
  743.   if Srm=nil then
  744.   begin
  745.     CutPopMenuItem.Enabled:=false;
  746.     CopyPopMenuItem.Enabled:=false;
  747.     PastePopMenuItem.Enabled:=false;
  748.     SetTitlePopMenuItem.Enabled:=false;
  749.     SetIndexPopMenuItem.Enabled:=false;
  750.     SelAllPopMenuItem.Enabled:=false;
  751.     SetAuthorPopMenuItem.Enabled:=false;
  752.     DelSpacePopMenuItem.Enabled:=false;
  753.   end
  754.   else
  755.   begin
  756.     OpenClipboard(Handle);
  757.     if GetClipboardData(CF_TEXT)=0 then  //剪贴板中没有文本时
  758.       PastePopMenuItem.Enabled:=false
  759.     else
  760.       PastePopMenuItem.enabled:=true;
  761.     CloseClipboard;
  762.     if RichEdit.SelLength>=RichEdit.GetTextLen then
  763.       SelAllPopMenuItem.Enabled:=false
  764.     else
  765.       SelAllPopMenuItem.Enabled:=true;
  766.     if richEdit.SelLength<>0 then
  767.     begin
  768.       CutPopMenuItem.Enabled:=true;
  769.       CopyPopMenuItem.Enabled:=true;
  770.       SetTitlePopMenuItem.Enabled:=true;
  771.       SetIndexPopMenuItem.Enabled:=true;
  772.       SetAuthorPopMenuItem.Enabled:=true;
  773.     end
  774.     else
  775.     begin
  776.       CutPopMenuItem.Enabled:=false;
  777.       CopyPopMenuItem.Enabled:=false;
  778.       SetTitlePopMenuItem.Enabled:=false;
  779.       SetIndexPopMenuItem.Enabled:=false;
  780.       SetAuthorPopMenuItem.Enabled:=false;
  781.     end;
  782.     DelSpacePopMenuItem.Enabled:=(RichEdit.Text<>'');
  783.   end;
  784. end;
  785. //剪切标题----------------------------------------------------------
  786. procedure TSrmForm.CutNodePopMenuItemClick(Sender: TObject);
  787. begin
  788.   SrmClip.Cut(TreeView.Selected);
  789. end;
  790. //复制标题----------------------------------------------------------
  791. procedure TSrmForm.CopyNodePopMenuItemClick(Sender: TObject);
  792. begin
  793.   SrmClip.Copy(TreeView.Selected);
  794. end;
  795. //粘贴标题----------------------------------------------------------
  796. procedure TSrmForm.PasteNodePopMenuItemClick(Sender: TObject);
  797. begin
  798.   SrmClip.Paste(TreeView.Selected);
  799. end;
  800. //弹出菜单时的动作--------------------------------------------------------
  801. procedure TSrmForm.TreeViewPopupMenuPopup(Sender: TObject);
  802. begin
  803.   if Srm=nil then
  804.   begin
  805.     DelNodePopMenuItem.Enabled:=false;
  806.     EditNodePopMenuItem.Enabled:=false;
  807.     AddSubNodePopMenuItem.Enabled:=false;
  808.     AddNodePopMenuItem.Enabled:=false;
  809.     CutNodePopMenuItem.Enabled:=false;
  810.     CopyNodePopMenuItem.Enabled:=false;
  811.     PasteNodePopMenuItem.Enabled:=false;
  812.     exit;
  813.   end;
  815.   AddNodePopMenuItem.Enabled:=true;
  816.   if TreeView.Selected=nil then
  817.   begin
  818.     DelNodePopMenuItem.Enabled:=false;
  819.     EditNodePopMenuItem.Enabled:=false;
  820.     AddSubNodePopMenuItem.Enabled:=false;
  821.     CutNodePopMenuItem.Enabled:=false;
  822.     CopyNodePopMenuItem.Enabled:=false;
  823.   end
  824.   else
  825.   begin
  826.     DelNodePopMenuItem.Enabled:=true;
  827.     EditNodePopMenuItem.Enabled:=true;
  828.     AddSubNodePopMenuItem.Enabled:=true;
  829.     CutNodePopMenuItem.Enabled:=true;
  830.     CopyNodePopMenuItem.Enabled:=true;
  832.   end;
  833.   if SrmClip.Node=nil then
  834.     PasteNodePopMenuItem.Enabled:=false
  835.   else
  836.     PasteNodePopMenuItem.Enabled:=true;
  837. end;
  841. //****************************************************************
  842. //---------------------------------------------------------------------
  843. procedure TSrmForm.StatusBarDrawPanel(StatusBar: TStatusBar;
  844.   Panel: TStatusPanel; const Rect: TRect);
  845. var
  846.   Text:string;
  847.   Rc:TRect;
  848. begin
  849.   Rc:=Rect;
  850.   Rc.Left:=Rc.Left+3;
  851.   if Panel=StatusBar.Panels[0] then
  852.   begin
  853.     Text:=csPanel1Text+IntToStr(TreeView.Items.Count);
  854.   end;
  855.   if Panel=StatusBar.Panels[1] then
  856.   begin
  857.     Text:=csPanel2Text+IntToStr(RichEdit.GetTextLen);
  858.   end;
  859.   if Panel=StatusBar.Panels[2] then
  860.   begin
  861.     Text:=PanelHint;
  862.   end;
  863.   with StatusBar.Canvas do
  864.   begin
  865.     Brush.Style := bsClear;
  866.     Font := StatusBar.Font;
  867.     Font.Color := clWhite;
  868.     OffsetRect(Rc,5,1);
  869.     DrawText(Handle, PChar(Text), Length(Text), Rc,(DT_VCENTER or DT_SINGLELINE));
  870.     OffsetRect(Rc,-1,-1);
  871.     Font:=StatusBar.Font;
  872.     DrawText(Handle, PChar(Text), Length(Text), Rc,(DT_VCENTER or DT_SINGLELINE));
  873.   end;
  874. end;
  876. //****************************************************************
  877. //新建数据文件-------------------------------------------------------------
  878. procedure TSrmForm.NewMenuItemClick(Sender: TObject);
  879. begin
  880.   with SaveDialog do
  881.   begin
  882.     DefaultExt:=csSrmExt;
  883.     Filter:=csSrmFilter;
  884.     Title:=csCreateTitle;
  885.   end;
  886.   if SaveDialog.Execute then
  887.   begin
  888.     if CloseSrmQuery then CloseSrm else exit;
  889.     Srm:=TSrmObject.Create(SaveDialog.FileName,fmCreate);
  890.     DbAuthorEdit.Text:='';
  891.     DbPasswordEdit.Text:='';
  892.     DbBuildDateEdit.Text:=DateToStr(Srm.FileHead.BuildDate);
  893.     DbeditDateEdit.Text:=DatetoStr(Srm.FileHead.EditDate);
  894.     Caption:=csAppName+' - '+SaveDialog.FileName;
  895.     Mru.Add(SaveDialog.FileName);
  896.   end;
  897. end;
  898. //打开数据文件------------------------------------------------------------
  899. procedure TSrmForm.OpenMenuItemClick(Sender: TObject);
  900. begin
  901.   with OpenDialog do
  902.   begin
  903.     DefaultExt:=csSrmExt;
  904.     Filter:=csSrmFilter;
  905.     Title:=csOpenTitle;
  906.     FileName:='';
  907.   end;
  908.   if OpenDialog.Execute then
  909.   begin
  910.     if CloseSrmQuery then CloseSrm else exit;
  911.     OpenSrm(OpenDialog.FileName);
  912.      if Srm=nil then
  913.       Caption:=csAppName
  914.      else
  915.      begin
  916.        Caption:=csAppName+' - '+OpenDialog.FileName;
  917.        Mru.Add(OpenDialog.FileName);
  918.      end;
  919.   end;
  920. end;
  921. //保存数据文件------------------------------------------------------------
  922. procedure TSrmForm.SaveMenuItemClick(Sender: TObject);
  923. begin
  924.   SaveSrm;
  925. end;
  926. //关闭数据文件------------------------------------------------------------
  927. procedure TSrmForm.CloseMenuItemClick(Sender: TObject);
  928. begin
  929.   if CloseSrmQuery then
  930.   begin
  931.     CloseSrm;
  932.     Caption:=csAppName;
  933.   end;
  934. end;
  935. //文件引入-----------------------------------------------------------------
  936. procedure TSrmForm.FImportMenuItemClick(Sender: TObject);
  937. var
  939.   Ps,UserPs:string;
  940.   ms,Msh,Msd:TMemoryStream;
  941.   j:integer;
  942.   p:PTreeData;
  943.   AList: TStringList;
  944.   ALevel,AOldLevel:integer;
  945.   AParentNode:TTreeNode;
  946.   StrBuf:PChar;
  947.   SrmImport:TSrmObject;
  948.   ANode:TTreeNode;
  949.   i,n:integer;
  950.   Fn:string;
  951. begin
  952.   with OpenDialog do
  953.   begin
  954.     DefaultExt:=csTxtExt;
  955.     Filter:=csTxtFilter+'|'+csSrmFilter; //*
  956.     Title:=csOpenTitle;
  957.     FileName:='';
  958.   end;
  959.   if OpenDialog.Execute then
  960.    
  961.     RichEdit.Perform(WM_SETREDRAW,0,0);  //禁止重绘
  962.     for i:=0 to OpenDialog.Files.Count-1 do  //循环读入多重选择文件
  964.   if lowercase(ExtractFileExt(OpenDialog.Files.Strings[i]))='.srm'  then //＊导入SRM文件
  965.    begin
  966.  SrmImport:=TSrmObject.Create(OpenDialog.Files.Strings[i],fmOpenReadWrite);
  967.   if SrmImport.FileHead.Password[0]<>#0 then    //密码保护
  968.   begin
  969.     InPwForm:=TInPwForm.Create(SrmForm);
  970.     with InPwForm do
  971.     begin
  972.       Caption:=csAppName;
  973.       InputLabel.Caption:=csPasswordTitle;
  974.       if ShowModal=mrCancel then
  975.       begin
  976.         SrmImport.Free;
  977.         Free;
  978.         break;
  979.       end;
  980.       Ps:=Edit.Text;
  981.       UserPs:=string(SrmImport.FileHead.Password);
  982.       if Ps<>UserPs then
  983.       begin
  984.         if ModalResult<>mrCancel then
  985.           Application.MessageBox(csAppName,csPasswordError,MB_OK);
  986.         SrmImport.Free;
  987.         Free;
  988.         break;
  989.       end;
  990.       Free;
  991.     end;
  992.   end;
  993.   Screen.Cursor:=crHourGlass;
  994.   Msh:=TMemoryStream.Create;
  995.   Msd:=TMemoryStream.Create;
  996.   SrmImport.LoadIndex(Msh,Msd);                 //装入索引
  997.   AList := TStringList.Create;
  998.   SrmForm.TreeView.Items.BeginUpdate;
  999.   AList.LoadFromStream(Msh);     //装入到字符串列表中
  1000.   AOldLevel:=0   ;     //计算当前节点的级数
  1001.   AParentNode :=Nil;
  1002.   p:=Msd.Memory;
  1003.   for n:=0 to AList.Count-1 do                        //根据TAB的多少得到相应级别
  1004.   begin
  1005.     StrBuf:=PChar(AList.Strings[n]);
  1006.     ALevel:=0;
  1007.     while StrBuf^=#9 do                   //得该项所在层数
  1008.     begin
  1009.       Inc(StrBuf);
  1010.       Inc(ALevel);
  1011.     end;
  1012.     if (ALevel<AOldLevel) or (AParentNode<>nil) then
  1013.     begin                                 //返回该项的上级节点
  1014.       for j:=AOldLevel downto ALevel do
  1015.       begin
  1016.         AParentNode:=AParentNode.Parent;
  1017.       end;
  1018.     end;
  1019.     AParentNode:=SrmForm.TreeView.Items.AddChildObject(AParentNode,StrBuf,
  1020.                                      pointer(-1));
  1021.     AParentNode.ImageIndex:=p.DataType;   //得该节点类型
  1022.     AOldLevel:=ALevel;
  1023.     SrmImport.ReadItemHead(integer(p.pos));
  1024.     srm.DataHead :=SrmImport.DataHead ;  //读入标题属性
  1025.     TreeView.Selected :=AParentNode;
  1026.   case SrmImport.DataHead.Num of
  1027.     0:                //无内容
  1028.     begin
  1029.       RichEdit.Text:='';
  1030.     end;
  1031.     1:
  1032.     begin
  1033.       Ms:=TMemoryStream.Create;
  1034.       SrmImport.ReadItemData(Ms);
  1035.       RichEdit.PlainText:=true; //和3.2版兼容
  1036.       RichEdit.SetTextBuf(Ms.Memory);
  1037.       RichEdit.PlainText:=false;//和3.2版兼容
  1038.       Ms.Free;
  1039.     end;
  1040.   end;
  1042.     //Srm.ItemDataChanged:=true;
  1043.         p:=pointer(integer(p)+sizeof(TTreeData));
  1044.   end;
  1045.   SrmForm.TreeView.Items.EndUpdate;
  1046.   AList.Free;
  1047.   Msd.Free;
  1048.   Msh.Free;
  1049.    SrmImport.Free;
  1050.    TreeView.Selected:=SrmForm.TreeView.Items[0];         //置当前选择项为空
  1051.    TreeView.FullCollapse;
  1053.   end
  1054. else
  1055.   begin
  1057.       Fn:=ExtractFileName(OpenDialog.Files.Strings[i]);
  1058.       Delete(Fn,Length(Fn)-3,4);
  1059.       ANode:=TreeView.Items.AddObjectFirst(TreeView.Selected,Fn,pointer(-1));
  1060.       ANode.ImageIndex:=2;
  1061.       with Srm.DataHead do
  1062.       begin
  1063.         DataType:=2;
  1064.         Author[0]:=#0;
  1065.         Password[0]:=#0;
  1066.       end;
  1067.       TreeView.Selected:=ANode;
  1068.       RichEdit.Lines.LoadFromFile(OpenDialog.Files.Strings[i]);
  1069.     end  ;
  1070.     StatusBar.Refresh;
  1071.     RichEdit.Perform(WM_SETREDRAW,-1,0);  //允许重绘
  1072.     Richedit.Refresh;
  1073.     Screen.Cursor:=crDefault;
  1075. end;
  1076. //目录引入-----------------------------------------------------------------
  1077. procedure TSrmForm.DImportMenuItemClick(Sender: TObject);
  1078. var
  1079.   Temps:WideString;
  1080.   Dir,Mask:string;
  1081.   ANode:TTreeNode;
  1082. begin
  1083.   Temps:='';
  1084. //  if not SelectDirectory(csAppName,Temps,Dir) then exit;
  1085.   Dir:=BrowseFolder;
  1086.   If Dir='' Then exit;
  1087.   ANode:=TreeView.Items.AddChildObjectFirst(TreeView.Selected,
  1088.        GetLastPathName(Dir),pointer(-1));
  1089.   ANode.ImageIndex:=1;
  1090.   with Srm.DataHead do
  1091.   begin
  1092.     DataType:=1;
  1093.     Author[0]:=#0;
  1094.     Password[0]:=#0;
  1095.   end;
  1096.   TreeView.Selected:=ANode;
  1097.   RichEdit.Modified:=true;
  1098.   if Dir[Length(Dir)]<>'' then Dir:=Dir+'';
  1099.   Mask:='*.'+csTxtExt;
  1100.   Screen.Cursor:=crHourGlass;
  1101.   RichEdit.Perform(WM_SETREDRAW,0,0);  //禁止重绘
  1102.   ImportDir(Dir,Mask);
  1103.   RichEdit.Perform(WM_SETREDRAW,-1,0);  //允许重绘
  1104.   Richedit.Refresh;
  1105.   StatusBar.Refresh;
  1106.   SCreen.Cursor:=crDefault;
  1107. end;
  1108. //导出标题内容--------------------------------------------------------------
  1109. procedure TSrmForm.ExportMenuItemClick(Sender: TObject);
  1110. var
  1111.   Dir:string;
  1112. //  i,n:integer;     //对别的格式要导出其附件
  1114.   function FormatFileName(Fn:string):string;
  1115.   var
  1116.     i,n:integer;
  1117.     c:char;
  1118.   begin
  1119.     Result:=Fn;
  1120.     n:=Length(Result);
  1121.     for i:=1 to n do
  1122.     begin
  1123.       c:=Result[i];
  1124.       if ((c=#92) or (c=#47) or (c=#58) or (c=#42) or (c=#63) or
  1125.            (c=#34) or (c=#60) or (c=#62) or (c=#124)) then
  1126.         Result[i]:='$';  //替换掉系统不接受的文件命名的字符
  1127.     end;
  1128.   end;
  1129.   procedure OutPutSrm(ANode:TTreeNode;Dir:string);
  1130.   var
  1131.     SNode:TTreeNode;
  1132.     Ms:TMemoryStream;
  1133.     Fh:integer;
  1134.     Path:string;
  1135.   begin
  1136.     Ms:=TMemoryStream.Create;
  1137.     Path:=Dir;
  1138.     SNode:=ANode.GetFirstChild;
  1139.     while SNode<>nil do
  1140.     begin
  1141.       if SNode.ImageIndex=1 then
  1142.       begin
  1143.         Dir:=Path+FormatFileName(SNode.Text);
  1144.         MkDir(Dir);
  1145.         Dir:=Dir+'';
  1146.         OutPutSrm(SNode,Dir);
  1147.       end
  1148.       else
  1149.       begin
  1150.         Srm.ReadItemHead(integer(SNode.Data));
  1151.         if ((Srm.DataHead.Password[0]=#0) and (Srm.DataHead.Num=1)) then
  1152.         begin       //没有口令的内容才导出
  1153.           Srm.ReadItemData(Ms);
  1154.           Fh:=FileCreate(Path+FormatFileName(SNode.Text)+'.'+csTxtExt);
  1155.           if Fh<>0 then FileWrite(Fh,Ms.Memory^,Ms.Size);
  1156.           FileClose(Fh);
  1157.         end;
  1158.       end;
  1159.       SNode:=SNode.GetNextSibling;
  1160.     end;
  1161.     Ms.Free;
  1162.   end;
  1163. begin
  1164.   if TreeView.Selected=nil then exit;
  1165.   if TreeView.Selected.GetFirstChild=nil then
  1166.   begin
  1167.     with SaveDialog do
  1168.     begin
  1169.       DefaultExt:=csTxtExt;
  1170.       Filter:=csTxtFilter;
  1171.       Title:=csSaveAsTitle;
  1172.       FileName:=TreeView.Selected.Text;
  1173.     end;
  1174.     if SaveDialog.Execute then
  1175.     begin
  1176.       RichEdit.Lines.SaveToFile(SaveDialog.FileName);
  1177.     end;
  1178.   end
  1179.   else
  1180.   begin
  1181.     Dir:=BrowseFolder;
  1182.     If Dir='' Then exit;
  1183.     if Dir[Length(Dir)]<>'' then Dir:=Dir+'';
  1184.     Dir:=Dir+FormatFileName(TreeView.Selected.Text);
  1185.     if DirectoryExists(Dir) then
  1186.     begin
  1187.       Application.MessageBox(csDirExists,csAppName,MB_OK or MB_ICONERROR);
  1188.       exit;
  1189.     end;
  1190.     MkDir(Dir);
  1191.     Dir:=Dir+'';
  1192.     Screen.Cursor:=crHourGlass;
  1193.     OutPutSrm(TreeView.Selected,Dir);
  1194.     Screen.Cursor:=crDefault;
  1195.   end;
  1196. end;
  1197. //打印内容------------------------------------------------------------------
  1198. procedure TSrmForm.PrintMenuItemClick(Sender: TObject);
  1199. begin
  1200.   if RichEdit.GetTextLen()=0 then
  1201.     RichEdit.Print(TitleLabel.Caption);
  1202. end;
  1203. //退出菜单-----------------------------------------------------------------
  1204. procedure TSrmForm.ExitMenuItemClick(Sender: TObject);
  1205. begin
  1206.   Close;
  1207. end;
  1208. //最近文件列表-----------------------------------------------------------------
  1209. procedure TSrmForm.ListMenuItemClick(Sender: TObject);
  1210. var
  1211.   Temps:string;
  1212. begin
  1213.   if CloseSrmQuery then closeSrm else exit;
  1214.   Temps:=Mru.FileList[TMenuItem(Sender).Tag];
  1215.   if Temps<>'' then
  1216.     if FileExists(Temps) then
  1217.      OpenSrm(Temps);
  1218.   if Srm=nil then
  1219.     Caption:=csAppName
  1220.   else
  1221.   begin
  1222.     Caption:=csAppName+' - '+Temps;
  1223.     Mru.Add(Temps);
  1224.   end;
  1225. end;
  1226. //我的最爱-----------------------------------------------------------------
  1227. procedure TSrmForm.MyLoveMenuItemClick(Sender: TObject);
  1228. begin
  1229.   if CloseSrmQuery then CloseSrm else exit;
  1230.   if AppIni.MyLoveFile<>'' then
  1231.     if FileExists(AppIni.MyLoveFile) then OpenSrm(AppIni.MyLoveFile);
  1232.   if Srm=nil then
  1233.     Caption:=csAppName
  1234.   else
  1235.     begin
  1236.       Caption:=csAppName+' - '+AppIni.MyLoveFile;
  1237.       Mru.Add(AppIni.MyLoveFile);
  1238.     end;
  1239. end;
  1243. //****************************************************************
  1244. //恢复菜单----------------------------------------------------------------
  1245. procedure TSrmForm.UndoMenuItemClick(Sender: TObject);
  1246. begin
  1247.   SendMessage(RichEdit.Handle,EM_UNDO,0,0);
  1248. end;
  1250. //---------------------------------------------------------------------
  1251. procedure TSrmForm.RedoMenuItemClick(Sender: TObject);
  1252. begin
  1253.   SendMessage(RichEdit.Handle,EM_UNDO,0,0);
  1254. end;
  1256. //重做菜单--------------------------------------------------------------
  1257. procedure TSrmForm.CutMenuItemClick(Sender: TObject);
  1258. begin
  1259.   SendMessage(GetFocus,WM_CUT,0,0);
  1260. end;
  1262. //拷贝------------------------------------------------------------------
  1263. procedure TSrmForm.CopyMenuItemClick(Sender: TObject);
  1264. begin
  1265.   SendMessage(GetFocus,WM_COPY,0,0);
  1266. end;
  1268. //粘贴----------------------------------------------------------------
  1269. procedure TSrmForm.PasteMenuItemClick(Sender: TObject);
  1270. begin
  1271.   SendMessage(GetFocus,WM_PASTE,0,0);
  1272. end;
  1274. //全选---------------------------------------------------------------
  1275. procedure TSrmForm.SelAllMenuItemClick(Sender: TObject);
  1276. begin
  1277.   RichEdit.SelectAll;
  1278. end;
  1280. //查找-----------------------------------------------------------------
  1281. procedure TSrmForm.FindMenuItemClick(Sender: TObject);
  1282. begin
  1283.   ReplaceDialog.ReplaceText:='';
  1284.   FindDialog.Execute;
  1285. end;
  1287. //查找下一个-------------------------------------------------------------
  1288. procedure TSrmForm.FindNextMenuItemClick(Sender: TObject);
  1289. begin
  1290.   if Length(ReplaceDialog.ReplaceText)<>0 then
  1291.   begin
  1292.     ReplaceDialog.Options:=ReplaceDialog.Options+[frReplace];
  1293.     ReplaceDialogReplace(Sender);
  1294.   end
  1295.   else if Length(FindDialog.FindText)<>0 then
  1296.   begin
  1297.     FindDialogFind(Sender);
  1298.   end
  1299.   else
  1300.     FindDialog.Execute;
  1301. end;
  1303. //替换------------------------------------------------------------------
  1304. procedure TSrmForm.ReplaceMenuItemClick(Sender: TObject);
  1305. begin
  1306.   ReplaceDialog.Execute;
  1307. end;
  1308. //删除空格---------------------------------------------------------------
  1309. procedure TSrmForm.DelSpaceMenuItemClick(Sender: TObject);
  1310. var
  1311.   i,Size:integer;
  1312.   OldBuf,NewBuf,TempOldBuf,TempNewBuf:pchar;
  1313. begin
  1314.   Size:=RichEdit.GetTextLen+2;
  1315.   GetMem(OldBuf,Size+1);
  1316.   GetMem(NewBuf,Size+1);
  1317.   TempOldBuf:=OldBuf;
  1318.   TempNewBuf:=NewBuf;
  1319.   RichEdit.GetTextBuf(OldBuf,Size);
  1320.   for i:=0 to Size do
  1321.   begin
  1322.     if TempOldBuf^=#32 then
  1323.     begin
  1324.       if ((pchar(integer(TempOldBuf-1))^>=#160) or
  1325.           (pchar(integer(TempOldBuf+1))^>=#160)) then
  1326.         inc(TempOldBuf)
  1327.       else
  1328.       begin
  1329.         TempNewBuf^:=TempOldBuf^;
  1330.         inc(TempNewBuf);
  1331.         inc(TempOldBuf);
  1332.       end;
  1333.     end
  1334.     else
  1335.     begin
  1336.       TempNewBuf^:=TempOldBuf^;
  1337.       inc(TempNewBuf);
  1338.       inc(TempOldBuf);
  1339.     end;
  1340.   end;
  1341.   TempNewBuf^:=#0;
  1342.   RichEdit.SetTextBuf(NewBuf);
  1343.   FreeMem(OldBuf);
  1344.   FreeMem(NewBuf);
  1345. end;
  1346. //合并成段---------------------------------------------------------------
  1347. procedure TSrmForm.CParaMenuItemClick(Sender: TObject);
  1348. var
  1349.   Stext,Dtext:pchar;
  1350.   OldStext,OldDtext:pchar;
  1351.   n:integer;
  1352. begin
  1353.   n:=RichEdit.SelLength;
  1354.   if n=0 then Exit;    //没有选择的文本则退出
  1356.   Inc(n);
  1357.   GetMem(OldStext,n);
  1358.   GetMem(OldDtext,n);  //分配内存准备COPY文本
  1359.   Stext:=OldStext;
  1360.   Dtext:=OldDtext;
  1362.   RichEdit.GetSelTextBuf(Stext,n);
  1363.   while Stext^<>#0 do
  1364.   begin
  1365.     if (Stext^=#10) or (Stext^=#13) then  //如果是回车换行符
  1366.       Inc(Stext)
  1367.     else
  1368.     begin
  1369.       Dtext^:=Stext^;
  1370.       Inc(Stext);
  1371.       Inc(Dtext);
  1372.     end;
  1373.   end;
  1374.   Inc(Dtext);
  1375.   Dtext^:=#0;
  1376.   RichEdit.SetSelTextBuf(OldDtext);
  1378.   FreeMem(OldStext);
  1379.   FreeMem(OldDtext);
  1380. end;
  1381. //分割段落---------------------------------------------------------------
  1382. procedure TSrmForm.DParaMenuItemClick(Sender: TObject);
  1383. var
  1384.   i,n:integer;
  1385.   s:string;
  1386. begin
  1387.   if (RichEdit.GetTextLen=0) or (not RichEdit.WordWrap) then Exit;
  1389.   Application.ProcessMessages;
  1391.   n:=RichEdit.Lines.Count-1;
  1392.   with TProgressBar.Create(self) do
  1393.   begin
  1394.     Parent:=StatusBar;
  1395.     Align:=alClient;
  1396.     Max:=n;
  1397.     StatusBar.Update;
  1398.     Screen.Cursor:=crHourGlass;
  1399.     RichEdit.Perform(WM_SETREDRAW,0,0);  //禁止重绘
  1400.     for i:=0 to n do
  1401.     begin
  1402.       s:=RichEdit.Lines[i];
  1403.       if s<>'' then RichEdit.Lines[i]:=Format('%s'#13#10,[s]);
  1404.       Position:=i;
  1405.     end;
  1406.     RichEdit.Perform(WM_SETREDRAW,-1,0);
  1407.     RichEdit.Refresh;
  1408.     Screen.Cursor:=crDefault;
  1409.     Free;
  1410.   end;
  1411. end;
  1412. //Gb To Big5转换--------------------------------------------------------
  1413. procedure TSrmForm.GbToBigMenuItemClick(Sender: TObject);
  1414. var
  1415.   Buf:pchar;
  1416.   n:integer;
  1417. begin
  1418.   n:=RichEdit.GetTextLen+1;
  1419.   GetMem(Buf,n);
  1420.   RichEdit.GetTextBuf(Buf,n);
  1421.   GbToBig(Buf);
  1422.   RichEdit.SetTextBuf(Buf);
  1423.   FreeMem(Buf);
  1424. end;
  1425. //Big5 To Gb转换--------------------------------------------------------
  1426. procedure TSrmForm.BigToGbMenuItemClick(Sender: TObject);
  1427. var
  1428.   Buf:pchar;
  1429.   n:integer;
  1430. begin
  1431.   n:=RichEdit.GetTextLen+1;
  1432.   GetMem(Buf,n);
  1433.   RichEdit.GetTextBuf(Buf,n);
  1434.   BigToGb(Buf);
  1435.   RichEdit.SetTextBuf(Buf);
  1436.   FreeMem(Buf);
  1437. end;
  1440. //****************************************************************
  1441. //工具栏显示---------------------------------------------------------
  1442. procedure TSrmForm.ToolsMenuItemClick(Sender: TObject);
  1443. begin
  1444. //
  1445. end;
  1446. //状态栏显示---------------------------------------------------------
  1447. procedure TSrmForm.StatusMenuItemClick(Sender: TObject);
  1448. var
  1449.   tmp:boolean;
  1450. begin
  1451.   tmp:=not StatusMenuItem.Checked;
  1452.   StatusMenuItem.Checked:=tmp;
  1453.   StatusBar.Visible:=tmp;
  1454. end;
  1455. //视图栏显示---------------------------------------------------------
  1456. procedure TSrmForm.TitleMenuItemClick(Sender: TObject);
  1457. var
  1458.   tmp:boolean;
  1459. begin
  1460.   tmp:=not TitleMenuItem.Checked;
  1461.   TitleMenuItem.Checked:=tmp;
  1462.   TitleToolButton.Down:=tmp;
  1463.   Splitter.Visible:=tmp;
  1464.   LeftForm.Visible:=tmp;
  1465. end;
  1466. //只读控制-----------------------------------------------------------
  1467. procedure TSrmForm.ReadOnlyMenuItemClick(Sender: TObject);
  1468. var
  1469.   tmp:boolean;
  1470. begin
  1471.   tmp:=not ReadOnlymenuItem.Checked;
  1472.   ReadOnlyMenuItem.Checked:=tmp;
  1473.   ReadOnlyToolButton.Down:=tmp;
  1474.   RichEdit.ReadOnly:=tmp;
  1475. end;
  1476. //自动换行------------------------------------------------------------
  1477. procedure TSrmForm.WordWrapMenuItemClick(Sender: TObject);
  1478. var
  1479.   tmp:boolean;
  1480. begin
  1481.   tmp:=not WordWrapMenuItem.Checked;
  1482.   WordWrapMenuItem.checked:=tmp;
  1483.   WordWrapToolButton.Down:=tmp;
  1484.   RichEdit.WordWrap:=tmp;
  1485. end;
  1486. //放大字体------------------------------------------------------------
  1487. procedure TSrmForm.BigFontMenuItemClick(Sender: TObject);
  1488. begin
  1489.   with RichEdit.Font do Size:=Size+1;
  1490. end;
  1491. //缩小字体--------------------------------------------------------------
  1492. procedure TSrmForm.SmallFontMenuItemClick(Sender: TObject);
  1493. begin
  1494.   with RichEdit.Font do Size:=Size-1;
  1495. end;
  1496. //选项设置--------------------------------------------------------------
  1497. procedure TSrmForm.OptionsMenuItemClick(Sender: TObject);
  1498. begin
  1499.   with TOptionForm.Create(self) do
  1500.   begin
  1501.     if ShowModal=mrOk then
  1502.     begin
  1503.       SetOpenSrmWithApp(SrmCheckBox.Checked);
  1504.       Mru.Visible:=FileListCheckBox.Checked;
  1505.       MyLoveMenuItem.Visible:=MyLoveCheckBox.Checked;
  1506.       MyLoveNextMenuItem.Visible:=MyLoveCheckBox.Checked;
  1507.       with AppIni do
  1508.       begin
  1509.         OpenSrmWithApp:=SrmCheckBox.Checked;
  1510.         LoadNearFile:=LoadSrmCheckBox.Checked;
  1511.         FileListVisible:=FileListCheckBox.checked;
  1512.         MyLoveVisible:=MyLoveCheckBox.Checked;
  1513.         SaveDbQuery:=SaveCheckBox.Checked;
  1514.         DelRecordQuery:=DelCheckBox.Checked;
  1515.         MyLoveFile:=MyLoveEdit.Text;
  1516.       end;
  1517.       TreeView.Color:=TvShape.Brush.Color;
  1518.       RichEdit.Color:=ReShape.Brush.Color;
  1519.       TreeView.Font:=TvLabel.Font;
  1520.       RichEdit.Font:=ReLabel.Font;
  1521.     end;
  1522.     Free;
  1523.   end;
  1524.   MyLoveMenuItem.Enabled:=AppIni.MyLoveFile<>'';
  1525. end;
  1531. //****************************************************************
  1532. //添加新节点----------------------------------------------------------
  1533. procedure TSrmForm.AddNodeMenuItemClick(Sender: TObject);
  1534. var
  1535.   ANode:TTreeNode;
  1536.   Id:integer;
  1537. begin
  1538.   ANode:=TreeView.Items.AddObjectFirst(TreeView.Selected,csNewDefaultTitle,
  1539.                                        pointer(-1));
  1540.   ANode.ImageIndex:=2;
  1541.   if ANode.Parent=nil then Id:=0 else Id:=integer(ANode.Parent.ItemId);
  1542.   SendMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);   //自动排序当前同级标题
  1543.   TreeView.Selected:=ANode;
  1545.   ANode.EditText;
  1546.   StatusBar.Refresh;
  1547.   Srm.ItemDataChanged:=true;
  1548. end;
  1549. //添加新子节点--------------------------------------------------------
  1550. procedure TSrmForm.AddSubNodeMenuItemClick(Sender: TObject);
  1551. var
  1552.   ANode:TTreeNode;
  1553.   Id:integer;
  1554. begin
  1555.   ANode:=TreeView.Items.AddChildObjectFirst(TreeView.Selected,csNewDefaultTitle,
  1556.                                             pointer(-1));
  1557.   ANode.ImageIndex:=2;
  1558.   ANode.Parent.ImageIndex:=1;
  1559.   if ANode.Parent=nil then Id:=0 else Id:=integer(ANode.Parent.ItemId);
  1560.   SendMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  1561.   TreeView.Selected:=ANode;
  1562.   ANode.EditText;
  1563.   StatusBar.Refresh;
  1564.   Srm.ItemDataChanged:=true;
  1565. end;
  1566. //编辑节点-------------------------------------------------------------
  1567. procedure TSrmForm.EditNodeMenuItemClick(Sender: TObject);
  1568. begin
  1569. if TreeView.Selected <>nil then
  1570. begin
  1571.   TreeView.Selected.EditText;
  1572.   Srm.IndexChanged:=true;
  1573. end;
  1574. end;
  1575. //删除节点-------------------------------------------------------------
  1576. procedure TSrmForm.DelNodeMenuItemClick(Sender: TObject);
  1577. begin
  1578.   if AppIni.DelRecordQuery then
  1579.     if Application.MessageBox(csDeleteQuery,
  1580.            csAppName,MB_OKCANCEL or MB_ICONWARNING)<>IDOK then exit;
  1581.   TreeView.Selected.Delete;
  1582.   StatusBar.Refresh;
  1583.   Srm.IndexChanged:=true;
  1584. end;
  1585. //节点排序--------------------------------------------------------------
  1586. procedure TSrmForm.SortMenuItemClick(Sender: TObject);
  1587. begin
  1588.   Screen.Cursor:=crHourGlass;
  1589.   Application.ProcessMessages;
  1591.   TreeView.SortType:=stText;
  1592.   TreeView.AlphaSort;
  1593.   TreeView.SortType:=stNone;
  1594.   Srm.IndexChanged:=true;
  1595.   Screen.Cursor:=crDefault;
  1596. end;
  1597. //压缩数据库------------------------------------------------------------
  1598. procedure TSrmForm.CompressMenuItemClick(Sender: TObject);
  1599. var
  1600.   i,n:integer;
  1601.   Ms,Msh,Msd:TMemoryStream;
  1602.   ASrm:TSrmObject;
  1603.   AFileName,AoldFileName:string;
  1604.   ABuf:array[0..260] of char;
  1605.   ANode:TTreeNode;
  1606.   pBuf:PTreeData;
  1607. begin
  1608.   if Srm=nil then exit;  //如果没有打开的数据库则退出
  1610.   AOldFileName:=Srm.FileName;
  1611.   SaveSrm;
  1613.   GetTempFileName(pchar(ExtractFileDir(Srm.FileName)),'tmp',0,@ABuf[0]);
  1614.   AFileName:=string(ABuf);
  1615.   Ms:=TMemoryStream.Create;
  1616.   Msh:=TMemoryStream.Create;
  1617.   Msd:=TMemoryStream.Create;
  1618.   TreeView.SaveToStream(Msh);
  1619.   Msd.SetSize(sizeof(TTreeData)*TreeView.Items.Count);
  1620.   pBuf:=Msd.Memory;
  1621.   ASrm:=TSrmObject.Create(AFileName,fmCreate);
  1622.   n:=TreeView.Items.Count-1;
  1623.   ANode:=TreeView.Items.GetFirstNode;
  1624.   Screen.Cursor:=crHourGlass;
  1625.   Application.ProcessMessages;
  1627.   with TProgressBar.Create(self) do
  1628.   begin
  1629.     Parent:=StatusBar;
  1630.     Align:=alClient;
  1631.     Max:=n;
  1632.     StatusBar.Update;
  1633.     for i:=0 to n do
  1634.     begin
  1635.       Position:=i;
  1636.       Srm.ReadItemHead(integer(ANode.Data));
  1637.       Srm.ReadItemData(Ms);
  1638.       ASrm.DataHead:=Srm.DataHead;
  1639.       pBuf^.Pos:=ASrm.AddItemHead;
  1640.       if ANode.GetFirstChild<>nil then pBuf^.DataType:=1
  1641.       else pBuf^.DataType:=ANode.ImageIndex;
  1642.       ASrm.AddItemData(Ms);
  1643.       pBuf:=PTreeData(integer(pBuf)+sizeof(TTreeData));
  1644.       ANode:=ANode.GetNext;
  1645.     end;
  1646.     ASrm.FileHead:=Srm.FileHead;
  1647.     ASrm.SaveIndex(Msh,Msd);
  1648.     ASrm.SaveSrmFile;
  1649.     Free;
  1650.   end;
  1652.   Screen.Cursor:=crDefault;
  1653.   ASrm.Free;
  1654.   Ms.Free;
  1655.   Msh.Free;
  1656.   Msd.Free;
  1658.   CloseSrm;
  1659.   DeleteFile(AOldFileName);
  1660.   MoveFile(pchar(AFileName),pchar(AOldFileName));
  1661.   OpenSrm(AOldFileName);
  1663.   StatusBar.Refresh;
  1664. end;
  1665. //升级2.x版数据库-------------------------------------------------------
  1666. procedure TSrmForm.CovertMenuItemClick(Sender: TObject);
  1667. var
  1668.   Fn: string;
  1669.   F2,F3:integer;
  1670.   FTv:TTreeView;
  1671.   IdxBuf:PIntArray;
  1672.   Ms,Msh,Msd:TMemoryStream;
  1673.   i,n,size:integer;
  1674.   FSrm:TSrmObject;
  1675.   ANode:TTreeNode;
  1676. begin
  1677.   if CloseSrmQuery then CloseSrm else exit;  //关闭打开的数据文件
  1678.   //得打开文件名和要保存的文件名
  1679.   with OpenDialog do
  1680.   begin
  1681.     DefaultExt:=csTreExt;
  1682.     Filter:=csOldFilter;
  1683.     Title:=csOpenTitle;
  1684.   end;
  1685.   with SaveDialog do
  1686.   begin
  1687.     DefaultExt:=csSrmExt;
  1688.     Filter:=csSrmFilter;
  1689.     Title:=csSaveAsTitle;
  1690.   end;
  1691.   if not OpenDialog.Execute then Exit;
  1692.   if not SaveDialog.Execute then Exit;
  1693.   //旧数据文件不完整时
  1694.   Fn:=OpenDialog.FileName;
  1695.   Delete(Fn,Length(Fn)-2,3);
  1696.   if not (FileExists(Fn+csTreExt) and
  1697.           FileExists(Fn+csIdxExt) and
  1698.           FileExists(Fn+csDatExt)) then
  1699.   begin
  1700.     Application.MessageBox(csOldFileError,csAppName,MB_OK+MB_ICONSTOP);
  1701.     exit;
  1702.   end;
  1704.   FSrm:=TSrmObject.Create(SaveDialog.FileName,fmCreate);
  1705.   Ms:=TMemoryStream.Create;
  1706.   Msh:=TMemoryStream.Create;
  1707.   Msd:=TMemoryStream.Create;
  1708.   //装入标题到隐藏的视图中
  1709.   FTv:=TTreeView.Create(self);
  1710.   FTv.Parent:=self;
  1711.   FTv.Visible:=false;
  1712.   FTv.LoadFromFile(Fn+csTreExt);
  1713.   ANode:=FTv.Items.GetFirstNode;
  1714.   //读入索引
  1715.   GetMem(IdxBuf,sizeof(integer)*FTv.Items.Count);
  1716.   Msd.SetSize(sizeof(TTreeData)*FTv.Items.Count);
  1717.   F2:=FileOpen(Fn+csIdxExt,fmOpenRead);
  1718.   FileRead(F2,IdxBuf^,sizeof(integer)*FTv.Items.Count);
  1720.   F3:=FileOpen(Fn+csDatExt,fmOpenRead);
  1722.   n:=FTv.Items.Count-1;
  1723.   Screen.Cursor:=crHourGlass;
  1724.   Application.ProcessMessages;
  1725.   with TProgressBar.Create(self) do
  1726.   begin
  1727.     Parent:=StatusBar;
  1728.     Align:=alClient;
  1729.     Max:=n;
  1730.     StatusBar.Update;
  1732.     for i:=0 to n do
  1733.     begin
  1734.       Position:=i;
  1735.       //置数据段头缺省值
  1736.       with FSrm.DataHead do
  1737.       begin
  1738.         Author[0]:=#0;
  1739.         Password[0]:=#0;
  1740.         SearchKey[0]:=#0;
  1741.         Keep:=0;
  1742.         PubDate:=Now;
  1743.         if (ANode.GetFirstChild<>nil) then
  1744.           DataType:=1
  1745.         else
  1746.           DataType:=2;
  1747.         if IdxBuf^[i]=-1 then
  1748.           Num:=0
  1749.         else
  1750.           Num:=1;
  1751. //          Num:=0;
  1752.       end;
  1753.       PTdArray(Msd.Memory)^[i].DataType:=FSrm.DataHead.DataType;
  1754.       PTdArray(Msd.Memory)^[i].Pos:=FSrm.AddItemHead;
  1755.       //读入数据内容
  1756.       if IdxBuf^[i]<>-1 then
  1757.       begin
  1758.         FileSeek(F3,IdxBuf^[i],0);
  1759.         FileRead(F3,size,sizeof(integer));
  1760.         Ms.SetSize(size);
  1761.         FileRead(F3,Ms.Memory^,size);
  1762.         FSrm.AddItemData(Ms);
  1763.       end;
  1764.       ANode:=ANode.GetNext;
  1765.     end;
  1766.     Free;
  1767.   end;
  1768.   Screen.Cursor:=crDefault;
  1769.   //保存新文件索引
  1770.   FTv.SaveToStream(Msh);
  1771.   FSrm.SaveIndex(Msh,Msd);
  1772.   FSrm.SaveSrmFile;
  1773.   //释放内存
  1774.   FreeMem(IdxBuf);
  1775.   FileClose(F2);
  1776.   FileClose(F3);
  1777.   FTv.Free;
  1778.   Ms.Free;
  1779.   Msd.Free;
  1780.   Msh.Free;
  1781.   FSrm.Free;
  1782.   OpenSrm(SaveDialog.FileName);
  1783.   Mru.Add(SaveDialog.FileName);
  1784. end;
  1788. //****************************************************************
  1789. //关于本软件----------------------------------------------------------
  1790. procedure TSrmForm.AboutMenuItemClick(Sender: TObject);
  1791. begin
  1792.   with TAboutForm.Create(self) do
  1793.   begin
  1794.     ShowModal;
  1795.     Free;
  1796.   end;
  1797. end;
  1798. //帮助文件----------------------------------------------------------
  1799. procedure TSrmForm.ReadmeMenuItemClick(Sender: TObject);
  1800. var
  1801.   TmpStr :string;
  1802. begin
  1803.   TmpStr:=Application.ExeName;
  1804.   Delete(TmpStr,Length(TmpStr)-2,3);
  1805.   TmpStr:=TmpStr+csHlpExt;
  1806.   if Sender is TWinControl then
  1807.   begin
  1808.     if TWinControl(Sender).HelpContext=0 then
  1809.       WinHelp(Application.Handle,pchar(TmpStr),HELP_CONTEXT,10)
  1810.     else
  1811.       WinHelp(Application.Handle,pchar(TmpStr),HELP_CONTEXT,
  1812.               TWinControl(Sender).HelpContext);
  1813.   end
  1814.   else
  1815.       WinHelp(Application.Handle,pchar(TmpStr),HELP_CONTEXT,10);
  1816. end;
  1817. //作者主页----------------------------------------------------------
  1818. procedure TSrmForm.HomePageMenuItemClick(Sender: TObject);
  1819. begin
  1820.   ShellExecute(Application.Handle,nil,csHomePage,nil,nil,SW_SHOWNORMAL);
  1821. end;
  1822. //作者邮件----------------------------------------------------------
  1823. procedure TSrmForm.EMailMenuItemClick(Sender: TObject);
  1824. begin
  1825.   ShellExecute(Application.Handle,nil,csEMail,nil,nil,SW_SHOWNORMAL);
  1826. end;
  1827. //技术支持----------------------------------------------------------
  1828. procedure TSrmForm.OtherMenuItemClick(Sender: TObject);
  1829. begin
  1830.   Application.MessageBox(csTechniqueSupport,csAppName,MB_OK+MB_ICONSTOP);
  1831. end;
  1836. //****************************************************************
  1839. //弹出文件菜单时-----------------------------------------
  1840. procedure TSrmForm.FileMenuItemClick(Sender: TObject);
  1841. begin
  1842.   if Srm=nil then    //没有打开的数据库时
  1843.   begin
  1844.     SaveMenuItem.Enabled:=false;
  1845.     CloseMenuItem.Enabled:=false;
  1846.     FImportMenuItem.Enabled:=false;
  1847.     DImportMenuItem.Enabled:=false;
  1848.   end
  1849.   else
  1850.   begin
  1851.     SaveMenuItem.Enabled:=true;
  1852.     CloseMenuItem.Enabled:=true;
  1853.     FImportMenuItem.Enabled:=true;
  1854.     DImportMenuItem.Enabled:=true;
  1855.     end;
  1857.   if TreeView.Selected=nil then   //没有被选择的标题时
  1858.   begin
  1859.     ExportMenuItem.Enabled:=false;
  1860.     PrintMenuItem.Enabled:=false;
  1861.   end
  1862.   else
  1863.   begin
  1864.     ExportMenuItem.Enabled:=true;
  1865.     PrintMenuItem.Enabled:=true;
  1866.   end;
  1867. end;
  1868. //弹出编辑菜单时---------------------------------------------
  1869. procedure TSrmForm.EditMenuItemClick(Sender: TObject);
  1870. begin
  1871.   if RichEdit.SelLength=0 then  //没有被选择的文本时
  1872.   begin
  1873.     CutMenuItem.Enabled:=false;
  1874.     CopyMenuItem.Enabled:=false;
  1875.   end
  1876.   else
  1877.   begin
  1878.     CutMenuItem.Enabled:=true;
  1879.     CopyMenuItem.Enabled:=true;
  1880.   end;
  1881.   if RichEdit.Modified=false then  //内容还未被修改过时
  1882.   begin
  1883.     UndoMenuItem.Enabled:=false;
  1884.     RedoMenuItem.Enabled:=false;
  1885.   end
  1886.   else
  1887.   begin
  1888.     UndoMenuItem.Enabled:=true;
  1889.     RedoMenuItem.Enabled:=true;
  1890.   end;
  1891.   OpenClipboard(Handle);
  1892.   if GetClipboardData(CF_TEXT)=0 then  //剪贴板中没有文本时
  1893.     PasteMenuItem.Enabled:=false
  1894.   else
  1895.     PasteMenuItem.enabled:=true;
  1896.   CloseClipboard;
  1897.   if RichEdit.SelLength>=RichEdit.GetTextLen then
  1898.     SelAllMenuItem.Enabled:=false
  1899.   else
  1900.     SelAllMenuItem.Enabled:=true;
  1901. end;
  1903. //数据库属性编辑框有变动时--------------------------------------
  1904. procedure TSrmForm.DbAuthorEditChange(Sender: TObject);
  1905. begin
  1906.   if LeftPageControl.ActivePage=PropertiyTabSheet then
  1907.     Srm.DbChanged:=true;
  1908. end;
  1909. //标题属性编辑框有变动时----------------------------------------
  1910. procedure TSrmForm.ContextAuthorEditChange(Sender: TObject);
  1911. begin
  1912.   if RightPageControl.ActivePage=ProTabSheet then
  1913.     Srm.ItemHeadChanged:=true;
  1914. end;
  1916. procedure TSrmForm.ContextTypeRadioGroupClick(Sender: TObject);
  1917. begin
  1918.   if RightPageControl.ActivePage=ProTabSheet then
  1919.   begin
  1920.     Srm.DbChanged:=true;
  1921.     if TreeView.Selected<>nil then
  1922.       TreeView.Selected.ImageIndex:=ContextTypeRadioGroup.ItemIndex+1;
  1923.     Srm.ItemHeadChanged:=true;
  1924.     Srm.IndexChanged:=true;
  1925.   end;
  1926. end;
  1928. //上一标题-------------------------------------------------
  1929. procedure TSrmForm.PrevSpeedButtonClick(Sender: TObject);
  1930. begin
  1931. if   LeftPageControl.ActivePage=IndexTabsheet then
  1932. begin
  1933.   if TreeView.Selected=nil then exit;
  1934.   if TreeView.Selected.GetPrev<>nil then
  1935.     TreeView.Selected:=TreeView.Selected.GetPrev;
  1936. end
  1937. else
  1938. if LeftPageControl.ActivePage=SearchTabSheet then
  1939. begin
  1940. if SearchListBox.ItemIndex<>0 then
  1941. SearchListBox.ItemIndex:=SearchListBox.itemIndex-1;
  1942. TreeView.Selected := TreeView.Items[LongInt(SearchListBox.Items.objects
  1943. [SearchListBox.ItemIndex])]
  1944. end;
  1945. end;
  1946. //下一标题-------------------------------------------------
  1947. procedure TSrmForm.NextSpeedButtonClick(Sender: TObject);
  1948. begin
  1949. if   LeftPageControl.ActivePage=IndexTabsheet then
  1950. begin
  1951.   if TreeView.Selected=nil then exit;
  1952.   if TreeView.Selected.GetNext<>nil then
  1953.     TreeView.Selected:=TreeView.Selected.GetNext;
  1954. end
  1955. else
  1956. if LeftPageControl.ActivePage=SearchTabSheet then
  1957. begin
  1959. SearchListBox.ItemIndex:=SearchListBox.itemIndex+1;
  1960. TreeView.Selected := TreeView.Items[LongInt(SearchListBox.Items.objects
  1961. [SearchListBox.ItemIndex])];
  1962. end;
  1963. end;
  1969. //编辑框有变动时------------------------------------------
  1970. procedure TSrmForm.RichEditChange(Sender: TObject);
  1971. type
  1972.   TTextRange = record
  1973.     chrg: TCharRange;
  1974.     lpstrText: PChar;
  1975.   end;
  1976. var
  1977.   Idx:integer;
  1978.   Tr:TTextRange;
  1979.   s:string;
  1980. begin
  1981.   if RichEdit.SelStart=0 then exit;
  1982.   Idx:=RichEdit.SelStart-1;
  1983.   Tr.chrg.cpMin:=RichEdit.Perform(EM_FINDWORDBREAK,WB_LEFTBREAK,Idx);
  1984.   Tr.chrg.cpMax:=RichEdit.Perform(EM_FINDWORDBREAK,WB_RIGHTBREAK,Idx);
  1985.   if Tr.chrg.cpMin<Tr.chrg.cpMax then
  1986.   begin
  1987.       SetLength(s,Tr.chrg.cpMax-Tr.chrg.cpMin);
  1988.       Tr.lpstrText:= @S[1];
  1989.       RichEdit.Perform(EM_GETTEXTRANGE, 0, Integer(@Tr));
  1990.       s:=LowerCase(s);
  1991.       if s='http://' then
  1992.       begin
  1993.         RichEdit.Perform(EM_HIDESELECTION,1,1);
  1994.         RichEdit.Perform(EM_SETSEL,Tr.chrg.cpMin,Tr.chrg.cpMax);
  1995.         RichEdit.SelAttributes.Color:=clRed;
  1996.         RichEdit.Perform(EM_HIDESELECTION,0,0);
  1997.       end;
  1998.   end;
  1999. //  RichEdit.
  2000.   StatusBar.Refresh;
  2001. end;
  2002. //编辑框有按键事件时
  2003. procedure TSrmForm.RichEditKeyDown(Sender: TObject; var Key: Word;
  2004.   Shift: TShiftState);
  2005. //var
  2006. //  a:word;
  2007. begin
  2008. {
  2009.   a:=GetKeyboardLayout(0);
  2010.   if a<>$804 then                                       //如果不是中文输入法
  2011.     RichEdit.DefAttributes.CharSet:=RichEdit.Font.CharSet; //置当前字体为原字体
  2012. }
  2013. end;
  2015. procedure TSrmForm.ControlBarDockOver(Sender: TObject;
  2016.   Source: TDragDockObject; X, Y: Integer; State: TDragState;
  2017.   var Accept: Boolean);
  2018. begin
  2019.   Accept := (Source.Control is TToolBar);
  2020. end;
  2022. procedure TSrmForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  2023.   Shift: TShiftState);
  2024. var i:integer;
  2025. begin
  2026. if integer(key)=13 then     //＊如果是回车的话
  2027. begin
  2028. SearchListBox.Items.Clear;
  2029. for i:=0 to TreeView.Items.Count-1 do
  2030.    begin
  2031.  if Pos(Lowercase(edit1.Text),Lowercase(TreeView.Items[i].Text))<>0 then
  2032. SearchListBox.items.AddObject(TreeView.Items[i].Text,TObject(i));
  2033.  //＊查找，把节点号也加入到STRINGS类中去！
  2034. end;
  2035. LeftPageControl.ActivePage :=SearchTabSheet;
  2036. RichEdit.Lines.Clear;
  2037. end;
  2038. end;
  2040. procedure TSrmForm.SearchListBoxClick(Sender: TObject);
  2041. begin
  2042. TreeView.Selected := TreeView.Items[LongInt(SearchListBox.Items.objects[SearchListBox.ItemIndex])];
  2043. end;
  2045. end.