Changeset 5 for trunk/UFormMain.pas

Timestamp:

May 1, 2014, 11:31:03 PM (10 years ago)

Author:

chronos

Message:

• Added: Compare form to show differences between two linux versions.
• Added: Faster binary search through TConfigMenu tree.
• Added: Some actions icons.

File:

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

trunk/UFormMain.pas

@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    ACompare: TAction;
     AShowList: TAction;
     AShowLog: TAction;
@@ -28 +29 @@
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     StatusBar1: TStatusBar;
     ToolBar1: TToolBar;
@@ -33 +35 @@
     ToolButton2: TToolButton;
     TreeView1: TTreeView;
+    procedure ACompareExecute(Sender: TObject);
     procedure AOpenDirExecute(Sender: TObject);
     procedure AShowListExecute(Sender: TObject);
@@ -54 +57 @@
 
 uses
-  UFormList, UFormLog;
+  UFormList, UFormLog, UFormCompare;
 
 {$R *.lfm}
@@ -90 +93 @@
   Config.TopNode.LoadTreeNode(TreeView1.TopItem, Options);
   TreeView1.TopItem.Expanded := True;
+  StatusBar1.Panels[0].Text := 'Count: ' + IntToStr(Config.TopNode.GetCount);
 end;
 
@@ -99 +103 @@
     Config.LoadFromDir(OutDir, 'x86');
     Reload;
+  end;
+end;
+
+procedure TFormMain.ACompareExecute(Sender: TObject);
+var
+  List1, List2: TStringList;
+  Missing1, Missing2: TStringList;
+  Config2: TConfigMenu;
+begin
+  try
+    List1 := TStringList.Create;
+    List2 := TStringList.Create;
+    Missing1 := TStringList.Create;
+    Missing2 := TStringList.Create;
+    Config2 := TConfigMenu.Create;
+    Config.TopNode.SaveToList(List1);
+    Config2.LoadFromDir('/home/chronos/Stažené/linux-3.12.18', 'x86');
+    Config2.TopNode.SaveToList(List2);
+    Config.CompareStringLists(List1, List2, Missing1, Missing2);
+    FormCompare.Memo1.Lines.Assign(Missing1);
+    FormCompare.Memo2.Lines.Assign(Missing2);
+    FormCompare.Show;
+  finally
+    Config2.Free;
+    Missing1.Free;
+    Missing2.Free;
+    List1.Free;
+    List2.Free;
   end;
 end;