Changeset 5 for trunk/UFormMain.pas
- Timestamp:
- May 1, 2014, 11:31:03 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UFormMain.pas
r4 r5 14 14 15 15 TFormMain = class(TForm) 16 ACompare: TAction; 16 17 AShowList: TAction; 17 18 AShowLog: TAction; … … 28 29 MenuItem5: TMenuItem; 29 30 MenuItem6: TMenuItem; 31 MenuItem7: TMenuItem; 30 32 StatusBar1: TStatusBar; 31 33 ToolBar1: TToolBar; … … 33 35 ToolButton2: TToolButton; 34 36 TreeView1: TTreeView; 37 procedure ACompareExecute(Sender: TObject); 35 38 procedure AOpenDirExecute(Sender: TObject); 36 39 procedure AShowListExecute(Sender: TObject); … … 54 57 55 58 uses 56 UFormList, UFormLog ;59 UFormList, UFormLog, UFormCompare; 57 60 58 61 {$R *.lfm} … … 90 93 Config.TopNode.LoadTreeNode(TreeView1.TopItem, Options); 91 94 TreeView1.TopItem.Expanded := True; 95 StatusBar1.Panels[0].Text := 'Count: ' + IntToStr(Config.TopNode.GetCount); 92 96 end; 93 97 … … 99 103 Config.LoadFromDir(OutDir, 'x86'); 100 104 Reload; 105 end; 106 end; 107 108 procedure TFormMain.ACompareExecute(Sender: TObject); 109 var 110 List1, List2: TStringList; 111 Missing1, Missing2: TStringList; 112 Config2: TConfigMenu; 113 begin 114 try 115 List1 := TStringList.Create; 116 List2 := TStringList.Create; 117 Missing1 := TStringList.Create; 118 Missing2 := TStringList.Create; 119 Config2 := TConfigMenu.Create; 120 Config.TopNode.SaveToList(List1); 121 Config2.LoadFromDir('/home/chronos/Stažené/linux-3.12.18', 'x86'); 122 Config2.TopNode.SaveToList(List2); 123 Config.CompareStringLists(List1, List2, Missing1, Missing2); 124 FormCompare.Memo1.Lines.Assign(Missing1); 125 FormCompare.Memo2.Lines.Assign(Missing2); 126 FormCompare.Show; 127 finally 128 Config2.Free; 129 Missing1.Free; 130 Missing2.Free; 131 List1.Free; 132 List2.Free; 101 133 end; 102 134 end;
Note:
See TracChangeset
for help on using the changeset viewer.