Changeset 15 for trunk/UFormMain.pas

Timestamp:

May 21, 2014, 5:33:14 PM (10 years ago)

Author:

chronos

Message:

• Added: Architecture selection through main menu item Architecture.
• Added: In comparison show also full ID list for both configuration.

File:

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

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, MyRegistry;
+  ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, MyRegistry,
+  UFindFile;
 
 const
@@ -33 +34 @@
     MenuItem1: TMenuItem;
     MenuItem10: TMenuItem;
+    MenuItemArch: TMenuItem;
+    MenuItem12: TMenuItem;
     MenuItemCompareRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -72 +75 @@
     procedure OpenDir(Dir: string);
     procedure CompareDir(Dir: string);
+    procedure ReloadArch(Dir: string);
+    procedure MenuItemArchExecute(Sender: TObject);
   public
     AutoOpen: Boolean;
@@ -156 +161 @@
     FormCompare.Memo1.Lines.Assign(Missing1);
     FormCompare.Memo2.Lines.Assign(Missing2);
+    FormCompare.Memo3.Lines.Assign(List1);
+    FormCompare.Memo4.Lines.Assign(List2);
     FormCompare.Show;
   finally
@@ -163 +170 @@
     List1.Free;
     List2.Free;
+  end;
+end;
+
+procedure TFormMain.ReloadArch(Dir: string);
+var
+  FindFile: TFindFile;
+  List: TStringList;
+  I: Integer;
+  NewMenuItem: TMenuItem;
+  DirName: string;
+begin
+  try
+    FindFile := TFindFile.Create(nil);
+    FindFile.FileAttr := [ffaDirectory];
+    FindFile.Path := Dir;
+    FindFile.FileMask := '*';
+    List := FindFile.SearchForFiles;
+    MenuItemArch.Clear;
+    for I := 0 to List.Count - 1 do begin
+      DirName := ExtractFileName(List[I]);
+      if (DirName <> '..') and (DirName <> '.') and
+        FileExists(List[I] + DirectorySeparator + 'Kconfig') then begin
+        NewMenuItem := TMenuItem.Create(MenuItemArch);
+        NewMenuItem.Caption := DirName;
+        NewMenuItem.OnClick := MenuItemArchExecute;
+        if Config.Arch = DirName then NewMenuItem.Checked := True;
+        MenuItemArch.Add(NewMenuItem);
+      end;
+    end;
+  finally
+    FindFile.Free;
+  end
+end;
+
+procedure TFormMain.MenuItemArchExecute(Sender: TObject);
+begin
+  if Sender is TMenuItem then begin
+    Config.Arch := TMenuItem(Sender).Caption;
+    Reload;
   end;
 end;
@@ -178 +224 @@
     TreeView1.TopItem.Expanded := True;
     StatusBar1.Panels[0].Text := 'Count: ' + IntToStr(Config.TopNode.GetCount);
+    ReloadArch(Config.BaseDir + DirectorySeparator + 'arch');
   end else begin
     StatusBar1.Panels[0].Text := '';