Changeset 6 for trunk/UFormMain.pas

Timestamp:

May 2, 2014, 2:12:56 AM (10 years ago)

Author:

chronos

Message:

• Added: Search form for searching configuration tree.
• Modified: Better menu category creation. Still not correct.
• Added: Detect kernel version from Makefile.

File:

• trunk/UFormMain.pas (modified) (6 diffs)

trunk/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ACompare: TAction;
+    ASearch: TAction;
     AShowList: TAction;
     AShowLog: TAction;
@@ -30 +31 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
     StatusBar1: TStatusBar;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
     ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
     TreeView1: TTreeView;
     procedure ACompareExecute(Sender: TObject);
     procedure AOpenDirExecute(Sender: TObject);
+    procedure ASearchExecute(Sender: TObject);
     procedure AShowListExecute(Sender: TObject);
     procedure AShowLogExecute(Sender: TObject);
@@ -49 +54 @@
     Config: TConfigMenu;
     procedure Reload;
+    procedure FocusTreeNode(Node: TMenuNode);
   end;
 
@@ -57 +63 @@
 
 uses
-  UFormList, UFormLog, UFormCompare;
+  UFormList, UFormLog, UFormCompare, UFormSearch;
 
 {$R *.lfm}
@@ -96 +102 @@
 end;
 
+procedure TFormMain.FocusTreeNode(Node: TMenuNode);
+var
+  TreeNode: TTreeNode;
+begin
+  TreeNode := TreeView1.Items.FindNodeWithData(Node);
+  if Assigned(TreeNode) then begin
+    TreeNode.Selected := True;
+    TreeNode.ExpandParents;
+  end;
+end;
+
 procedure TFormMain.AOpenDirExecute(Sender: TObject);
 var
@@ -104 +121 @@
     Reload;
   end;
+end;
+
+procedure TFormMain.ASearchExecute(Sender: TObject);
+begin
+  FormSearch.Show;
 end;