mainunit.pas

一个漂亮的电子书籍阅读管理器

  Action:=caFree;
end;
//窗体释放前----------------------------------------------------------------
procedure TSrmForm.FormDestroy(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to 4 do AppIni.FileList[i]:=Mru.FileList[i];
  Mru.Free;
  AppIni.Free;
  SrmClip.Free;
end;


//****************************************************************
//查找文本---------------------------------------------------------------
procedure TSrmForm.FindDialogFind(Sender: TObject);
var
  FoundAt,StartPos,ToEnd:integer;
  SearchFlag:TSearchTypes;
begin
  if frMatchCase in FindDialog.Options then
    SearchFlag:=SearchFlag+[stMatchCase];
  if frWholeWord in FindDialog.Options then
    SearchFlag:=SearchFlag+[stWholeWord];
  StartPos:=RichEdit.SelStart+RichEdit.SelLength;
  ToEnd:=Length(RichEdit.Text)-StartPos;
  FoundAt:=RichEdit.FindText(FindDialog.FindText,StartPos,ToEnd,
                             SearchFlag);
  if FoundAt<>-1 then
  begin
    RichEdit.SetFocus;
    RichEdit.SelStart:=FoundAt;
    RichEdit.SelLength:=Length(FindDialog.FindText);
  end
  else
  begin
    MessageBox(Handle,csFindError,csAppName,MB_OK or MB_ICONWARNING);
  end;
end;
//替换文本---------------------------------------------------------------
procedure TSrmForm.ReplaceDialogReplace(Sender: TObject);
var
  FoundAt,StartPos,ToEnd:integer;
  SearchFlag:TSearchTypes;
begin
  if frMatchCase in ReplaceDialog.Options then
    SearchFlag:=SearchFlag+[stMatchCase];
  if frWholeWord in ReplaceDialog.Options then
    SearchFlag:=SearchFlag+[stWholeWord];
  StartPos:=0;
  ToEnd:=Length(RichEdit.Text)-StartPos;

  if frReplace in ReplaceDialog.Options then
  begin
    StartPos:=RichEdit.SelStart+RichEdit.SelLength;
    FoundAt:=RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,
                               SearchFlag);
    if FoundAt<>-1 then
    begin
      RichEdit.SetFocus;
      RichEdit.SelStart := FoundAt;
      RichEdit.SelLength := Length(ReplaceDialog.FindText);
      RichEdit.SelText := ReplaceDialog.ReplaceText;
      RichEdit.SelStart := FoundAt;
      RichEdit.SelLength := Length(ReplaceDialog.ReplaceText);
    end
    else
    begin
      MessageBox(Handle,csFindError,csAppName,MB_OK or MB_ICONWARNING);
    end;
  end
  else if frReplaceAll in ReplaceDialog.Options then
  begin
    StartPos:=0;
    FoundAt:=0;
    while FoundAt<>-1 do
    begin
      FoundAt:=RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,
                                 SearchFlag);
      if FoundAt<>-1 then
      begin
        RichEdit.SetFocus;
        RichEdit.SelStart := FoundAt;
        RichEdit.SelLength:=Length(ReplaceDialog.FindText);
        RichEdit.SelText:=ReplaceDialog.ReplaceText;
        StartPos:=FoundAt+Length(ReplaceDialog.Findtext);
        ToEnd:=Length(RichEdit.Text)-StartPos;
      end
      else
      begin
        MessageBox(Handle,csReplaceSucess,csAppName,0);
        break;
      end;
    end;
  end
  else
  begin
    FindDialog.Options:=ReplaceDialog.Options;
    FindDialog.FindText:=ReplaceDialog.FindText;
    FindDialogFind(Sender);
  end;
end;


