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

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

行业应用

开发平台：

Delphi

MainUnit.~pas：源码内容
  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.     procedure FormShow(Sender: TObject);
  242.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  243.     procedure FormDestroy(Sender: TObject);
  244.     procedure FormCreate(Sender: TObject);
  245.     procedure StatusBarDrawPanel(StatusBar: TStatusBar;
  246.       Panel: TStatusPanel; const Rect: TRect);
  247.     procedure NewMenuItemClick(Sender: TObject);
  248.     procedure CovertMenuItemClick(Sender: TObject);
  249.     procedure OpenMenuItemClick(Sender: TObject);
  250.     procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
  251.     procedure CloseMenuItemClick(Sender: TObject);
  252.     procedure SaveMenuItemClick(Sender: TObject);
  253.     procedure TreeViewEdited(Sender: TObject; Node: TTreeNode;
  254.       var S: String);
  255.     procedure FImportMenuItemClick(Sender: TObject);
  256.     procedure ExportMenuItemClick(Sender: TObject);
  257.     procedure PrintMenuItemClick(Sender: TObject);
  258.     procedure ExitMenuItemClick(Sender: TObject);
  259.     procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
  260.       var AllowChange: Boolean);
  261.     procedure UndoMenuItemClick(Sender: TObject);
  262.     procedure RedoMenuItemClick(Sender: TObject);
  263.     procedure CutMenuItemClick(Sender: TObject);
  264.     procedure CopyMenuItemClick(Sender: TObject);
  265.     procedure PasteMenuItemClick(Sender: TObject);
  266.     procedure SelAllMenuItemClick(Sender: TObject);
  267.     procedure FindMenuItemClick(Sender: TObject);
  268.     procedure FindNextMenuItemClick(Sender: TObject);
  269.     procedure ReplaceMenuItemClick(Sender: TObject);
  270.     procedure DelSpaceMenuItemClick(Sender: TObject);
  271.     procedure FindDialogFind(Sender: TObject);
  272.     procedure ReplaceDialogReplace(Sender: TObject);
  273.     procedure ToolsMenuItemClick(Sender: TObject);
  274.     procedure StatusMenuItemClick(Sender: TObject);
  275.     procedure TitleMenuItemClick(Sender: TObject);
  276.     procedure ReadOnlyMenuItemClick(Sender: TObject);
  277.     procedure BigFontMenuItemClick(Sender: TObject);
  278.     procedure SmallFontMenuItemClick(Sender: TObject);
  279.     procedure OptionsMenuItemClick(Sender: TObject);
  280.     procedure AddNodeMenuItemClick(Sender: TObject);
  281.     procedure AddSubNodeMenuItemClick(Sender: TObject);
  282.     procedure EditNodeMenuItemClick(Sender: TObject);
  283.     procedure DelNodeMenuItemClick(Sender: TObject);
  284.     procedure SortMenuItemClick(Sender: TObject);
  285.     procedure CompressMenuItemClick(Sender: TObject);
  286.     procedure MyLoveMenuItemClick(Sender: TObject);
  287.     procedure HomePageMenuItemClick(Sender: TObject);
  288.     procedure AboutMenuItemClick(Sender: TObject);
  289.     procedure ReadmeMenuItemClick(Sender: TObject);
  290.     procedure EMailMenuItemClick(Sender: TObject);
  291.     procedure OtherMenuItemClick(Sender: TObject);
  292.     procedure DImportMenuItemClick(Sender: TObject);
  293.     procedure SetTitlePopMenuItemClick(Sender: TObject);
  294.     procedure TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  295.       State: TDragState; var Accept: Boolean);
  296.     procedure TreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
  297.     procedure CutNodePopMenuItemClick(Sender: TObject);
  298.     procedure CopyNodePopMenuItemClick(Sender: TObject);
  299.     procedure PasteNodePopMenuItemClick(Sender: TObject);
  300.     procedure TreeViewPopupMenuPopup(Sender: TObject);
  301.     procedure RichEditPopupMenuPopup(Sender: TObject);
  302.     procedure FileMenuItemClick(Sender: TObject);
  303.     procedure EditMenuItemClick(Sender: TObject);
  304.     procedure DbAuthorEditChange(Sender: TObject);
  305.     procedure ContextAuthorEditChange(Sender: TObject);
  306.     procedure SetAuthorPopMenuItemClick(Sender: TObject);
  307.     procedure SetIndexPopMenuItemClick(Sender: TObject);
  308.   
  309.     procedure PrevSpeedButtonClick(Sender: TObject);
  310.     procedure NextSpeedButtonClick(Sender: TObject);
  311.     procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  312.       var AllowExpansion: Boolean);
  313.     procedure ContextTypeRadioGroupClick(Sender: TObject);
  314.     procedure RichEditChange(Sender: TObject);
  315.     procedure ListMenuItemClick(Sender: TObject);
  316.     procedure TreeViewCompare(Sender: TObject; Node1, Node2: TTreeNode;
  317.       Data: Integer; var Compare: Integer);
  318.     procedure RichEditKeyDown(Sender: TObject; var Key: Word;
  319.       Shift: TShiftState);
  320.     procedure ControlBarDockOver(Sender: TObject; Source: TDragDockObject;
  321.       X, Y: Integer; State: TDragState; var Accept: Boolean);
  322.     procedure WordWrapMenuItemClick(Sender: TObject);
  323.     procedure CParaMenuItemClick(Sender: TObject);
  324.     procedure DParaMenuItemClick(Sender: TObject);
  325.     procedure GbToBigMenuItemClick(Sender: TObject);
  326.     procedure BigToGbMenuItemClick(Sender: TObject);
  327.   private
  328.     { Private declarations }
  329.     procedure MyShowHint(Sender:TObject); //应用程序提示函数
  330.   public
  331.     { Public declarations }
  332.   end;
  334. var
  335.   SrmForm: TSrmForm;
  336.   PanelHint:string;                  //在线提示
  337.   Srm: TSrmObject;   //Srm读写类
  340. implementation
  342. uses SrmAbout, InputPw, SrmOption, MainFun, RegUnit, MruUnit, ClipUnit,
  343.   GbBig;
  346. {$R *.DFM}
  348. //****************************************************************
  349. procedure TSrmForm.MyShowHint(Sender:TObject);
  350. begin
  351.   PanelHint:=GetLongHint(Application.Hint);
  352.   SrmForm.StatusBar.Refresh;
  353. end;
  354. //****************************************************************
  355. //窗体新建前----------------------------------------------------------------
  356. procedure TSrmForm.FormCreate(Sender: TObject);
  357. var
  358.   i:integer;
  359. begin
  360.   //变量初始化
  361.   SrmClip:=TSrmClip.Create;  //初始化自身剪贴板
  362.   AppIni:=TAppIni.Create;   //读入配置信息和状态信息
  364.   Mru:=TMru.Create;              //文件菜单的设置
  365.   Mru.ParentMenu:=FileMenuItem;
  366.   Mru.Position:=11;
  367.   Mru.Visible:=AppIni.FileListVisible;
  368.   for i:=4 downto 0 do Mru.Add(AppIni.FileList[i]);
  369.   MyLoveMenuItem.Enabled:=AppIni.MyLoveFile<>'';
  370.   MyLoveMenuItem.Visible:=AppIni.MyLoveVisible;
  371.   MyLoveNextMenuItem.Visible:=Appini.MyLoveVisible;
  373.   if ParamCount=1 then
  374.   begin
  375.     OpenSrm(ParamStr(1)); //带文件名参数运行时
  376.     exit;
  377.   end;
  378.   if AppIni.LoadNearFile then        //如果允许打开上次关闭时的文件
  379.     if AppIni.NearFile<>'' then        //否则打开上次关闭时的文件
  380.       if FileExists(AppIni.NearFile) then  //文件存在时
  381.       begin
  382.         OpenSrm(AppIni.NearFile);
  383.         if Srm<>nil then Caption:=csAppName+' - '+Srm.FileName;
  384.       end;
  385.   Application.OnHint:=MyShowHint;
  386. end;
  387. //窗体显示前----------------------------------------------------------------
  388. procedure TSrmForm.FormShow(Sender: TObject);
  389. begin
  390. //
  391. end;
  392. //窗体关闭前----------------------------------------------------------------
  393. procedure TSrmForm.FormClose(Sender: TObject; var Action: TCloseAction);
  394. begin
  395.   if Srm<>nil then
  396.     AppIni.NearFile:=Srm.FileName
  397.   else
  398.     AppIni.NearFile:='';
  399.   if CloseSrmQuery then
  400.     CloseSrm
  401.   else
  402.   begin
  403.     Action:=caNone;
  404.     exit;
  405.   end;
  406.   Action:=caFree;
  407. end;
  408. //窗体释放前----------------------------------------------------------------
  409. procedure TSrmForm.FormDestroy(Sender: TObject);
  410. var
  411.   i:integer;
  412. begin
  413.   for i:=0 to 4 do AppIni.FileList[i]:=Mru.FileList[i];
  414.   Mru.Free;
  415.   AppIni.Free;
  416.   SrmClip.Free;
  417. end;
  420. //****************************************************************
  421. //查找文本---------------------------------------------------------------
  422. procedure TSrmForm.FindDialogFind(Sender: TObject);
  423. var
  424.   FoundAt,StartPos,ToEnd:integer;
  425.   SearchFlag:TSearchTypes;
  426. begin
  427.   if frMatchCase in FindDialog.Options then
  428.     SearchFlag:=SearchFlag+[stMatchCase];
  429.   if frWholeWord in FindDialog.Options then
  430.     SearchFlag:=SearchFlag+[stWholeWord];
  431.   StartPos:=RichEdit.SelStart+RichEdit.SelLength;
  432.   ToEnd:=Length(RichEdit.Text)-StartPos;
  433.   FoundAt:=RichEdit.FindText(FindDialog.FindText,StartPos,ToEnd,
  434.                              SearchFlag);
  435.   if FoundAt<>-1 then
  436.   begin
  437.     RichEdit.SetFocus;
  438.     RichEdit.SelStart:=FoundAt;
  439.     RichEdit.SelLength:=Length(FindDialog.FindText);
  440.   end
  441.   else
  442.   begin
  443.     MessageBox(Handle,csFindError,csAppName,MB_OK or MB_ICONWARNING);
  444.   end;
  445. end;
  446. //替换文本---------------------------------------------------------------
  447. procedure TSrmForm.ReplaceDialogReplace(Sender: TObject);
  448. var
  449.   FoundAt,StartPos,ToEnd:integer;
  450.   SearchFlag:TSearchTypes;
  451. begin
  452.   if frMatchCase in ReplaceDialog.Options then
  453.     SearchFlag:=SearchFlag+[stMatchCase];
  454.   if frWholeWord in ReplaceDialog.Options then
  455.     SearchFlag:=SearchFlag+[stWholeWord];
  456.   StartPos:=0;
  457.   ToEnd:=Length(RichEdit.Text)-StartPos;
  459.   if frReplace in ReplaceDialog.Options then
  460.   begin
  461.     StartPos:=RichEdit.SelStart+RichEdit.SelLength;
  462.     FoundAt:=RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,
  463.                                SearchFlag);
  464.     if FoundAt<>-1 then
  465.     begin
  466.       RichEdit.SetFocus;
  467.       RichEdit.SelStart := FoundAt;
  468.       RichEdit.SelLength := Length(ReplaceDialog.FindText);
  469.       RichEdit.SelText := ReplaceDialog.ReplaceText;
  470.       RichEdit.SelStart := FoundAt;
  471.       RichEdit.SelLength := Length(ReplaceDialog.ReplaceText);
  472.     end
  473.     else
  474.     begin
  475.       MessageBox(Handle,csFindError,csAppName,MB_OK or MB_ICONWARNING);
  476.     end;
  477.   end
  478.   else if frReplaceAll in ReplaceDialog.Options then
  479.   begin
  480.     StartPos:=0;
  481.     FoundAt:=0;
  482.     while FoundAt<>-1 do
  483.     begin
  484.       FoundAt:=RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,
  485.                                  SearchFlag);
  486.       if FoundAt<>-1 then
  487.       begin
  488.         RichEdit.SetFocus;
  489.         RichEdit.SelStart := FoundAt;
  490.         RichEdit.SelLength:=Length(ReplaceDialog.FindText);
  491.         RichEdit.SelText:=ReplaceDialog.ReplaceText;
  492.         StartPos:=FoundAt+Length(ReplaceDialog.Findtext);
  493.         ToEnd:=Length(RichEdit.Text)-StartPos;
  494.       end
  495.       else
  496.       begin
  497.         MessageBox(Handle,csReplaceSucess,csAppName,0);
  498.         break;
  499.       end;
  500.     end;
  501.   end
  502.   else
  503.   begin
  504.     FindDialog.Options:=ReplaceDialog.Options;
  505.     FindDialog.FindText:=ReplaceDialog.FindText;
  506.     FindDialogFind(Sender);
  507.   end;
  508. end;
  511. //****************************************************************
  512. //节点改变前---------------------------------------------------------------
  513. procedure TSrmForm.TreeViewChanging(Sender: TObject; Node: TTreeNode;
  514.   var AllowChange: Boolean);
  515. var
  516.   Ps,UserPs:string;
  517. begin
  518.   AllowChange:=true;
  520.   if Srm=nil then exit;
  521.   SaveItem;
  523.   if Node.Data=pointer(-1) then exit;           //如果是新建节点则不检查口令
  524.   Ps:=Srm.GetItemPassword(integer(Node.Data));  //得要显示标题的口令
  525. {  if Ps<>'' then                                //口令不为空时
  526.   begin
  527.     with TInpwForm.Create(self) do
  528.     begin
  529.       Caption:=csAppName;
  530.       InputLabel.Caption:=csPasswordTitle;
  531.       if ShowModal=mrCancel then
  532.       begin
  533.        AllowChange:=false;
  534.       end;
  535.       UserPs:=Edit.Text;
  536.       if Ps<>UserPs then                        //输入口令不对时
  537.       begin
  538.         if ModalResult<>mrCancel then           //在口令输入框中没按Cancel按钮
  539.           Application.MessageBox(csPasswordError,csAppName,MB_OK);
  540.         AllowChange:=false;                     //不允许转移选择点
  541.       end;
  542.       Free;
  543.     end;
  544.   end; }
  545. end;
  546. //节点改变后---------------------------------------------------------------
  547. procedure TSrmForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
  548. var
  549.   Ms:TMemoryStream;
  550. begin
  552.   if Srm=nil then exit;
  553.   if ((Node=nil) or (integer(Node.Data)=-1)) then  //无效节点或无内容
  554.   begin
  555.     ContextAuthorEdit.Text:='';
  556.     ContextPasswordEdit.Text:='';
  557.     ContextPubDateEdit.Text:=DateToStr(Date);
  558.     ContextIndexEdit.Text:='';
  559.     ContextTypeRadioGroup.ItemIndex:=1;
  560.     RichEdit.Text:='';
  561.     RichEdit.Modified:=false;
  562.     if Node<>nil then
  563.     begin
  564.       Srm.ItemHeadChanged:=true;
  565.       Srm.ItemDataChanged:=true;
  566.     end;
  567.     exit;
  568.   end;
  570.   Srm.ReadItemHead(integer(Node.Data));  //读入标题属性
  571.   case Srm.DataHead.Num of
  572.     0:                //无内容
  573.     begin
  574.       RichEdit.Text:='';
  575.     end;
  576.     1:
  577.     begin
  578.       Ms:=TMemoryStream.Create;
  579.       Srm.ReadItemData(Ms);
  580.       RichEdit.PlainText:=true; //和3.2版兼容
  581.       RichEdit.SetTextBuf(Ms.Memory);
  582.       RichEdit.PlainText:=false;//和3.2版兼容
  583.       Ms.Free;
  584.     end;
  585.   end;
  587.   Node.SelectedIndex:=Node.ImageIndex;  //设置标题属性
  589.   ContextAuthorEdit.Text:=string(Srm.DataHead.Author);
  590.   ContextPasswordEdit.Text:=String(Srm.DataHead.Password);
  591.   ContextPubDateEdit.Text:=DateToStr(Srm.DataHead.PubDate);
  592.   ContextIndexEdit.Text:=string(Srm.DataHead.SearchKey);
  593.   ContextTypeRadioGroup.ItemIndex:=Node.ImageIndex-1;
  594.   TitleLabel.Caption:=Node.Text;
  595.   StatusBar.Refresh;
  597.   RichEdit.Modified:=false;
  598.   Srm.ItemHeadChanged:=false;
  599.   Srm.ItemDataChanged:=false;
  600. end;
  601. //节点被编辑后------------------------------------------------------------
  602. procedure TSrmForm.TreeViewEdited(Sender: TObject; Node: TTreeNode;
  603.   var S: String);
  604. var
  605.   Id:integer;
  606. begin
  607.   S:=FormatTreeNodeString(S);
  608.   if S='' then S:=csNewDefaultTitle;
  609.   if Node.Parent=nil then Id:=0 else Id:=integer(Node.Parent.ItemId);
  610.   PostMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  611.   TitleLabel.Caption:=S;
  612.   Srm.IndexChanged:=true;
  613. end;
  614. //标题排序函数-------------------------------------------------------
  615. procedure TSrmForm.TreeViewCompare(Sender: TObject; Node1,
  616.   Node2: TTreeNode; Data: Integer; var Compare: Integer);
  617. begin
  618.   if Node1.ImageIndex<Node2.ImageIndex then Compare:=-1
  619.   else if Node1.ImageIndex>Node2.ImageIndex then begin Compare:=1 end
  620.   else comPare:=CompareText(Node1.Text,Node2.Text);
  621. end;
  622. //树形视图拖动过程----------------------------------------------------------
  623. procedure TSrmForm.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  624.   State: TDragState; var Accept: Boolean);
  625. Var
  626.    NbPixels:Integer;
  627.    Info:TScrollInfo;
  628. begin
  629.      if Source<>TreeView then   
  630.      begin
  631.        Accept:=false;
  632.        exit;
  633.      end;
  634.      GetScrollInfo(TreeView.Handle,SB_VERT,Info);
  635.      if Info.nMin=Info.nMax then exit;
  636.      NbPixels:=Abs(TreeView.Font.Height);
  638.      if (Y<NbPixels) then
  639.      begin
  640.         TreeView.Perform(WM_VSCROLL,SB_LINEUP,0);
  641.         TreeView.Refresh;
  642.      end;
  644.      if (Y>TreeView.Height-NbPixels-16) then
  645.      begin
  646.         TreeView.Perform(WM_VSCROLL,SB_LINEDOWN,0);
  647.         TreeView.Refresh;
  648.      end;
  649. end;
  650. //树形视图拖动结束----------------------------------------------------------
  651. procedure TSrmForm.TreeViewDragDrop(Sender, Source: TObject; X,
  652.   Y: Integer);
  653. var
  654.   SNode,DNode:TTreeNode;
  655.   Id:integer;
  656. begin
  657.   SNode:=TreeView.Selected;  //得被拖动的标题
  658.   DNode:=TreeView.GetNodeAt(X,Y);  //得坐标处标题
  659.   if DNode<>SNode then
  660.     if DNode=nil then
  661.       SNode.MoveTo(TreeView.Items.GetFirstNode,naAdd)
  662.     else
  663.       SNode.MoveTo(DNode,naAddChild);
  664.   if SNode.Parent=nil then Id:=0 else Id:=integer(SNode.Parent.ItemId);
  665.   SendMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  666.   srm.IndexChanged:=true;      //置索引改变为真
  667. end;
  668. //树形视图拖动结束----------------------------------------------------------
  670. //节点被扩展前------------------------------------------------------------
  671. procedure TSrmForm.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  672.   var AllowExpansion: Boolean);
  673. var
  674.   ps,UserPs:string;
  675. begin
  676.   AllowExpansion:=true;
  678.   if Node.Data=pointer(-1) then exit;
  680.   UserPs:=Srm.GetItemPassword(integer(Node.Data));
  681.   {if UserPs<>'' then
  682.   begin
  683.     with TInpwForm.Create(self) do
  684.     begin
  685.       Caption:=csAppName;
  686.       InputLabel.Caption:=csPasswordTitle;
  687.       if ShowModal=mrCancel then AllowExpansion:=false;
  688.       Ps:=Edit.Text;
  689.       if Ps<>UserPs then
  690.       begin
  691.         if ModalResult<>mrCancel then
  692.           MessageBox(Handle,csPasswordError,csAppName,MB_OK);
  693.         AllowExpansion:=false;
  694.       end;
  695.       Free;
  696.     end;
  697.   end;     }
  698. end;
  700. //设为标题----------------------------------------------------------
  701. procedure TSrmForm.SetTitlePopMenuItemClick(Sender: TObject);
  702. begin
  703.   TreeView.Selected.Text:=FormatTreeNodeString(RichEdit.SelText);
  704.   Srm.IndexChanged:=true;
  705.   TitleLabel.Caption:=TreeView.Selected.Text;
  706. end;
  707. //设为作者----------------------------------------------------------
  708. procedure TSrmForm.SetAuthorPopMenuItemClick(Sender: TObject);
  709. begin
  710.   ContextAuthorEdit.Text:=RichEdit.SelText;
  711.   Srm.ItemHeadChanged:=true;
  712. end;
  713. //设为关键字--------------------------------------------------------
  714. procedure TSrmForm.SetIndexPopMenuItemClick(Sender: TObject);
  715. var
  716.   TmpStr:string;
  717.   p: pchar;
  718. begin
  719.   TmpStr:=RichEdit.SelText;
  720.   if 51<Length(ContextIndexEdit.Text)+RichEdit.SelLength then
  721.   begin
  722.     Application.MessageBox(csIndexError,csAppName,MB_OK);
  723.     exit;
  724.   end;
  725.   p:=pchar(TmpStr);
  726.   while (p^<#33) and (P^<>#0) do inc(p);
  727.   if ContextIndexEdit.Text<>'' then
  728.     if ContextIndexEdit.Text[Length(ContextIndexEdit.Text)]<>'&' then
  729.       ContextIndexEdit.Text:=ContextIndexEdit.Text+'&';
  730.   ContextIndexEdit.Text:=ContextIndexEdit.Text+string(p);
  731.   Srm.ItemHeadChanged:=true;
  732. end;
  733. //编辑框菜单弹出时--------------------------------------------------
  734. procedure TSrmForm.RichEditPopupMenuPopup(Sender: TObject);
  735. begin
  736.   if Srm=nil then
  737.   begin
  738.     CutPopMenuItem.Enabled:=false;
  739.     CopyPopMenuItem.Enabled:=false;
  740.     PastePopMenuItem.Enabled:=false;
  741.     SetTitlePopMenuItem.Enabled:=false;
  742.     SetIndexPopMenuItem.Enabled:=false;
  743.     SelAllPopMenuItem.Enabled:=false;
  744.     SetAuthorPopMenuItem.Enabled:=false;
  745.     DelSpacePopMenuItem.Enabled:=false;
  746.   end
  747.   else
  748.   begin
  749.     OpenClipboard(Handle);
  750.     if GetClipboardData(CF_TEXT)=0 then  //剪贴板中没有文本时
  751.       PastePopMenuItem.Enabled:=false
  752.     else
  753.       PastePopMenuItem.enabled:=true;
  754.     CloseClipboard;
  755.     if RichEdit.SelLength>=RichEdit.GetTextLen then
  756.       SelAllPopMenuItem.Enabled:=false
  757.     else
  758.       SelAllPopMenuItem.Enabled:=true;
  759.     if richEdit.SelLength<>0 then
  760.     begin
  761.       CutPopMenuItem.Enabled:=true;
  762.       CopyPopMenuItem.Enabled:=true;
  763.       SetTitlePopMenuItem.Enabled:=true;
  764.       SetIndexPopMenuItem.Enabled:=true;
  765.       SetAuthorPopMenuItem.Enabled:=true;
  766.     end
  767.     else
  768.     begin
  769.       CutPopMenuItem.Enabled:=false;
  770.       CopyPopMenuItem.Enabled:=false;
  771.       SetTitlePopMenuItem.Enabled:=false;
  772.       SetIndexPopMenuItem.Enabled:=false;
  773.       SetAuthorPopMenuItem.Enabled:=false;
  774.     end;
  775.     DelSpacePopMenuItem.Enabled:=(RichEdit.Text<>'');
  776.   end;
  777. end;
  778. //剪切标题----------------------------------------------------------
  779. procedure TSrmForm.CutNodePopMenuItemClick(Sender: TObject);
  780. begin
  781.   SrmClip.Cut(TreeView.Selected);
  782. end;
  783. //复制标题----------------------------------------------------------
  784. procedure TSrmForm.CopyNodePopMenuItemClick(Sender: TObject);
  785. begin
  786.   SrmClip.Copy(TreeView.Selected);
  787. end;
  788. //粘贴标题----------------------------------------------------------
  789. procedure TSrmForm.PasteNodePopMenuItemClick(Sender: TObject);
  790. begin
  791.   SrmClip.Paste(TreeView.Selected);
  792. end;
  793. //弹出菜单时的动作--------------------------------------------------------
  794. procedure TSrmForm.TreeViewPopupMenuPopup(Sender: TObject);
  795. begin
  796.   if Srm=nil then
  797.   begin
  798.     DelNodePopMenuItem.Enabled:=false;
  799.     EditNodePopMenuItem.Enabled:=false;
  800.     AddSubNodePopMenuItem.Enabled:=false;
  801.     AddNodePopMenuItem.Enabled:=false;
  802.     CutNodePopMenuItem.Enabled:=false;
  803.     CopyNodePopMenuItem.Enabled:=false;
  804.     PasteNodePopMenuItem.Enabled:=false;
  805.     exit;
  806.   end;
  808.   AddNodePopMenuItem.Enabled:=true;
  809.   if TreeView.Selected=nil then
  810.   begin
  811.     DelNodePopMenuItem.Enabled:=false;
  812.     EditNodePopMenuItem.Enabled:=false;
  813.     AddSubNodePopMenuItem.Enabled:=false;
  814.     CutNodePopMenuItem.Enabled:=false;
  815.     CopyNodePopMenuItem.Enabled:=false;
  816.   end
  817.   else
  818.   begin
  819.     DelNodePopMenuItem.Enabled:=true;
  820.     EditNodePopMenuItem.Enabled:=true;
  821.     AddSubNodePopMenuItem.Enabled:=true;
  822.     CutNodePopMenuItem.Enabled:=true;
  823.     CopyNodePopMenuItem.Enabled:=true;
  825.   end;
  826.   if SrmClip.Node=nil then
  827.     PasteNodePopMenuItem.Enabled:=false
  828.   else
  829.     PasteNodePopMenuItem.Enabled:=true;
  830. end;
  834. //****************************************************************
  835. //---------------------------------------------------------------------
  836. procedure TSrmForm.StatusBarDrawPanel(StatusBar: TStatusBar;
  837.   Panel: TStatusPanel; const Rect: TRect);
  838. var
  839.   Text:string;
  840.   Rc:TRect;
  841. begin
  842.   Rc:=Rect;
  843.   Rc.Left:=Rc.Left+3;
  844.   if Panel=StatusBar.Panels[0] then
  845.   begin
  846.     Text:=csPanel1Text+IntToStr(TreeView.Items.Count);
  847.   end;
  848.   if Panel=StatusBar.Panels[1] then
  849.   begin
  850.     Text:=csPanel2Text+IntToStr(RichEdit.GetTextLen);
  851.   end;
  852.   if Panel=StatusBar.Panels[2] then
  853.   begin
  854.     Text:=PanelHint;
  855.   end;
  856.   with StatusBar.Canvas do
  857.   begin
  858.     Brush.Style := bsClear;
  859.     Font := StatusBar.Font;
  860.     Font.Color := clWhite;
  861.     OffsetRect(Rc,5,1);
  862.     DrawText(Handle, PChar(Text), Length(Text), Rc,(DT_VCENTER or DT_SINGLELINE));
  863.     OffsetRect(Rc,-1,-1);
  864.     Font:=StatusBar.Font;
  865.     DrawText(Handle, PChar(Text), Length(Text), Rc,(DT_VCENTER or DT_SINGLELINE));
  866.   end;
  867. end;
  869. //****************************************************************
  870. //新建数据文件-------------------------------------------------------------
  871. procedure TSrmForm.NewMenuItemClick(Sender: TObject);
  872. begin
  873.   with SaveDialog do
  874.   begin
  875.     DefaultExt:=csSrmExt;
  876.     Filter:=csSrmFilter;
  877.     Title:=csCreateTitle;
  878.   end;
  879.   if SaveDialog.Execute then
  880.   begin
  881.     if CloseSrmQuery then CloseSrm else exit;
  882.     Srm:=TSrmObject.Create(SaveDialog.FileName,fmCreate);
  883.     DbAuthorEdit.Text:='';
  884.     DbPasswordEdit.Text:='';
  885.     DbBuildDateEdit.Text:=DateToStr(Srm.FileHead.BuildDate);
  886.     DbeditDateEdit.Text:=DatetoStr(Srm.FileHead.EditDate);
  887.     Caption:=csAppName+' - '+SaveDialog.FileName;
  888.     Mru.Add(SaveDialog.FileName);
  889.   end;
  890. end;
  891. //打开数据文件------------------------------------------------------------
  892. procedure TSrmForm.OpenMenuItemClick(Sender: TObject);
  893. begin
  894.   with OpenDialog do
  895.   begin
  896.     DefaultExt:=csSrmExt;
  897.     Filter:=csSrmFilter;
  898.     Title:=csOpenTitle;
  899.     FileName:='';
  900.   end;
  901.   if OpenDialog.Execute then
  902.   begin
  903.     if CloseSrmQuery then CloseSrm else exit;
  904.     OpenSrm(OpenDialog.FileName);
  905.      if Srm=nil then
  906.       Caption:=csAppName
  907.      else
  908.      begin
  909.        Caption:=csAppName+' - '+OpenDialog.FileName;
  910.        Mru.Add(OpenDialog.FileName);
  911.      end;
  912.   end;
  913. end;
  914. //保存数据文件------------------------------------------------------------
  915. procedure TSrmForm.SaveMenuItemClick(Sender: TObject);
  916. begin
  917.   SaveSrm;
  918. end;
  919. //关闭数据文件------------------------------------------------------------
  920. procedure TSrmForm.CloseMenuItemClick(Sender: TObject);
  921. begin
  922.   if CloseSrmQuery then
  923.   begin
  924.     CloseSrm;
  925.     Caption:=csAppName;
  926.   end;
  927. end;
  928. //文件引入-----------------------------------------------------------------
  929. procedure TSrmForm.FImportMenuItemClick(Sender: TObject);
  930. var
  932.   Ps,UserPs:string;
  933.   Msh,Msd:TMemoryStream;
  934.   j:integer;
  935.   p:PTreeData;
  936.   AList: TStringList;
  937.   ALevel,AOldLevel:integer;
  938.   AParentNode:TTreeNode;
  939.   StrBuf:PChar;
  941.   ANode:TTreeNode;
  942.   i,n:integer;
  943.   Fn:string;
  944. begin
  945.   with OpenDialog do
  946.   begin
  947.     DefaultExt:=csTxtExt;
  948.     Filter:=csTxtFilter+'|'+csSrmFilter;
  949.     Title:=csOpenTitle;
  950.     FileName:='';
  951.   end;
  952.   if OpenDialog.Execute then
  953.   if ExtractFileExt(OpenDialog.Files.Strings[0])='.txt' then
  954.   begin
  955.     n:=OpenDialog.Files.Count-1;
  956.     RichEdit.Perform(WM_SETREDRAW,0,0);  //禁止重绘
  957.     for i:=0 to n do  //循环读入多重选择文件
  958.     begin
  959.       Fn:=ExtractFileName(OpenDialog.Files.Strings[i]);
  960.       Delete(Fn,Length(Fn)-3,4);
  961.       ANode:=TreeView.Items.AddObjectFirst(TreeView.Selected,Fn,pointer(-1));
  962.       ANode.ImageIndex:=2;
  963.       with Srm.DataHead do
  964.       begin
  965.         DataType:=2;
  966.         Author[0]:=#0;
  967.         Password[0]:=#0;
  968.       end;
  969.       TreeView.Selected:=ANode;
  970.       RichEdit.Lines.LoadFromFile(OpenDialog.Files.Strings[i]);
  971.     end;
  972.     StatusBar.Refresh;
  973.     RichEdit.Perform(WM_SETREDRAW,-1,0);  //允许重绘
  974.     Richedit.Refresh;
  975.   end
  976.   else
  978.  {
  981. begin
  982.   Result:=true;
  983.   Application.ProcessMessages;            //恢复原窗口
  985.   Srm:=TSrmObject.Create(Fn,fmOpenReadWrite);
  987.  { if Srm.FileHead.Password[0]<>#0 then    //密码保护
  988.   begin
  989.     InPwForm:=TInPwForm.Create(SrmForm);
  990.     with InPwForm do
  991.     begin
  992.       Caption:=csAppName;
  993.       InputLabel.Caption:=csPasswordTitle;
  994.       if ShowModal=mrCancel then
  995.       begin
  996.         Srm.Free;
  997.         Srm:=nil;
  998.         Free;
  999.         Result:=false;
  1000.         Exit;
  1001.       end;
  1002.       Ps:=Edit.Text;
  1003.       UserPs:=string(Srm.FileHead.Password);
  1004.       if Ps<>UserPs then
  1005.       begin
  1006.         if ModalResult<>mrCancel then
  1007.           Application.MessageBox(csAppName,csPasswordError,MB_OK);
  1008.         Srm.Free;
  1009.         Srm:=nil;
  1010.         Result:=false;
  1011.         Free;
  1012.         Exit;
  1013.       end;
  1014.       Free;
  1015.     end;
  1016.   end;
  1018.   Screen.Cursor:=crHourGlass;
  1019.   Msh:=TMemoryStream.Create;
  1020.   Msd:=TMemoryStream.Create;
  1021.   Srm.LoadIndex(Msh,Msd);                 //装入索引
  1023.   AList := TStringList.Create;
  1024.   SrmForm.TreeView.Items.BeginUpdate;
  1025.   AList.LoadFromStream(Msh);              //装入到字符串列表中
  1026.   SendMessage(SrmForm.TreeView.Handle, TVM_DELETEITEM, 0, Longint(TVI_ROOT));
  1027.   AOldLevel := 0;
  1028.   AParentNode := nil;
  1029.   n:=AList.Count-1;
  1030.   p:=Msd.Memory;
  1031.   for i:=0 to n do                        //根据TAB的多少得到相应级别
  1032.   begin
  1033.     StrBuf:=PChar(AList.Strings[i]);
  1034.     ALevel:=0;
  1035.     while StrBuf^=#9 do                   //得该项所在层数
  1036.     begin
  1037.       Inc(StrBuf);
  1038.       Inc(ALevel);
  1039.     end;
  1040.     if (ALevel<AOldLevel) or (AParentNode<>nil) then
  1041.     begin                                 //返回该项的上级节点
  1042.       for j:=AOldLevel downto ALevel do
  1043.       begin
  1044.         AParentNode:=AParentNode.Parent;
  1045.       end;
  1046.     end;
  1047.     AParentNode:=SrmForm.TreeView.Items.AddChildObject(AParentNode,StrBuf,
  1048.                                       pointer(p.Pos));
  1049.     AParentNode.ImageIndex:=p.DataType;   //得该节点类型
  1050.     AOldLevel:=ALevel;
  1051.     p:=pointer(integer(p)+sizeof(TTreeData));
  1052.   end;
  1053.   SrmForm.TreeView.Items.EndUpdate;
  1054.   AList.Free;
  1055.   Msd.Free;
  1056.   Msh.Free;
  1058.   with Srm.FileHead,SrmForm do            //显示文件属性
  1059.   begin
  1060.     DbAuthorEdit.Text:=String(Author);
  1061.     DbPasswordEdit.Text:=String(Password);
  1062.     DbBuildDateEdit.Text:=DateToStr(BuildDate);
  1063.     DbEditDateEdit.Text:=DateToStr(EditDate);
  1064.   end;
  1066.   SrmForm.TreeView.Selected:=nil;         //置当前选择项为空
  1067.   with Srm do
  1068.   begin
  1069.     DbChanged:=false;                     //数据库变动标志复原
  1070.     IndexChanged:=false;                  //索引变动标志复原
  1071.     ItemHeadChanged:=false;
  1072.     ItemDataChanged:=false;
  1073.   end;
  1075.   Screen.Cursor:=crDefault;
  1076. end;    }
  1080. end;
  1081. //目录引入-----------------------------------------------------------------
  1082. procedure TSrmForm.DImportMenuItemClick(Sender: TObject);
  1083. var
  1084.   Temps:WideString;
  1085.   Dir,Mask:string;
  1086.   ANode:TTreeNode;
  1087. begin
  1088.   Temps:='';
  1089. //  if not SelectDirectory(csAppName,Temps,Dir) then exit;
  1090.   Dir:=BrowseFolder;
  1091.   If Dir='' Then exit;
  1092.   ANode:=TreeView.Items.AddChildObjectFirst(TreeView.Selected,
  1093.        GetLastPathName(Dir),pointer(-1));
  1094.   ANode.ImageIndex:=1;
  1095.   with Srm.DataHead do
  1096.   begin
  1097.     DataType:=1;
  1098.     Author[0]:=#0;
  1099.     Password[0]:=#0;
  1100.   end;
  1101.   TreeView.Selected:=ANode;
  1102.   RichEdit.Modified:=true;
  1103.   if Dir[Length(Dir)]<>'' then Dir:=Dir+'';
  1104.   Mask:='*.'+csTxtExt;
  1105.   Screen.Cursor:=crHourGlass;
  1106.   RichEdit.Perform(WM_SETREDRAW,0,0);  //禁止重绘
  1107.   ImportDir(Dir,Mask);
  1108.   RichEdit.Perform(WM_SETREDRAW,-1,0);  //允许重绘
  1109.   Richedit.Refresh;
  1110.   StatusBar.Refresh;
  1111.   SCreen.Cursor:=crDefault;
  1112. end;
  1113. //导出标题内容--------------------------------------------------------------
  1114. procedure TSrmForm.ExportMenuItemClick(Sender: TObject);
  1115. var
  1116.   Dir:string;
  1117. //  i,n:integer;     //对别的格式要导出其附件
  1119.   function FormatFileName(Fn:string):string;
  1120.   var
  1121.     i,n:integer;
  1122.     c:char;
  1123.   begin
  1124.     Result:=Fn;
  1125.     n:=Length(Result);
  1126.     for i:=1 to n do
  1127.     begin
  1128.       c:=Result[i];
  1129.       if ((c=#92) or (c=#47) or (c=#58) or (c=#42) or (c=#63) or
  1130.            (c=#34) or (c=#60) or (c=#62) or (c=#124)) then
  1131.         Result[i]:='$';  //替换掉系统不接受的文件命名的字符
  1132.     end;
  1133.   end;
  1134.   procedure OutPutSrm(ANode:TTreeNode;Dir:string);
  1135.   var
  1136.     SNode:TTreeNode;
  1137.     Ms:TMemoryStream;
  1138.     Fh:integer;
  1139.     Path:string;
  1140.   begin
  1141.     Ms:=TMemoryStream.Create;
  1142.     Path:=Dir;
  1143.     SNode:=ANode.GetFirstChild;
  1144.     while SNode<>nil do
  1145.     begin
  1146.       if SNode.ImageIndex=1 then
  1147.       begin
  1148.         Dir:=Path+FormatFileName(SNode.Text);
  1149.         MkDir(Dir);
  1150.         Dir:=Dir+'';
  1151.         OutPutSrm(SNode,Dir);
  1152.       end
  1153.       else
  1154.       begin
  1155.         Srm.ReadItemHead(integer(SNode.Data));
  1156.         if ((Srm.DataHead.Password[0]=#0) and (Srm.DataHead.Num=1)) then
  1157.         begin       //没有口令的内容才导出
  1158.           Srm.ReadItemData(Ms);
  1159.           Fh:=FileCreate(Path+FormatFileName(SNode.Text)+'.'+csTxtExt);
  1160.           if Fh<>0 then FileWrite(Fh,Ms.Memory^,Ms.Size);
  1161.           FileClose(Fh);
  1162.         end;
  1163.       end;
  1164.       SNode:=SNode.GetNextSibling;
  1165.     end;
  1166.     Ms.Free;
  1167.   end;
  1168. begin
  1169.   if TreeView.Selected=nil then exit;
  1170.   if TreeView.Selected.GetFirstChild=nil then
  1171.   begin
  1172.     with SaveDialog do
  1173.     begin
  1174.       DefaultExt:=csTxtExt;
  1175.       Filter:=csTxtFilter;
  1176.       Title:=csSaveAsTitle;
  1177.       FileName:=TreeView.Selected.Text;
  1178.     end;
  1179.     if SaveDialog.Execute then
  1180.     begin
  1181.       RichEdit.Lines.SaveToFile(SaveDialog.FileName);
  1182.     end;
  1183.   end
  1184.   else
  1185.   begin
  1186.     Dir:=BrowseFolder;
  1187.     If Dir='' Then exit;
  1188.     if Dir[Length(Dir)]<>'' then Dir:=Dir+'';
  1189.     Dir:=Dir+FormatFileName(TreeView.Selected.Text);
  1190.     if DirectoryExists(Dir) then
  1191.     begin
  1192.       Application.MessageBox(csDirExists,csAppName,MB_OK or MB_ICONERROR);
  1193.       exit;
  1194.     end;
  1195.     MkDir(Dir);
  1196.     Dir:=Dir+'';
  1197.     Screen.Cursor:=crHourGlass;
  1198.     OutPutSrm(TreeView.Selected,Dir);
  1199.     Screen.Cursor:=crDefault;
  1200.   end;
  1201. end;
  1202. //打印内容------------------------------------------------------------------
  1203. procedure TSrmForm.PrintMenuItemClick(Sender: TObject);
  1204. begin
  1205.   if RichEdit.GetTextLen()=0 then
  1206.     RichEdit.Print(TitleLabel.Caption);
  1207. end;
  1208. //退出菜单-----------------------------------------------------------------
  1209. procedure TSrmForm.ExitMenuItemClick(Sender: TObject);
  1210. begin
  1211.   Close;
  1212. end;
  1213. //最近文件列表-----------------------------------------------------------------
  1214. procedure TSrmForm.ListMenuItemClick(Sender: TObject);
  1215. var
  1216.   Temps:string;
  1217. begin
  1218.   if CloseSrmQuery then closeSrm else exit;
  1219.   Temps:=Mru.FileList[TMenuItem(Sender).Tag];
  1220.   if Temps<>'' then
  1221.     if FileExists(Temps) then
  1222.      OpenSrm(Temps);
  1223.   if Srm=nil then
  1224.     Caption:=csAppName
  1225.   else
  1226.   begin
  1227.     Caption:=csAppName+' - '+Temps;
  1228.     Mru.Add(Temps);
  1229.   end;
  1230. end;
  1231. //我的最爱-----------------------------------------------------------------
  1232. procedure TSrmForm.MyLoveMenuItemClick(Sender: TObject);
  1233. begin
  1234.   if CloseSrmQuery then CloseSrm else exit;
  1235.   if AppIni.MyLoveFile<>'' then
  1236.     if FileExists(AppIni.MyLoveFile) then OpenSrm(AppIni.MyLoveFile);
  1237.   if Srm=nil then
  1238.     Caption:=csAppName
  1239.   else
  1240.     begin
  1241.       Caption:=csAppName+' - '+AppIni.MyLoveFile;
  1242.       Mru.Add(AppIni.MyLoveFile);
  1243.     end;
  1244. end;
  1248. //****************************************************************
  1249. //恢复菜单----------------------------------------------------------------
  1250. procedure TSrmForm.UndoMenuItemClick(Sender: TObject);
  1251. begin
  1252.   SendMessage(RichEdit.Handle,EM_UNDO,0,0);
  1253. end;
  1255. //---------------------------------------------------------------------
  1256. procedure TSrmForm.RedoMenuItemClick(Sender: TObject);
  1257. begin
  1258.   SendMessage(RichEdit.Handle,EM_UNDO,0,0);
  1259. end;
  1261. //重做菜单--------------------------------------------------------------
  1262. procedure TSrmForm.CutMenuItemClick(Sender: TObject);
  1263. begin
  1264.   SendMessage(GetFocus,WM_CUT,0,0);
  1265. end;
  1267. //拷贝------------------------------------------------------------------
  1268. procedure TSrmForm.CopyMenuItemClick(Sender: TObject);
  1269. begin
  1270.   SendMessage(GetFocus,WM_COPY,0,0);
  1271. end;
  1273. //粘贴----------------------------------------------------------------
  1274. procedure TSrmForm.PasteMenuItemClick(Sender: TObject);
  1275. begin
  1276.   SendMessage(GetFocus,WM_PASTE,0,0);
  1277. end;
  1279. //全选---------------------------------------------------------------
  1280. procedure TSrmForm.SelAllMenuItemClick(Sender: TObject);
  1281. begin
  1282.   RichEdit.SelectAll;
  1283. end;
  1285. //查找-----------------------------------------------------------------
  1286. procedure TSrmForm.FindMenuItemClick(Sender: TObject);
  1287. begin
  1288.   ReplaceDialog.ReplaceText:='';
  1289.   FindDialog.Execute;
  1290. end;
  1292. //查找下一个-------------------------------------------------------------
  1293. procedure TSrmForm.FindNextMenuItemClick(Sender: TObject);
  1294. begin
  1295.   if Length(ReplaceDialog.ReplaceText)<>0 then
  1296.   begin
  1297.     ReplaceDialog.Options:=ReplaceDialog.Options+[frReplace];
  1298.     ReplaceDialogReplace(Sender);
  1299.   end
  1300.   else if Length(FindDialog.FindText)<>0 then
  1301.   begin
  1302.     FindDialogFind(Sender);
  1303.   end
  1304.   else
  1305.     FindDialog.Execute;
  1306. end;
  1308. //替换------------------------------------------------------------------
  1309. procedure TSrmForm.ReplaceMenuItemClick(Sender: TObject);
  1310. begin
  1311.   ReplaceDialog.Execute;
  1312. end;
  1313. //删除空格---------------------------------------------------------------
  1314. procedure TSrmForm.DelSpaceMenuItemClick(Sender: TObject);
  1315. var
  1316.   i,Size:integer;
  1317.   OldBuf,NewBuf,TempOldBuf,TempNewBuf:pchar;
  1318. begin
  1319.   Size:=RichEdit.GetTextLen+2;
  1320.   GetMem(OldBuf,Size+1);
  1321.   GetMem(NewBuf,Size+1);
  1322.   TempOldBuf:=OldBuf;
  1323.   TempNewBuf:=NewBuf;
  1324.   RichEdit.GetTextBuf(OldBuf,Size);
  1325.   for i:=0 to Size do
  1326.   begin
  1327.     if TempOldBuf^=#32 then
  1328.     begin
  1329.       if ((pchar(integer(TempOldBuf-1))^>=#160) or
  1330.           (pchar(integer(TempOldBuf+1))^>=#160)) then
  1331.         inc(TempOldBuf)
  1332.       else
  1333.       begin
  1334.         TempNewBuf^:=TempOldBuf^;
  1335.         inc(TempNewBuf);
  1336.         inc(TempOldBuf);
  1337.       end;
  1338.     end
  1339.     else
  1340.     begin
  1341.       TempNewBuf^:=TempOldBuf^;
  1342.       inc(TempNewBuf);
  1343.       inc(TempOldBuf);
  1344.     end;
  1345.   end;
  1346.   TempNewBuf^:=#0;
  1347.   RichEdit.SetTextBuf(NewBuf);
  1348.   FreeMem(OldBuf);
  1349.   FreeMem(NewBuf);
  1350. end;
  1351. //合并成段---------------------------------------------------------------
  1352. procedure TSrmForm.CParaMenuItemClick(Sender: TObject);
  1353. var
  1354.   Stext,Dtext:pchar;
  1355.   OldStext,OldDtext:pchar;
  1356.   n:integer;
  1357. begin
  1358.   n:=RichEdit.SelLength;
  1359.   if n=0 then Exit;    //没有选择的文本则退出
  1361.   Inc(n);
  1362.   GetMem(OldStext,n);
  1363.   GetMem(OldDtext,n);  //分配内存准备COPY文本
  1364.   Stext:=OldStext;
  1365.   Dtext:=OldDtext;
  1367.   RichEdit.GetSelTextBuf(Stext,n);
  1368.   while Stext^<>#0 do
  1369.   begin
  1370.     if (Stext^=#10) or (Stext^=#13) then  //如果是回车换行符
  1371.       Inc(Stext)
  1372.     else
  1373.     begin
  1374.       Dtext^:=Stext^;
  1375.       Inc(Stext);
  1376.       Inc(Dtext);
  1377.     end;
  1378.   end;
  1379.   Inc(Dtext);
  1380.   Dtext^:=#0;
  1381.   RichEdit.SetSelTextBuf(OldDtext);
  1383.   FreeMem(OldStext);
  1384.   FreeMem(OldDtext);
  1385. end;
  1386. //分割段落---------------------------------------------------------------
  1387. procedure TSrmForm.DParaMenuItemClick(Sender: TObject);
  1388. var
  1389.   i,n:integer;
  1390.   s:string;
  1391. begin
  1392.   if (RichEdit.GetTextLen=0) or (not RichEdit.WordWrap) then Exit;
  1394.   Application.ProcessMessages;
  1396.   n:=RichEdit.Lines.Count-1;
  1397.   with TProgressBar.Create(self) do
  1398.   begin
  1399.     Parent:=StatusBar;
  1400.     Align:=alClient;
  1401.     Max:=n;
  1402.     StatusBar.Update;
  1403.     Screen.Cursor:=crHourGlass;
  1404.     RichEdit.Perform(WM_SETREDRAW,0,0);  //禁止重绘
  1405.     for i:=0 to n do
  1406.     begin
  1407.       s:=RichEdit.Lines[i];
  1408.       if s<>'' then RichEdit.Lines[i]:=Format('%s'#13#10,[s]);
  1409.       Position:=i;
  1410.     end;
  1411.     RichEdit.Perform(WM_SETREDRAW,-1,0);
  1412.     RichEdit.Refresh;
  1413.     Screen.Cursor:=crDefault;
  1414.     Free;
  1415.   end;
  1416. end;
  1417. //Gb To Big5转换--------------------------------------------------------
  1418. procedure TSrmForm.GbToBigMenuItemClick(Sender: TObject);
  1419. var
  1420.   Buf:pchar;
  1421.   n:integer;
  1422. begin
  1423.   n:=RichEdit.GetTextLen+1;
  1424.   GetMem(Buf,n);
  1425.   RichEdit.GetTextBuf(Buf,n);
  1426.   GbToBig(Buf);
  1427.   RichEdit.SetTextBuf(Buf);
  1428.   FreeMem(Buf);
  1429. end;
  1430. //Big5 To Gb转换--------------------------------------------------------
  1431. procedure TSrmForm.BigToGbMenuItemClick(Sender: TObject);
  1432. var
  1433.   Buf:pchar;
  1434.   n:integer;
  1435. begin
  1436.   n:=RichEdit.GetTextLen+1;
  1437.   GetMem(Buf,n);
  1438.   RichEdit.GetTextBuf(Buf,n);
  1439.   BigToGb(Buf);
  1440.   RichEdit.SetTextBuf(Buf);
  1441.   FreeMem(Buf);
  1442. end;
  1445. //****************************************************************
  1446. //工具栏显示---------------------------------------------------------
  1447. procedure TSrmForm.ToolsMenuItemClick(Sender: TObject);
  1448. begin
  1449. //
  1450. end;
  1451. //状态栏显示---------------------------------------------------------
  1452. procedure TSrmForm.StatusMenuItemClick(Sender: TObject);
  1453. var
  1454.   tmp:boolean;
  1455. begin
  1456.   tmp:=not StatusMenuItem.Checked;
  1457.   StatusMenuItem.Checked:=tmp;
  1458.   StatusBar.Visible:=tmp;
  1459. end;
  1460. //视图栏显示---------------------------------------------------------
  1461. procedure TSrmForm.TitleMenuItemClick(Sender: TObject);
  1462. var
  1463.   tmp:boolean;
  1464. begin
  1465.   tmp:=not TitleMenuItem.Checked;
  1466.   TitleMenuItem.Checked:=tmp;
  1467.   TitleToolButton.Down:=tmp;
  1468.   Splitter.Visible:=tmp;
  1469.   LeftForm.Visible:=tmp;
  1470. end;
  1471. //只读控制-----------------------------------------------------------
  1472. procedure TSrmForm.ReadOnlyMenuItemClick(Sender: TObject);
  1473. var
  1474.   tmp:boolean;
  1475. begin
  1476.   tmp:=not ReadOnlymenuItem.Checked;
  1477.   ReadOnlyMenuItem.Checked:=tmp;
  1478.   ReadOnlyToolButton.Down:=tmp;
  1479.   RichEdit.ReadOnly:=tmp;
  1480. end;
  1481. //自动换行------------------------------------------------------------
  1482. procedure TSrmForm.WordWrapMenuItemClick(Sender: TObject);
  1483. var
  1484.   tmp:boolean;
  1485. begin
  1486.   tmp:=not WordWrapMenuItem.Checked;
  1487.   WordWrapMenuItem.checked:=tmp;
  1488.   WordWrapToolButton.Down:=tmp;
  1489.   RichEdit.WordWrap:=tmp;
  1490. end;
  1491. //放大字体------------------------------------------------------------
  1492. procedure TSrmForm.BigFontMenuItemClick(Sender: TObject);
  1493. begin
  1494.   with RichEdit.Font do Size:=Size+1;
  1495. end;
  1496. //缩小字体--------------------------------------------------------------
  1497. procedure TSrmForm.SmallFontMenuItemClick(Sender: TObject);
  1498. begin
  1499.   with RichEdit.Font do Size:=Size-1;
  1500. end;
  1501. //选项设置--------------------------------------------------------------
  1502. procedure TSrmForm.OptionsMenuItemClick(Sender: TObject);
  1503. begin
  1504.   with TOptionForm.Create(self) do
  1505.   begin
  1506.     if ShowModal=mrOk then
  1507.     begin
  1508.       SetOpenSrmWithApp(SrmCheckBox.Checked);
  1509.       Mru.Visible:=FileListCheckBox.Checked;
  1510.       MyLoveMenuItem.Visible:=MyLoveCheckBox.Checked;
  1511.       MyLoveNextMenuItem.Visible:=MyLoveCheckBox.Checked;
  1512.       with AppIni do
  1513.       begin
  1514.         OpenSrmWithApp:=SrmCheckBox.Checked;
  1515.         LoadNearFile:=LoadSrmCheckBox.Checked;
  1516.         FileListVisible:=FileListCheckBox.checked;
  1517.         MyLoveVisible:=MyLoveCheckBox.Checked;
  1518.         SaveDbQuery:=SaveCheckBox.Checked;
  1519.         DelRecordQuery:=DelCheckBox.Checked;
  1520.         MyLoveFile:=MyLoveEdit.Text;
  1521.       end;
  1522.       TreeView.Color:=TvShape.Brush.Color;
  1523.       RichEdit.Color:=ReShape.Brush.Color;
  1524.       TreeView.Font:=TvLabel.Font;
  1525.       RichEdit.Font:=ReLabel.Font;
  1526.     end;
  1527.     Free;
  1528.   end;
  1529.   MyLoveMenuItem.Enabled:=AppIni.MyLoveFile<>'';
  1530. end;
  1536. //****************************************************************
  1537. //添加新节点----------------------------------------------------------
  1538. procedure TSrmForm.AddNodeMenuItemClick(Sender: TObject);
  1539. var
  1540.   ANode:TTreeNode;
  1541.   Id:integer;
  1542. begin
  1543.   ANode:=TreeView.Items.AddObjectFirst(TreeView.Selected,csNewDefaultTitle,
  1544.                                        pointer(-1));
  1545.   ANode.ImageIndex:=2;
  1546.   if ANode.Parent=nil then Id:=0 else Id:=integer(ANode.Parent.ItemId);
  1547.   SendMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);   //自动排序当前同级标题
  1548.   TreeView.Selected:=ANode;
  1550.   ANode.EditText;
  1551.   StatusBar.Refresh;
  1552.   Srm.ItemDataChanged:=true;
  1553. end;
  1554. //添加新子节点--------------------------------------------------------
  1555. procedure TSrmForm.AddSubNodeMenuItemClick(Sender: TObject);
  1556. var
  1557.   ANode:TTreeNode;
  1558.   Id:integer;
  1559. begin
  1560.   ANode:=TreeView.Items.AddChildObjectFirst(TreeView.Selected,csNewDefaultTitle,
  1561.                                             pointer(-1));
  1562.   ANode.ImageIndex:=2;
  1563.   ANode.Parent.ImageIndex:=1;
  1564.   if ANode.Parent=nil then Id:=0 else Id:=integer(ANode.Parent.ItemId);
  1565.   SendMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  1566.   TreeView.Selected:=ANode;
  1567.   ANode.EditText;
  1568.   StatusBar.Refresh;
  1569.   Srm.ItemDataChanged:=true;
  1570. end;
  1571. //编辑节点-------------------------------------------------------------
  1572. procedure TSrmForm.EditNodeMenuItemClick(Sender: TObject);
  1573. begin
  1574.   TreeView.Selected.EditText;
  1575.   Srm.IndexChanged:=true;
  1576. end;
  1577. //删除节点-------------------------------------------------------------
  1578. procedure TSrmForm.DelNodeMenuItemClick(Sender: TObject);
  1579. begin
  1580.   if AppIni.DelRecordQuery then
  1581.     if Application.MessageBox(csDeleteQuery,
  1582.            csAppName,MB_OKCANCEL or MB_ICONWARNING)<>IDOK then exit;
  1583.   TreeView.Selected.Delete;
  1584.   StatusBar.Refresh;
  1585.   Srm.IndexChanged:=true;
  1586. end;
  1587. //节点排序--------------------------------------------------------------
  1588. procedure TSrmForm.SortMenuItemClick(Sender: TObject);
  1589. begin
  1590.   Screen.Cursor:=crHourGlass;
  1591.   Application.ProcessMessages;
  1593.   TreeView.SortType:=stText;
  1594.   TreeView.AlphaSort;
  1595.   TreeView.SortType:=stNone;
  1596.   Srm.IndexChanged:=true;
  1597.   Screen.Cursor:=crDefault;
  1598. end;
  1599. //压缩数据库------------------------------------------------------------
  1600. procedure TSrmForm.CompressMenuItemClick(Sender: TObject);
  1601. var
  1602.   i,n:integer;
  1603.   Ms,Msh,Msd:TMemoryStream;
  1604.   ASrm:TSrmObject;
  1605.   AFileName,AoldFileName:string;
  1606.   ABuf:array[0..260] of char;
  1607.   ANode:TTreeNode;
  1608.   pBuf:PTreeData;
  1609. begin
  1610.   if Srm=nil then exit;  //如果没有打开的数据库则退出
  1612.   AOldFileName:=Srm.FileName;
  1613.   SaveSrm;
  1615.   GetTempFileName(pchar(ExtractFileDir(Srm.FileName)),'tmp',0,@ABuf[0]);
  1616.   AFileName:=string(ABuf);
  1617.   Ms:=TMemoryStream.Create;
  1618.   Msh:=TMemoryStream.Create;
  1619.   Msd:=TMemoryStream.Create;
  1620.   TreeView.SaveToStream(Msh);
  1621.   Msd.SetSize(sizeof(TTreeData)*TreeView.Items.Count);
  1622.   pBuf:=Msd.Memory;
  1623.   ASrm:=TSrmObject.Create(AFileName,fmCreate);
  1624.   n:=TreeView.Items.Count-1;
  1625.   ANode:=TreeView.Items.GetFirstNode;
  1626.   Screen.Cursor:=crHourGlass;
  1627.   Application.ProcessMessages;
  1629.   with TProgressBar.Create(self) do
  1630.   begin
  1631.     Parent:=StatusBar;
  1632.     Align:=alClient;
  1633.     Max:=n;
  1634.     StatusBar.Update;
  1635.     for i:=0 to n do
  1636.     begin
  1637.       Position:=i;
  1638.       Srm.ReadItemHead(integer(ANode.Data));
  1639.       Srm.ReadItemData(Ms);
  1640.       ASrm.DataHead:=Srm.DataHead;
  1641.       pBuf^.Pos:=ASrm.AddItemHead;
  1642.       if ANode.GetFirstChild<>nil then pBuf^.DataType:=1
  1643.       else pBuf^.DataType:=ANode.ImageIndex;
  1644.       ASrm.AddItemData(Ms);
  1645.       pBuf:=PTreeData(integer(pBuf)+sizeof(TTreeData));
  1646.       ANode:=ANode.GetNext;
  1647.     end;
  1648.     ASrm.FileHead:=Srm.FileHead;
  1649.     ASrm.SaveIndex(Msh,Msd);
  1650.     ASrm.SaveSrmFile;
  1651.     Free;
  1652.   end;
  1654.   Screen.Cursor:=crDefault;
  1655.   ASrm.Free;
  1656.   Ms.Free;
  1657.   Msh.Free;
  1658.   Msd.Free;
  1660.   CloseSrm;
  1661.   DeleteFile(AOldFileName);
  1662.   MoveFile(pchar(AFileName),pchar(AOldFileName));
  1663.   OpenSrm(AOldFileName);
  1665.   StatusBar.Refresh;
  1666. end;
  1667. //升级2.x版数据库-------------------------------------------------------
  1668. procedure TSrmForm.CovertMenuItemClick(Sender: TObject);
  1669. var
  1670.   Fn: string;
  1671.   F2,F3:integer;
  1672.   FTv:TTreeView;
  1673.   IdxBuf:PIntArray;
  1674.   Ms,Msh,Msd:TMemoryStream;
  1675.   i,n,size:integer;
  1676.   FSrm:TSrmObject;
  1677.   ANode:TTreeNode;
  1678. begin
  1679.   if CloseSrmQuery then CloseSrm else exit;  //关闭打开的数据文件
  1680.   //得打开文件名和要保存的文件名
  1681.   with OpenDialog do
  1682.   begin
  1683.     DefaultExt:=csTreExt;
  1684.     Filter:=csOldFilter;
  1685.     Title:=csOpenTitle;
  1686.   end;
  1687.   with SaveDialog do
  1688.   begin
  1689.     DefaultExt:=csSrmExt;
  1690.     Filter:=csSrmFilter;
  1691.     Title:=csSaveAsTitle;
  1692.   end;
  1693.   if not OpenDialog.Execute then Exit;
  1694.   if not SaveDialog.Execute then Exit;
  1695.   //旧数据文件不完整时
  1696.   Fn:=OpenDialog.FileName;
  1697.   Delete(Fn,Length(Fn)-2,3);
  1698.   if not (FileExists(Fn+csTreExt) and
  1699.           FileExists(Fn+csIdxExt) and
  1700.           FileExists(Fn+csDatExt)) then
  1701.   begin
  1702.     Application.MessageBox(csOldFileError,csAppName,MB_OK+MB_ICONSTOP);
  1703.     exit;
  1704.   end;
  1706.   FSrm:=TSrmObject.Create(SaveDialog.FileName,fmCreate);
  1707.   Ms:=TMemoryStream.Create;
  1708.   Msh:=TMemoryStream.Create;
  1709.   Msd:=TMemoryStream.Create;
  1710.   //装入标题到隐藏的视图中
  1711.   FTv:=TTreeView.Create(self);
  1712.   FTv.Parent:=self;
  1713.   FTv.Visible:=false;
  1714.   FTv.LoadFromFile(Fn+csTreExt);
  1715.   ANode:=FTv.Items.GetFirstNode;
  1716.   //读入索引
  1717.   GetMem(IdxBuf,sizeof(integer)*FTv.Items.Count);
  1718.   Msd.SetSize(sizeof(TTreeData)*FTv.Items.Count);
  1719.   F2:=FileOpen(Fn+csIdxExt,fmOpenRead);
  1720.   FileRead(F2,IdxBuf^,sizeof(integer)*FTv.Items.Count);
  1722.   F3:=FileOpen(Fn+csDatExt,fmOpenRead);
  1724.   n:=FTv.Items.Count-1;
  1725.   Screen.Cursor:=crHourGlass;
  1726.   Application.ProcessMessages;
  1727.   with TProgressBar.Create(self) do
  1728.   begin
  1729.     Parent:=StatusBar;
  1730.     Align:=alClient;
  1731.     Max:=n;
  1732.     StatusBar.Update;
  1734.     for i:=0 to n do
  1735.     begin
  1736.       Position:=i;
  1737.       //置数据段头缺省值
  1738.       with FSrm.DataHead do
  1739.       begin
  1740.         Author[0]:=#0;
  1741.         Password[0]:=#0;
  1742.         SearchKey[0]:=#0;
  1743.         Keep:=0;
  1744.         PubDate:=Now;
  1745.         if (ANode.GetFirstChild<>nil) then
  1746.           DataType:=1
  1747.         else
  1748.           DataType:=2;
  1749.         if IdxBuf^[i]=-1 then
  1750.           Num:=0
  1751.         else
  1752.           Num:=1;
  1753. //          Num:=0;
  1754.       end;
  1755.       PTdArray(Msd.Memory)^[i].DataType:=FSrm.DataHead.DataType;
  1756.       PTdArray(Msd.Memory)^[i].Pos:=FSrm.AddItemHead;
  1757.       //读入数据内容
  1758.       if IdxBuf^[i]<>-1 then
  1759.       begin
  1760.         FileSeek(F3,IdxBuf^[i],0);
  1761.         FileRead(F3,size,sizeof(integer));
  1762.         Ms.SetSize(size);
  1763.         FileRead(F3,Ms.Memory^,size);
  1764.         FSrm.AddItemData(Ms);
  1765.       end;
  1766.       ANode:=ANode.GetNext;
  1767.     end;
  1768.     Free;
  1769.   end;
  1770.   Screen.Cursor:=crDefault;
  1771.   //保存新文件索引
  1772.   FTv.SaveToStream(Msh);
  1773.   FSrm.SaveIndex(Msh,Msd);
  1774.   FSrm.SaveSrmFile;
  1775.   //释放内存
  1776.   FreeMem(IdxBuf);
  1777.   FileClose(F2);
  1778.   FileClose(F3);
  1779.   FTv.Free;
  1780.   Ms.Free;
  1781.   Msd.Free;
  1782.   Msh.Free;
  1783.   FSrm.Free;
  1784.   OpenSrm(SaveDialog.FileName);
  1785.   Mru.Add(SaveDialog.FileName);
  1786. end;
  1790. //****************************************************************
  1791. //关于本软件----------------------------------------------------------
  1792. procedure TSrmForm.AboutMenuItemClick(Sender: TObject);
  1793. begin
  1794.   with TAboutForm.Create(self) do
  1795.   begin
  1796.     ShowModal;
  1797.     Free;
  1798.   end;
  1799. end;
  1800. //帮助文件----------------------------------------------------------
  1801. procedure TSrmForm.ReadmeMenuItemClick(Sender: TObject);
  1802. var
  1803.   TmpStr :string;
  1804. begin
  1805.   TmpStr:=Application.ExeName;
  1806.   Delete(TmpStr,Length(TmpStr)-2,3);
  1807.   TmpStr:=TmpStr+csHlpExt;
  1808.   if Sender is TWinControl then
  1809.   begin
  1810.     if TWinControl(Sender).HelpContext=0 then
  1811.       WinHelp(Application.Handle,pchar(TmpStr),HELP_CONTEXT,10)
  1812.     else
  1813.       WinHelp(Application.Handle,pchar(TmpStr),HELP_CONTEXT,
  1814.               TWinControl(Sender).HelpContext);
  1815.   end
  1816.   else
  1817.       WinHelp(Application.Handle,pchar(TmpStr),HELP_CONTEXT,10);
  1818. end;
  1819. //作者主页----------------------------------------------------------
  1820. procedure TSrmForm.HomePageMenuItemClick(Sender: TObject);
  1821. begin
  1822.   ShellExecute(Application.Handle,nil,csHomePage,nil,nil,SW_SHOWNORMAL);
  1823. end;
  1824. //作者邮件----------------------------------------------------------
  1825. procedure TSrmForm.EMailMenuItemClick(Sender: TObject);
  1826. begin
  1827.   ShellExecute(Application.Handle,nil,csEMail,nil,nil,SW_SHOWNORMAL);
  1828. end;
  1829. //技术支持----------------------------------------------------------
  1830. procedure TSrmForm.OtherMenuItemClick(Sender: TObject);
  1831. begin
  1832.   Application.MessageBox(csTechniqueSupport,csAppName,MB_OK+MB_ICONSTOP);
  1833. end;
  1838. //****************************************************************
  1841. //弹出文件菜单时-----------------------------------------
  1842. procedure TSrmForm.FileMenuItemClick(Sender: TObject);
  1843. begin
  1844.   if Srm=nil then    //没有打开的数据库时
  1845.   begin
  1846.     SaveMenuItem.Enabled:=false;
  1847.     CloseMenuItem.Enabled:=false;
  1848.     FImportMenuItem.Enabled:=false;
  1849.     DImportMenuItem.Enabled:=false;
  1850.   end
  1851.   else
  1852.   begin
  1853.     SaveMenuItem.Enabled:=true;
  1854.     CloseMenuItem.Enabled:=true;
  1855.     FImportMenuItem.Enabled:=true;
  1856.     DImportMenuItem.Enabled:=true;
  1857.     end;
  1859.   if TreeView.Selected=nil then   //没有被选择的标题时
  1860.   begin
  1861.     ExportMenuItem.Enabled:=false;
  1862.     PrintMenuItem.Enabled:=false;
  1863.   end
  1864.   else
  1865.   begin
  1866.     ExportMenuItem.Enabled:=true;
  1867.     PrintMenuItem.Enabled:=true;
  1868.   end;
  1869. end;
  1870. //弹出编辑菜单时---------------------------------------------
  1871. procedure TSrmForm.EditMenuItemClick(Sender: TObject);
  1872. begin
  1873.   if RichEdit.SelLength=0 then  //没有被选择的文本时
  1874.   begin
  1875.     CutMenuItem.Enabled:=false;
  1876.     CopyMenuItem.Enabled:=false;
  1877.   end
  1878.   else
  1879.   begin
  1880.     CutMenuItem.Enabled:=true;
  1881.     CopyMenuItem.Enabled:=true;
  1882.   end;
  1883.   if RichEdit.Modified=false then  //内容还未被修改过时
  1884.   begin
  1885.     UndoMenuItem.Enabled:=false;
  1886.     RedoMenuItem.Enabled:=false;
  1887.   end
  1888.   else
  1889.   begin
  1890.     UndoMenuItem.Enabled:=true;
  1891.     RedoMenuItem.Enabled:=true;
  1892.   end;
  1893.   OpenClipboard(Handle);
  1894.   if GetClipboardData(CF_TEXT)=0 then  //剪贴板中没有文本时
  1895.     PasteMenuItem.Enabled:=false
  1896.   else
  1897.     PasteMenuItem.enabled:=true;
  1898.   CloseClipboard;
  1899.   if RichEdit.SelLength>=RichEdit.GetTextLen then
  1900.     SelAllMenuItem.Enabled:=false
  1901.   else
  1902.     SelAllMenuItem.Enabled:=true;
  1903. end;
  1905. //数据库属性编辑框有变动时--------------------------------------
  1906. procedure TSrmForm.DbAuthorEditChange(Sender: TObject);
  1907. begin
  1908.   if LeftPageControl.ActivePage=PropertiyTabSheet then
  1909.     Srm.DbChanged:=true;
  1910. end;
  1911. //标题属性编辑框有变动时----------------------------------------
  1912. procedure TSrmForm.ContextAuthorEditChange(Sender: TObject);
  1913. begin
  1914.   if RightPageControl.ActivePage=ProTabSheet then
  1915.     Srm.ItemHeadChanged:=true;
  1916. end;
  1918. procedure TSrmForm.ContextTypeRadioGroupClick(Sender: TObject);
  1919. begin
  1920.   if RightPageControl.ActivePage=ProTabSheet then
  1921.   begin
  1922.     Srm.DbChanged:=true;
  1923.     if TreeView.Selected<>nil then
  1924.       TreeView.Selected.ImageIndex:=ContextTypeRadioGroup.ItemIndex+1;
  1925.     Srm.ItemHeadChanged:=true;
  1926.     Srm.IndexChanged:=true;
  1927.   end;
  1928. end;
  1930. //上一标题-------------------------------------------------
  1931. procedure TSrmForm.PrevSpeedButtonClick(Sender: TObject);
  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. //下一标题-------------------------------------------------
  1938. procedure TSrmForm.NextSpeedButtonClick(Sender: TObject);
  1939. begin
  1940.   if TreeView.Selected=nil then exit;
  1941.   if TreeView.Selected.GetNext<>nil then
  1942.     TreeView.Selected:=TreeView.Selected.GetNext;
  1943. end;
  1949. //编辑框有变动时------------------------------------------
  1950. procedure TSrmForm.RichEditChange(Sender: TObject);
  1951. type
  1952.   TTextRange = record
  1953.     chrg: TCharRange;
  1954.     lpstrText: PChar;
  1955.   end;
  1956. var
  1957.   Idx:integer;
  1958.   Tr:TTextRange;
  1959.   s:string;
  1960. begin
  1961.   if RichEdit.SelStart=0 then exit;
  1962.   Idx:=RichEdit.SelStart-1;
  1963.   Tr.chrg.cpMin:=RichEdit.Perform(EM_FINDWORDBREAK,WB_LEFTBREAK,Idx);
  1964.   Tr.chrg.cpMax:=RichEdit.Perform(EM_FINDWORDBREAK,WB_RIGHTBREAK,Idx);
  1965.   if Tr.chrg.cpMin<Tr.chrg.cpMax then
  1966.   begin
  1967.       SetLength(s,Tr.chrg.cpMax-Tr.chrg.cpMin);
  1968.       Tr.lpstrText:= @S[1];
  1969.       RichEdit.Perform(EM_GETTEXTRANGE, 0, Integer(@Tr));
  1970.       s:=LowerCase(s);
  1971.       if s='http://' then
  1972.       begin
  1973.         RichEdit.Perform(EM_HIDESELECTION,1,1);
  1974.         RichEdit.Perform(EM_SETSEL,Tr.chrg.cpMin,Tr.chrg.cpMax);
  1975.         RichEdit.SelAttributes.Color:=clRed;
  1976.         RichEdit.Perform(EM_HIDESELECTION,0,0);
  1977.       end;
  1978.   end;
  1979. //  RichEdit.
  1980.   StatusBar.Refresh;
  1981. end;
  1982. //编辑框有按键事件时
  1983. procedure TSrmForm.RichEditKeyDown(Sender: TObject; var Key: Word;
  1984.   Shift: TShiftState);
  1985. //var
  1986. //  a:word;
  1987. begin
  1988. {
  1989.   a:=GetKeyboardLayout(0);
  1990.   if a<>$804 then                                       //如果不是中文输入法
  1991.     RichEdit.DefAttributes.CharSet:=RichEdit.Font.CharSet; //置当前字体为原字体
  1992. }
  1993. end;
  1995. procedure TSrmForm.ControlBarDockOver(Sender: TObject;
  1996.   Source: TDragDockObject; X, Y: Integer; State: TDragState;
  1997.   var Accept: Boolean);
  1998. begin
  1999.   Accept := (Source.Control is TToolBar);
  2000. end;
  2002. end.