Changeset 4 for trunk/UFormMain.pas

Timestamp:

May 1, 2014, 7:29:12 PM (10 years ago)

Author:

chronos

Message:

• Added: Rearrange items in tree according Depends and Condition.
• Fixed: Wrong parsing multiline commands.
• Added: Log and option list forms.

File:

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

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls, UKConfig;
+  ActnList, ComCtrls, StdCtrls, UKConfig;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    AShowList: TAction;
+    AShowLog: TAction;
     AViemSystem: TAction;
     AOpenDir: TAction;
@@ -19 +21 @@
     ImageList1: TImageList;
     MainMenu1: TMainMenu;
+    Memo1: TMemo;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
     StatusBar1: TStatusBar;
     ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
     ToolButton2: TToolButton;
     TreeView1: TTreeView;
     procedure AOpenDirExecute(Sender: TObject);
+    procedure AShowListExecute(Sender: TObject);
+    procedure AShowLogExecute(Sender: TObject);
     procedure AViemSystemExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure TreeView1SelectionChanged(Sender: TObject);
   private
-    { private declarations }
+    procedure DoLog(Text: string);
   public
     Config: TConfigMenu;
@@ -44 +53 @@
 implementation
 
+uses
+  UFormList, UFormLog;
+
 {$R *.lfm}
 
@@ -52 +64 @@
   Config.LoadFromDir('/home/chronos/Stažené/linux-3.14.1', 'x86');
   Reload;
+end;
+
+procedure TFormMain.TreeView1SelectionChanged(Sender: TObject);
+begin
+  if Assigned(TreeView1.Selected) then begin
+    if Assigned(TreeView1.Selected.Data) then
+      TMenuNode(TreeView1.Selected.Data).LoadStats(Memo1.Lines)
+      else Memo1.Lines.Clear;
+  end;
+end;
+
+procedure TFormMain.DoLog(Text: string);
+begin
+  FormLog.Memo1.Lines.Add(Text);
 end;
 
@@ -76 +102 @@
 end;
 
+procedure TFormMain.AShowListExecute(Sender: TObject);
+begin
+  FormList.Show;
+end;
+
+procedure TFormMain.AShowLogExecute(Sender: TObject);
+begin
+  FormLog.Show;
+end;
+
 procedure TFormMain.AViemSystemExecute(Sender: TObject);
 begin
@@ -85 +121 @@
 begin
   Config := TConfigMenu.Create;
+  Config.OnLog := DoLog;
 end;