//****************************************************************
//节点改变前---------------------------------------------------------------
procedure TSrmForm.TreeViewChanging(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
var
  Ps,UserPs:string;
begin
  AllowChange:=true;

  if Srm=nil then exit;
  SaveItem;

  if Node.Data=pointer(-1) then exit;           //如果是新建节点则不检查口令
  Ps:=Srm.GetItemPassword(integer(Node.Data));  //得要显示标题的口令
  if Ps<>'' then                                //口令不为空时
  begin
    with TInpwForm.Create(self) do
    begin
      Caption:=csAppName;
      InputLabel.Caption:=csPasswordTitle;
      if ShowModal=mrCancel then
      begin
       AllowChange:=false;
      end;
      UserPs:=Edit.Text;
      if Ps<>UserPs then                        //输入口令不对时
      begin
        if ModalResult<>mrCancel then           //在口令输入框中没按Cancel按钮
          Application.MessageBox(csPasswordError,csAppName,MB_OK);
        AllowChange:=false;                     //不允许转移选择点
      end;
      Free;
    end;
  end;
  end;
//节点改变后---------------------------------------------------------------
procedure TSrmForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
var
  Ms:TMemoryStream;
begin

  if Srm=nil then exit;
  if ((Node=nil) or (integer(Node.Data)=-1)) then  //无效节点或无内容
  begin
    ContextAuthorEdit.Text:='';
    ContextPasswordEdit.Text:='';
    ContextPubDateEdit.Text:=DateToStr(Date);
    ContextIndexEdit.Text:='';
    ContextTypeRadioGroup.ItemIndex:=1;
    RichEdit.Text:='';
    RichEdit.Modified:=false;
    if Node<>nil then
    begin
      Srm.ItemHeadChanged:=true;
      Srm.ItemDataChanged:=true;
    end;
    exit;
  end;

  Srm.ReadItemHead(integer(Node.Data));  //读入标题属性
  case Srm.DataHead.Num of
    0:                //无内容
    begin
      RichEdit.Text:='';
    end;
    1:
    begin
      Ms:=TMemoryStream.Create;
      Srm.ReadItemData(Ms);
      RichEdit.PlainText:=true; //和3.2版兼容
      RichEdit.SetTextBuf(Ms.Memory);
      RichEdit.PlainText:=false;//和3.2版兼容
      Ms.Free;
    end;
  end;

  Node.SelectedIndex:=Node.ImageIndex;  //设置标题属性

  ContextAuthorEdit.Text:=string(Srm.DataHead.Author);
  ContextPasswordEdit.Text:=String(Srm.DataHead.Password);
  ContextPubDateEdit.Text:=DateToStr(Srm.DataHead.PubDate);
  ContextIndexEdit.Text:=string(Srm.DataHead.SearchKey);
  ContextTypeRadioGroup.ItemIndex:=Node.ImageIndex-1;
  TitleLabel.Caption:=Node.Text;
  StatusBar.Refresh;

  RichEdit.Modified:=false;
  Srm.ItemHeadChanged:=false;
  Srm.ItemDataChanged:=false;
end;
//节点被编辑后------------------------------------------------------------
procedure TSrmForm.TreeViewEdited(Sender: TObject; Node: TTreeNode;
  var S: String);
var
  Id:integer;
begin
  S:=FormatTreeNodeString(S);
  if S='' then S:=csNewDefaultTitle;
  if Node.Parent=nil then Id:=0 else Id:=integer(Node.Parent.ItemId);
  PostMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  TitleLabel.Caption:=S;
  Srm.IndexChanged:=true;
end;
//标题排序函数-------------------------------------------------------
procedure TSrmForm.TreeViewCompare(Sender: TObject; Node1,
  Node2: TTreeNode; Data: Integer; var Compare: Integer);
begin
  if Node1.ImageIndex<Node2.ImageIndex then Compare:=-1
  else if Node1.ImageIndex>Node2.ImageIndex then begin Compare:=1 end
  else comPare:=CompareText(Node1.Text,Node2.Text);
end;
//树形视图拖动过程----------------------------------------------------------
procedure TSrmForm.TreeViewDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
Var
   NbPixels:Integer;
   Info:TScrollInfo;
begin
     if Source<>TreeView then
     begin
       Accept:=false;
       exit;
     end;
     GetScrollInfo(TreeView.Handle,SB_VERT,Info);
     if Info.nMin=Info.nMax then exit;
     NbPixels:=Abs(TreeView.Font.Height);

     if (Y<NbPixels) then
     begin
        TreeView.Perform(WM_VSCROLL,SB_LINEUP,0);
        TreeView.Refresh;
     end;

     if (Y>TreeView.Height-NbPixels-16) then
     begin
        TreeView.Perform(WM_VSCROLL,SB_LINEDOWN,0);
        TreeView.Refresh;
     end;
end;
//树形视图拖动结束----------------------------------------------------------
procedure TSrmForm.TreeViewDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  SNode,DNode:TTreeNode;
  Id:integer;
begin
  SNode:=TreeView.Selected;  //得被拖动的标题
  DNode:=TreeView.GetNodeAt(X,Y);  //得坐标处标题
  if DNode<>SNode then
    if DNode=nil then
      SNode.MoveTo(TreeView.Items.GetFirstNode,naAdd)
    else
    begin
      SNode.MoveTo(DNode,naAddChild);
     end;
  if DNode=nil then Id:=0 else Id:=integer(DNode.ItemId);
  SendMessage(TreeView.Handle,TVM_SORTCHILDREN,0,Id);
  srm.IndexChanged:=true;      //置索引改变为真
end;
//树形视图拖动结束----------------------------------------------------------

//节点被扩展前------------------------------------------------------------
procedure TSrmForm.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
var
  ps,UserPs:string;
begin
  AllowExpansion:=true;

  if Node.Data=pointer(-1) then exit;

  UserPs:=Srm.GetItemPassword(integer(Node.Data));
  if UserPs<>'' then
  begin
    with TInpwForm.Create(self) do
    begin
      Caption:=csAppName;
      InputLabel.Caption:=csPasswordTitle;
      if ShowModal=mrCancel then AllowExpansion:=false;
      Ps:=Edit.Text;
      if Ps<>UserPs then
      begin
        if ModalResult<>mrCancel then
          MessageBox(Handle,csPasswordError,csAppName,MB_OK);
        AllowExpansion:=false;
      end;
      Free;
    end;
  end;
end;

//设为标题----------------------------------------------------------
procedure TSrmForm.SetTitlePopMenuItemClick(Sender: TObject);
begin
  TreeView.Selected.Text:=FormatTreeNodeString(RichEdit.SelText);
  Srm.IndexChanged:=true;
  TitleLabel.Caption:=TreeView.Selected.Text;
end;
//设为作者----------------------------------------------------------
procedure TSrmForm.SetAuthorPopMenuItemClick(Sender: TObject);
begin
  ContextAuthorEdit.Text:=RichEdit.SelText;
  Srm.ItemHeadChanged:=true;
end;
//设为关键字--------------------------------------------------------
procedure TSrmForm.SetIndexPopMenuItemClick(Sender: TObject);
var
  TmpStr:string;
  p: pchar;
begin
  TmpStr:=RichEdit.SelText;
  if 51<Length(ContextIndexEdit.Text)+RichEdit.SelLength then
  begin
    Application.MessageBox(csIndexError,csAppName,MB_OK);
    exit;
  end;
  p:=pchar(TmpStr);
  while (p^<#33) and (P^<>#0) do inc(p);
  if ContextIndexEdit.Text<>'' then
    if ContextIndexEdit.Text[Length(ContextIndexEdit.Text)]<>'&' then
      ContextIndexEdit.Text:=ContextIndexEdit.Text+'&';
  ContextIndexEdit.Text:=ContextIndexEdit.Text+string(p);
  Srm.ItemHeadChanged:=true;
end;
//编辑框菜单弹出时--------------------------------------------------
procedure TSrmForm.RichEditPopupMenuPopup(Sender: TObject);
begin
  if Srm=nil then
  begin
    CutPopMenuItem.Enabled:=false;
    CopyPopMenuItem.Enabled:=false;
    PastePopMenuItem.Enabled:=false;
    SetTitlePopMenuItem.Enabled:=false;
    SetIndexPopMenuItem.Enabled:=false;
    SelAllPopMenuItem.Enabled:=false;
    SetAuthorPopMenuItem.Enabled:=false;
    DelSpacePopMenuItem.Enabled:=false;
  end
  else
  begin
    OpenClipboard(Handle);
    if GetClipboardData(CF_TEXT)=0 then  //剪贴板中没有文本时
      PastePopMenuItem.Enabled:=false
    else
      PastePopMenuItem.enabled:=true;
    CloseClipboard;
    if RichEdit.SelLength>=RichEdit.GetTextLen then
      SelAllPopMenuItem.Enabled:=false
    else
      SelAllPopMenuItem.Enabled:=true;
    if richEdit.SelLength<>0 then
    begin
      CutPopMenuItem.Enabled:=true;
      CopyPopMenuItem.Enabled:=true;
      SetTitlePopMenuItem.Enabled:=true;
      SetIndexPopMenuItem.Enabled:=true;
      SetAuthorPopMenuItem.Enabled:=true;
    end
    else
    begin
      CutPopMenuItem.Enabled:=false;
      CopyPopMenuItem.Enabled:=false;
      SetTitlePopMenuItem.Enabled:=false;
      SetIndexPopMenuItem.Enabled:=false;
      SetAuthorPopMenuItem.Enabled:=false;
    end;
    DelSpacePopMenuItem.Enabled:=(RichEdit.Text<>'');
  end;
end;
//剪切标题----------------------------------------------------------
procedure TSrmForm.CutNodePopMenuItemClick(Sender: TObject);
begin
  SrmClip.Cut(TreeView.Selected);
end;
//复制标题----------------------------------------------------------
procedure TSrmForm.CopyNodePopMenuItemClick(Sender: TObject);
begin
  SrmClip.Copy(TreeView.Selected);
end;
//粘贴标题----------------------------------------------------------
procedure TSrmForm.PasteNodePopMenuItemClick(Sender: TObject);
begin
  SrmClip.Paste(TreeView.Selected);
end;
//弹出菜单时的动作--------------------------------------------------------
procedure TSrmForm.TreeViewPopupMenuPopup(Sender: TObject);
begin
  if Srm=nil then
  begin
    DelNodePopMenuItem.Enabled:=false;
    EditNodePopMenuItem.Enabled:=false;
    AddSubNodePopMenuItem.Enabled:=false;
    AddNodePopMenuItem.Enabled:=false;
    CutNodePopMenuItem.Enabled:=false;
    CopyNodePopMenuItem.Enabled:=false;
    PasteNodePopMenuItem.Enabled:=false;
    exit;
  end;

  AddNodePopMenuItem.Enabled:=true;
  if TreeView.Selected=nil then
  begin
    DelNodePopMenuItem.Enabled:=false;
    EditNodePopMenuItem.Enabled:=false;
    AddSubNodePopMenuItem.Enabled:=false;