source: trunk/Forms/UFormProjectGroup.pas

unit UFormProjectGroup;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  Menus, ActnList, UProject, LazFileUtils;

type

  { TFormProjectGroup }

  TFormProjectGroup = class(TForm)
    AAdd: TAction;
    AModify: TAction;
    ARemove: TAction;
    ActionList1: TActionList;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    PopupMenu1: TPopupMenu;
    TreeView1: TTreeView;
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    procedure ReloadTree;
    procedure UpdateInterface;
  end;

var
  FormProjectGroup: TFormProjectGroup;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormProjectGroup }

procedure TFormProjectGroup.FormShow(Sender: TObject);
begin
  ReloadTree;
end;

procedure TFormProjectGroup.ReloadTree;
var
  I: Integer;
begin
  TreeView1.Items.Clear;
  if Assigned(Core.ProjectGroup) then begin
    TreeView1.Items.AddChild(nil, ExtractFileNameOnly(Core.ProjectGroup.FileName));
    for I := 0 to Core.ProjectGroup.Projects.Count - 1 do
      TreeView1.Items.AddChildObject(TreeView1.TopItem,
        ExtractFileName(TProject(Core.ProjectGroup.Projects[I]).Directory),
        Core.ProjectGroup.Projects[I]);
  end;
  UpdateInterface;
end;

procedure TFormProjectGroup.UpdateInterface;
begin
  AModify.Enabled := Assigned(TreeView1.Selected);
  ARemove.Enabled := Assigned(TreeView1.Selected);
end;

end.