source: trunk/UFormMain.pas

unit UFormMain;

{$mode Delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ActnList, ComCtrls, StdCtrls, UKConfig, ULastOpenedList, URegistry, MyRegistry,
  UFindFile;

const
  RootKey = HKEY_CURRENT_USER;
  RootPath = '\Software\LinuxBuilder';

type

  { TFormMain }

  TFormMain = class(TForm)
    ACompare: TAction;
    AExit: TAction;
    ASearch: TAction;
    AShowList: TAction;
    AShowLog: TAction;
    AViemSystem: TAction;
    AOpenDir: TAction;
    ActionList1: TActionList;
    ImageList1: TImageList;
    LastOpenedListOpen: TLastOpenedList;
    LastOpenedListCompare: TLastOpenedList;
    MainMenu1: TMainMenu;
    Memo1: TMemo;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItemArch: TMenuItem;
    MenuItemCompareRecent: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    MenuItemOpenRecent: TMenuItem;
    PopupMenuCompareRecent: TPopupMenu;
    PopupMenuOpenRecent: TPopupMenu;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    TreeView1: TTreeView;
    procedure ACompareExecute(Sender: TObject);
    procedure AExitExecute(Sender: TObject);
    procedure AOpenDirExecute(Sender: TObject);
    procedure ASearchExecute(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 FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure LastOpenedListCompareChange(Sender: TObject);
    procedure LastOpenedListOpenChange(Sender: TObject);
    procedure TreeView1SelectionChanged(Sender: TObject);
  private
    procedure DoLog(Text: string);
    procedure OpenDir(Dir: string);
    procedure CompareDir(Dir: string);
    procedure ReloadArch(Dir: string);
    procedure MenuItemArchExecute(Sender: TObject);
  public
    AutoOpen: Boolean;
    Config: TConfigMenu;
    procedure Reload;
    procedure UpdateInterface;
    procedure FocusTreeNode(Node: TMenuNode);
  end;

var
  FormMain: TFormMain;

implementation

uses
  UFormList, UFormLog, UFormCompare, UFormSearch;

{$R *.lfm}

{ TFormMain }

procedure TFormMain.FormShow(Sender: TObject);
begin
  AutoOpen := True;
  LastOpenedListOpen.LoadFromRegistry(RegContext(RootKey, RootPath + '\OpenRecent'));
  LastOpenedListCompare.LoadFromRegistry(RegContext(RootKey, RootPath + '\CompareRecent'));
  if AutoOpen and (LastOpenedListOpen.Items.Count > 0) then
    OpenDir(LastOpenedListOpen.Items[0])
    else Reload;
end;

procedure TFormMain.LastOpenedListCompareChange(Sender: TObject);
begin
  LastOpenedListOpen.LoadToMenuItem(MenuItemCompareRecent, ACompareExecute);
  LastOpenedListOpen.LoadToMenuItem(PopupMenuCompareRecent.Items, ACompareExecute);
end;

procedure TFormMain.LastOpenedListOpenChange(Sender: TObject);
begin
  LastOpenedListOpen.LoadToMenuItem(MenuItemOpenRecent, AOpenDirExecute);
  LastOpenedListOpen.LoadToMenuItem(PopupMenuOpenRecent.Items, AOpenDirExecute);
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;

procedure TFormMain.OpenDir(Dir: string);
begin
  Config.LoadFromDir(Dir);
  LastOpenedListOpen.AddItem(Dir);
  Reload;
  UpdateInterface;
end;

procedure TFormMain.CompareDir(Dir: string);
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(Dir);
    Config2.TopNode.SaveToList(List2);
    Config.CompareStringLists(List1, List2, Missing1, Missing2);
    Config2.OptionListNames(Missing1);
    Config.OptionListNames(Missing2);
    Missing1.Sort;
    Missing2.Sort;
    FormCompare.Memo1.Lines.Assign(Missing1);
    FormCompare.Memo2.Lines.Assign(Missing2);
    FormCompare.Memo3.Lines.Assign(List1);
    FormCompare.Memo4.Lines.Assign(List2);
    FormCompare.Show;
  finally
    Config2.Free;
    Missing1.Free;
    Missing2.Free;
    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;

procedure TFormMain.Reload;
var
  Options: TLoadTreeOptions;
begin
  TreeView1.Items.Clear;
  if Assigned(Config.TopNode) then begin
    TreeView1.Items.AddChild(nil, Config.TopNode.GetName);
    Options := [];
    if AViemSystem.Checked then Include(Options, toShowSystem);
    Config.TopNode.LoadTreeNode(TreeView1.TopItem, Options);
    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 := '';
  end;
end;

procedure TFormMain.UpdateInterface;
begin
  Caption :=  Config.BaseDir + ' - ' + Application.Title;
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
  OutDir: string;
begin
  if Sender is TMenuItem then begin
    OpenDir(TMenuItem(Sender).Caption);
  end else begin
    if SelectDirectory('Select Linux source directory', Config.BaseDir, OutDir) then begin
      OpenDir(OutDir);
    end;
  end;
end;

procedure TFormMain.ASearchExecute(Sender: TObject);
begin
  FormSearch.Show;
end;

procedure TFormMain.ACompareExecute(Sender: TObject);
var
  OutDir: string;
begin
  if Sender is TMenuItem then begin
    CompareDir(TMenuItem(Sender).Caption);
  end else begin
    if SelectDirectory('Select Linux source directory for compare', Config.BaseDir, OutDir) then begin
      CompareDir(OutDir);
    end;
  end;
end;

procedure TFormMain.AExitExecute(Sender: TObject);
begin
  FormMain.Close;
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
  AViemSystem.Checked := not AViemSystem.Checked;
  Reload;
end;

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  LastOpenedListOpen.SaveToRegistry(RegContext(RootKey, RootPath + '\OpenRecent'));
  LastOpenedListCompare.SaveToRegistry(RegContext(RootKey, RootPath + '\CompareRecent'));
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Config := TConfigMenu.Create;
  Config.OnLog := DoLog;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Config);
end;

end.