lazarus/components/projectgroups/projectgroupeditor.pas

unit ProjectGroupEditor;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, Menus,
  ActnList, LazIDEIntf, PackageIntf, ProjectIntf, ProjectGroupIntf, MenuIntf,
  IDEDialogs, LazFileUtils, ProjectGroup;

type
  TNodeType = (ntUnknown,
               ntProjectGroup,
               ntTargets,
               ntRemovedTargets,
               ntTarget,
               ntRemovedTarget,
               ntFiles,
               ntFile,
               ntRemovedFiles,
               ntRemovedFile,
               ntDependencies,
               ntDependency,
               ntRemovedDependencies,
               ntRemovedDependency);

  TNodeData = Class(TObject)
    NodeType : TNodeType;
    Target : TCompileTarget;
    ProjectGroup : TProjectGroup; // projectgroup to which target belongs
  end;
  TTargetNodes = Array[Boolean] of TTreeNode;

  { TProjectGroupEditorForm }

  TProjectGroupEditorForm = class(TForm)
    AProjectGroupAddExisting: TAction;
    ATargetCompile: TAction;
    ATargetCompileClean: TAction;
    AProjectGroupAddNew: TAction;
    ATargetActivate: TAction;
    ATargetOpen: TAction;
    AProjectGroupSaveAs: TAction;
    ATargetUninstall: TAction;
    ATargetInstall: TAction;
    ATargetRun: TAction;
    ATargetProperties: TAction;
    ATargetLater: TAction;
    ATargetEarlier: TAction;
    AProjectGroupDelete: TAction;
    AProjectGroupSave: TAction;
    ALPG: TActionList;
    ILPG: TImageList;
    PMIOPen: TMenuItem;
    PMISaveAs: TMenuItem;
    PMIProperties: TMenuItem;
    PMILater: TMenuItem;
    PMIEarlier: TMenuItem;
    PMIDelete: TMenuItem;
    PMICompileClean: TMenuItem;
    PMICompile: TMenuItem;
    ODTarget: TOpenDialog;
    PMMore: TPopupMenu;
    PMProjectGroup: TPopupMenu;
    SDPG: TSaveDialog;
    SBPG: TStatusBar;
    TBProjectGroup: TToolBar;
    TBSave: TToolButton;
    TBAdd: TToolButton;
    TBNewTarget: TToolButton;
    TBDelete: TToolButton;
    TBCompile: TToolButton;
    TBCompileClean: TToolButton;
    ToolButton1: TToolButton;
    TBTargetUp: TToolButton;
    TBTargetLater: TToolButton;
    TBMore: TToolButton;
    TBActivate: TToolButton;
    TVPG: TTreeView;
    procedure ATargetActivateExecute(Sender: TObject);
    procedure ATargetActivateUpdate(Sender: TObject);
    procedure AProjectGroupAddExistingExecute(Sender: TObject);
    procedure ATargetCompileCleanExecute(Sender: TObject);
    procedure ATargetCompileCleanUpdate(Sender: TObject);
    procedure ATargetCompileExecute(Sender: TObject);
    procedure ATargetCompileUpdate(Sender: TObject);
    procedure AProjectGroupDeleteExecute(Sender: TObject);
    procedure AProjectGroupDeleteUpdate(Sender: TObject);
    procedure ATargetInstallExecute(Sender: TObject);
    procedure ATargetInstallUpdate(Sender: TObject);
    procedure ATargetOpenExecute(Sender: TObject);
    procedure ATargetOpenUpdate(Sender: TObject);
    procedure ATargetPropertiesExecute(Sender: TObject);
    procedure ATargetPropertiesUpdate(Sender: TObject);
    procedure ATargetRunExecute(Sender: TObject);
    procedure ATargetRunUpdate(Sender: TObject);
    procedure AProjectGroupSaveAsExecute(Sender: TObject);
    procedure AProjectGroupSaveExecute(Sender: TObject);
    procedure AProjectGroupSaveUpdate(Sender: TObject);
    procedure ATargetEarlierExecute(Sender: TObject);
    procedure ATargetEarlierUpdate(Sender: TObject);
    procedure ATargetLaterExecute(Sender: TObject);
    procedure ATargetLaterUpdate(Sender: TObject);
    procedure ATargetUninstallExecute(Sender: TObject);
    procedure ATargetUninstallUpdate(Sender: TObject);
    procedure DoFileNameChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TVPGDblClick(Sender: TObject);
  private
    FProjectGroup: TProjectGroup;
    FProjectGroupTarget : TCompileTarget;
    FNPG : TTreeNode;
    FActiveTarget : TCompileTarget;
    FTargetNodes : TTargetNodes;
    // Project group callbacks
    Procedure ConfigNode(Node: TTreeNode; Const ACaption: String;
      ANodeData: TNodeData);
    Procedure DoTargetAdded(Sender: TObject; Target: TCompileTarget);
    Procedure DoTargetDeleted(Sender: TObject; Target: TCompileTarget);
    Procedure DoTargetActivated(Sender: TObject; Target: TCompileTarget);
    Procedure DoTargetExchanged(Sender: TObject; Target1,Target2: TCompileTarget);
    function AllowPerform(ATargetAction: TTargetAction; AAction: TAction= Nil): Boolean;
    procedure ClearEventCallBacks(AProjectGroup : TProjectGroup);
    procedure SetEventCallBacks(AProjectGroup : TProjectGroup);
    // Some helpers
    procedure SetProjectGroup(AValue: TProjectGroup);
    Procedure ShowDependencies(AParent: TTreeNode; AProjectGroup: TProjectGroup; T: TObject; Out PD: TTargetNodes);
    Procedure ShowFileName;
    procedure Perform(ATargetAction: TTargetAction);
    function GetActiveTarget: TCompileTarget;
    // Treeview Node management
    Function FindNodeFromTarget(ATarget: TCompileTarget): TTreeNode;
    Procedure FreeNodeData;
    Class Function TargetFromNode(N : TTreeNode) : TCompileTarget;
    Function DisplayFileName(AProjectGroup : TProjectGroup;NodeType: TNodeType; AFileName: String): String;
    Function CreateNode(AParent: TTreeNode; Const ACaption: String; ANodeType: TNodeType; ANodeData: TCompileTarget; AProjectGroup : TProjectGroup): TTreeNode;
    Procedure FillPackageNode(AParent: TTreeNode; AProjectGroup : TProjectGroup; T: TIDEPackage);
    Procedure FillProjectNode(AParent: TTreeNode; AProjectGroup : TProjectGroup; T: TLazProject);
    Procedure FillTargetNode(AParent: TTreeNode; AProjectGroup : TProjectGroup; T: TCompileTarget);
    Procedure FillProjectGroupNode(AParent: TTreeNode; AProjectGroup: TProjectGroup; Out TargetNodes: TTargetNodes);
    Function GetNodeIndex(ANodeType: TNodeType; ANodeData: TCompileTarget ): Integer;
    Function SelectedNodeData : TNodeData;
    Function SelectedTarget : TCompileTarget;
    Function SelectedNodeType : TCompileTarget;
    procedure UpdateIDEMenuCommandFromAction(Sender: TObject; Item: TIDEMenuCommand);
    { private declarations }
  protected
    Procedure Localize;
    Procedure ShowProjectGroup;
  public
    { public declarations }
    Property ProjectGroup : TProjectGroup Read FProjectGroup Write SetProjectGroup;
    Property ActiveTarget : TCompileTarget Read GetActiveTarget;
  end;

var
  ProjectGroupEditorForm: TProjectGroupEditorForm;

Procedure SetProjectGroupEditorCallBack;

implementation

{$R *.lfm}

Resourcestring
  lisProjectGroup            = 'Project Group %s';
  lisNewProjectGroup         = 'New Project group';
  lisNodeTargets             = 'Targets';
  lisNodeRemovedTargets      = 'Removed Targets';
  lisNodeFiles               = 'Files';
  lisNodeRemovedFiles        = 'Removed files';
  lisNodeDependencies        = 'Dependencies';
  lisNodeRemovedDependencies = 'Removed Dependencies';
  lisTargetCount             = '%d targets';
  lisActiveTarget            = 'Target: %s';

  lisProjectGroupSaveCaption   = 'Save';
  lisProjectGroupSaveHint      = 'Save project group';
  lisProjectGroupSaveAsCaption = 'Save As';
  lisProjectGroupSaveAsHint    = 'Save project group with a new name';
  lisProjectGroupAddExistingCaption = 'Add';
  lisProjectGroupAddExistingHint    = 'Add existing target to project group';
  lisProjectGroupDeleteCaption = 'Remove';
  lisProjectGroupDeleteHint    = 'Remove target from project group';
  lisProjectGroupAddNewCaption = 'New';
  lisProjectGroupAddNewHint    = 'Add new target to project group';
  lisTargetEarlierCaption      = 'Earlier';
  lisTargetEarlierHint         = 'Build target earlier';
  lisTargetLaterCaption        = 'Later';
  lisTargetLaterHint           = 'Build target later';
  lisTargetCompileCaption      = 'Compile';
  lisTargetCompileHint         = 'Compile selected target';
  lisTargetCompileCleanCaption = 'Compile Clean';
  lisTargetCompileCleanHint    = 'Compile selected target clean';
  lisTargetPropertiesCaption   = 'Properties';
  lisTargetPropertiesHint      = 'Show property dialog for selected target';
  lisTargetRunCaption          = 'Run';
  lisTargetRunHint             = 'Run selected target';
  lisTargetInstallCaption      = 'Install';
  lisTargetInstallHint         = 'Install selected target';
  lisTargetUninstallCaption    = 'Uninstall';
  lisTargetUninstallHint       = 'Uninstall selected target';
  lisTargetActivateCaption     = 'Activate';
  lisTargetActivateHint        = 'Activate selected target';
  lisTargetOpenCaption         = 'Open';
  lisTargetOpenHint            = 'Open selected target';

Var
  // Nodelist image indexes
  NIProjectGroup              : integer = 0;
  NITargets                   : integer = 1;
  NIRemovedTargerts           : integer = 2;
  NITargetProject             : integer = 3;
  NITargetPackage             : integer = 4;
  NITargetProjectGroup        : integer = 5;
  NIRemovedTargetProject      : integer = 3;
  NIRemovedTargetPackage      : integer = 4;
  NIRemovedTargetProjectGroup : integer = 5;
  NIFiles                     : integer = 16;
  NIFile                      : integer = 17;
  NIRemovedFiles              : integer = 18;
  NIRemovedFile               : integer = 17;
  NIDependencies              : integer = 1;
  NIDependency                : integer = 1;
  NIRemovedDependencies       : integer = 2;
  NIRemovedDependency         : integer = 2;

  // Node state image index
  NSIActive                   : Integer = 20; // State index for active.

  // Action image indexes
  iiProjectGroupSave          : Integer = -1;
  iiProjectGroupSaveAs        : Integer = -1;
  iiProjectGroupAddExisting   : Integer = -1;
  iiProjectGroupDelete        : Integer = -1;
  iiProjectGroupAddNew        : Integer = -1;
  iiTargetEarlier             : Integer = -1;
  iiTargetLater               : Integer = -1;
  iiTargetCompile             : Integer = -1;
  iiTargetCompileClean        : Integer = -1;
  iiTargetProperties          : Integer = -1;
  iiTargetRun                 : Integer = -1;
  iiTargetInstall             : Integer = -1;
  iiTargetUninstall           : Integer = -1;
  iiTargetActivate            : Integer = -1;
  iiTargetOpen                : Integer = -1;

Const
  // Status bar Panel indexes
  piTargetCount  = 0;
  piActiveTarget = 1;

Procedure EditProjectGroup(AProjectGroup : TProjectGroup; Options : TEditProjectGroupOptions);

begin
  if epgoReusewindow in Options then
    begin
    If Not Assigned(ProjectGroupEditorForm) then
      ProjectGroupEditorForm:=TProjectGroupEditorForm.Create(Application);
    ProjectGroupEditorForm.ProjectGroup:=AProjectGroup;
    ProjectGroupEditorForm.Show;
    end
  else
    With TProjectGroupEditorForm.Create(Nil) do
      begin
      ProjectGroup:=AProjectGroup;
      Show;
      end;
end;

Procedure SetProjectGroupEditorCallBack;

begin
  OnEditProjectGroup:=@EditProjectGroup;
end;

{ TProjectGroupEditorForm }

procedure TProjectGroupEditorForm.ClearEventCallBacks(AProjectGroup : TProjectGroup);

Var
  PG : TIDEProjectGroup;
begin
  if AProjectGroup is  TIDEProjectGroup then
    PG:=AProjectGroup as  TIDEProjectGroup
  else
    exit;
  PG.OnFileNameChange:=Nil;
  PG.OnTargetAdded:=Nil;
  PG.OnTargetDeleted:=Nil;
  PG.OnTargetActivated:=Nil;
  PG.OnTargetsExchanged:=Nil;
end;

procedure TProjectGroupEditorForm.SetEventCallBacks(AProjectGroup : TProjectGroup);

Var
  PG : TIDEProjectGroup;
begin
  if AProjectGroup is  TIDEProjectGroup then
    PG:=AProjectGroup as  TIDEProjectGroup
  else
    exit;
  PG.OnFileNameChange:=@DoFileNameChange;
  PG.OnTargetAdded:=@DoTargetAdded;
  PG.OnTargetDeleted:=@DoTargetDeleted;
  PG.OnTargetActivated:=@DoTargetActivated;
  PG.OnTargetsExchanged:=@DoTargetExchanged;
end;


procedure TProjectGroupEditorForm.SetProjectGroup(AValue: TProjectGroup);
begin
  if FProjectGroup=AValue then Exit;
  ClearEventCallBacks(FProjectGroup);
  FreeAndNil(FProjectGroupTarget);
  FProjectGroup:=AValue;
  SetEventCallBacks(FProjectGroup);
  FProjectGroupTarget:=TProjectGroupTarget.Create(AValue);
  FActiveTarget:=Nil;
  ShowProjectGroup;
end;

Procedure TProjectGroupEditorForm.Localize;

  Procedure ConfigAction(A : TAction; AImageIndex : Integer; Const ACaption,AHint : String; Mnu : TIDEMenuCommand);

  begin
    A.Caption:=ACaption;
    A.Hint:=AHint;
    if AImageIndex<>-1 then
      A.ImageIndex:=AImageIndex;
    If Assigned(mnu) then
      Mnu.OnClick:=A.OnExecute; // ToDo Enabled and visible don't play well with actions...
  end;

begin
  ConfigAction(AProjectGroupSave,iiProjectGroupSave,lisProjectGroupSaveCaption,lisProjectGroupSaveHint,Nil);
  ConfigAction(AProjectGroupSaveAs,iiProjectGroupSaveAs,lisProjectGroupSaveAsCaption,lisProjectGroupSaveAsHint,Nil);
  ConfigAction(AProjectGroupAddExisting,iiProjectGroupAddExisting,lisProjectGroupAddExistingCaption,lisProjectGroupAddExistingHint,Nil);
  ConfigAction(AProjectGroupDelete,iiProjectGroupDelete,lisProjectGroupDeleteCaption,lisProjectGroupDeleteHint,Nil);
  ConfigAction(AProjectGroupAddNew,iiProjectGroupAddNew,lisProjectGroupAddNewCaption,lisProjectGroupAddNewHint,Nil);
  ConfigAction(ATargetEarlier,iiTargetEarlier,lisTargetEarlierCaption,lisTargetEarlierHint,Nil);
  ConfigAction(ATargetLater,iiTargetLater,lisTargetLaterCaption,lisTargetLaterHint,Nil);
  ConfigAction(ATargetCompile,iiTargetCompile,lisTargetCompileCaption,lisTargetCompileHint,Nil);
  ConfigAction(ATargetCompileClean,iiTargetCompileClean,lisTargetCompileCleanCaption,lisTargetCompileCleanHint,Nil);
  ConfigAction(ATargetProperties,iiTargetProperties,lisTargetPropertiesCaption,lisTargetPropertiesHint,Nil);
  ConfigAction(ATargetRun,iiTargetRun,lisTargetRunCaption,lisTargetRunHint,Nil);
  ConfigAction(ATargetInstall,iiTargetInstall,lisTargetInstallCaption,lisTargetInstallHint,Nil);
  ConfigAction(ATargetUninstall,iiTargetUninstall,lisTargetUninstallCaption,lisTargetUninstallHint,Nil);
  ConfigAction(ATargetActivate,iiTargetActivate,lisTargetActivateCaption,lisTargetActivateHint,Nil);
  ConfigAction(ATargetOpen,iiTargetOpen,lisTargetOpenCaption,lisTargetOpenHint,Nil);
end;

procedure TProjectGroupEditorForm.AProjectGroupSaveUpdate(Sender: TObject);
begin
  (Sender as TAction).Enabled:=FProjectGroup.Modified or (FProjectGroup.FileName='');
  UpdateIDEMenuCommandFromAction(Sender,cmdSaveProjectGroup);
end;

procedure TProjectGroupEditorForm.ATargetEarlierExecute(Sender: TObject);

Var
  T : TNodeData;
  I,J : Integer;

begin
  T:=SelectedNodeData;
  If not Assigned(T) then
    exit;
  I:=T.ProjectGroup.IndexOfTarget(T.Target);
  J:=I-1;
  // Find previous not removed target
  While (J>=0) and (T.ProjectGroup.Targets[J].Removed) do
    Dec(J);
  if J>=0 then
    T.ProjectGroup.ExchangeTargets(I,J);
end;

procedure TProjectGroupEditorForm.ATargetEarlierUpdate(Sender: TObject);

Var
  T : TNodeData;
  I : Integer;
  B : Boolean;

begin
  I:=-1;
  T:=SelectedNodeData;
  B:=Assigned(T) and (T.NodeType=ntTarget) and Assigned(T.Target);
  If B then
    begin
    I:=T.ProjectGroup.IndexOfTarget(T.Target)-1;
    // Find previous not removed target
    While (I>=0) and (T.ProjectGroup.Targets[i].Removed) do
      Dec(I);
    B:=(I>=0)
    end;
  (Sender as TAction).Enabled:=B;
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetEarlier);
end;

procedure TProjectGroupEditorForm.ATargetLaterExecute(Sender: TObject);
Var
  T : TNodeData;
  I,J : Integer;

begin
  T:=SelectedNodeData;
  If Not Assigned(T) then
    exit;
  I:=T.ProjectGroup.IndexOfTarget(T.Target);
  J:=I+1;
  // Find next not removed target
  While (J<T.ProjectGroup.TargetCount) and (T.ProjectGroup.Targets[J].Removed) do
    Inc(J);
  if (J<T.ProjectGroup.TargetCount) then
    T.ProjectGroup.ExchangeTargets(I,J);
end;

procedure TProjectGroupEditorForm.ATargetLaterUpdate(Sender: TObject);
Var
  T : TNodeData;
  I : Integer;
  B : Boolean;

begin
  T:=SelectedNodeData;
  B:=Assigned(T) and (T.NodeType=ntTarget) and Assigned(T.Target);
  if B then
    begin
    I:=T.ProjectGroup.IndexOfTarget(T.Target)+1;
    // Find next not removed target
    While (I<T.ProjectGroup.TargetCount) and (T.ProjectGroup.Targets[i].Removed) do
      Inc(I);
    B:=(I<T.ProjectGroup.TargetCount);
    end;
  (Sender as TAction).Enabled:=B;
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetLater);
end;

procedure TProjectGroupEditorForm.ATargetUninstallExecute(Sender: TObject);
begin
  Perform(taInstall);
end;

procedure TProjectGroupEditorForm.ATargetUninstallUpdate(Sender: TObject);
begin
  AllowPerform(taUninstall,Sender as TAction);
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetUninstall);
end;

procedure TProjectGroupEditorForm.DoFileNameChange(Sender: TObject);
begin
  ShowFileName;
end;

procedure TProjectGroupEditorForm.UpdateIDEMenuCommandFromAction(Sender : TObject; Item: TIDEMenuCommand);

begin
  Item.Enabled:=(Sender as TAction).Enabled;
  Item.Visible:=(Sender as TAction).Visible;
end;

    procedure TProjectGroupEditorForm.FormCreate(Sender: TObject);

  procedure SetItem(Item: TIDEMenuCommand; AnOnClick: TNotifyEvent;
                    aShow: boolean = true; AEnable: boolean = true);
  begin
    //debugln(['SetItem ',Item.Caption,' Visible=',aShow,' Enable=',AEnable]);
    Item.OnClick:=AnOnClick;
    Item.Visible:=aShow;
    Item.Enabled:=AEnable;
  end;

begin
  PGEditMenuSectionMisc.MenuItem:=PMMore.Items;
  SetItem(cmdTargetAdd,@AProjectGroupAddExistingExecute);
  SetItem(cmdTargetRemove,@AProjectGroupDeleteExecute);
  SetItem(cmdTargetCompile,@ATargetCompileExecute);
  SetItem(cmdTargetCompileClean,@ATargetCompileCleanExecute);
  SetItem(cmdTargetInstall,@ATargetInstallExecute);
  SetItem(cmdTargetUnInstall,@ATargetUnInstallExecute);
  SetItem(cmdTargetLater,@ATargetLaterExecute);
  SetItem(cmdTargetEarlier,@ATargetEarlierExecute);
end;

procedure TProjectGroupEditorForm.FormShow(Sender: TObject);
begin
  Localize;
end;

procedure TProjectGroupEditorForm.TVPGDblClick(Sender: TObject);

Var
  ND : TNodeData;

begin
  ND:=SelectedNodeData;
  if Not (Assigned(ND) and (ND.NodeType=ntTarget)) then
    begin
    ND.ProjectGroup.ActivateTarget(ND.Target);
    if (ND.ProjectGroup<>FProjectGroup) then // No callback, fake it.
      DotargetActivated(ND.ProjectGroup,ND.Target);
    end;
end;

Procedure TProjectGroupEditorForm.DoTargetAdded(Sender: TObject;
  Target: TCompileTarget);

Var
  PG : TProjectGroup;
  N : TTreeNode;

begin
  PG:=sender as TProjectGroup;
  // ToDo : use of FTargetNodes is wrong if PG<>FProjectGroup
  N:=CreateNode(FTargetNodes[False],DisplayFileName(PG,ntTarget,Target.Filename),ntTarget,Target,PG);
  FillTargetNode(N,PG,Target);
  TVPG.Selected:=N;
  SBPG.Panels[piTargetCount].Text:=Format(lisTargetCount,[FProjectGroup.TargetCount]);
end;

Procedure TProjectGroupEditorForm.DoTargetDeleted(Sender: TObject;
  Target: TCompileTarget);

Var
  PG : TProjectGroup;
  N : TTreeNode;

begin
  PG:=sender as TProjectGroup;
  N:=FindNodeFromTarget(Target);
  TVPG.Items.Delete(N);
  // MVC TOD: The use of FTargetNodes is not correct when PG<>FProjectGroup
  CreateNode(FTargetNodes[True],DisplayFileName(PG,ntRemovedTarget,Target.Filename),ntRemovedTarget,Target,PG);
  TVPG.Selected:=FNPG;
  SBPG.Panels[piTargetCount].Text:=Format(lisTargetCount,[FProjectGroup.TargetCount]);
end;

Procedure TProjectGroupEditorForm.DoTargetActivated(Sender: TObject;
  Target: TCompileTarget);

Var
  NC,NA : TTreeNode;
  N : String;

begin
  NC:=FindNodeFromTarget(FActiveTarget);
  NA:=FindNodeFromTarget(Target);
  if (NC<>NA) then
    begin
    if Assigned(NC) then
      NC.StateIndex:=-1;
    If Assigned(NA) then
      NA.StateIndex:=NSIActive;
    FActiveTarget:=Target;
    end;
  N:=DisplayFileName(FProjectGroup,ntTarget,Target.FileName);
  SBPG.Panels[piActiveTarget].Text:=Format(lisActiveTarget,[N]);
end;

Procedure TProjectGroupEditorForm.DoTargetExchanged(Sender: TObject; Target1,
  Target2: TCompileTarget);

Var
  S,N1,N2 : TTreeNode;
  ND1,ND2 : TNodeData;
  NT1,NT2 : TCaption;

begin
  N1:=FindNodeFromTarget(Target1);
  N2:=FindNodeFromTarget(Target2);
  If (N1=Nil) or (N2=Nil) then
    exit;
  ND1:=TNodeData(N1.Data);
  if TVPG.Selected=N1 then
    S:=N2
  else if TVPG.Selected=N2 then
    S:=N1
  else
    S:=Nil;
  NT1:=N1.Text;
  ND2:=TNodeData(N2.Data);
  NT2:=N2.Text;
  ConfigNode(N1,NT2,ND2);
  ConfigNode(N2,NT1,ND1);
  if (S<>Nil) then
    TVPG.Selected:=S;
end;


procedure TProjectGroupEditorForm.AProjectGroupSaveExecute(Sender: TObject);
Var
  P : String;
begin
  P:=FProjectGroup.FileName;
  ProjectGroupManager.SaveProjectGroup;
  if CompareFilenames(ExtractFilePath(P),ExtractFilePath(FProjectGroup.FileName))<>0 then
    ShowProjectGroup;
end;

procedure TProjectGroupEditorForm.AProjectGroupAddExistingExecute(Sender: TObject);
begin
  InitIDEFileDialog(ODTarget);
  With ODTarget do
    begin
    // TODO: Needs to be fetched from central set of strings
    Filter:='Lazarus projects|*.lpi|Lazarus packages|*.lpk|Lazarus project groups|*.lpg';
    If Execute then
      begin
      FProjectGroup.AddTarget(FileName);
      end;
    end;
  StoreIDEFileDialog(ODTarget);
end;

procedure TProjectGroupEditorForm.ATargetActivateUpdate(Sender: TObject);

Var
  T : TCompileTarget;

begin
  T:=SelectedTarget;
  (Sender as TAction).Enabled:=Assigned(T) and Not T.Active;
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetActivate);
end;

procedure TProjectGroupEditorForm.ATargetActivateExecute(Sender: TObject);

Var
  T : TNodeData;

begin
  T:=SelectedNodeData;
  if not (Assigned(T) and Assigned(T.Target) and Assigned(T.ProjectGroup)) then
    exit;
  T.ProjectGroup.ActivateTarget(T.Target);
end;

procedure TProjectGroupEditorForm.ATargetCompileCleanExecute(Sender: TObject);
begin
  Perform(taCompileClean);
end;

procedure TProjectGroupEditorForm.ATargetCompileCleanUpdate(Sender: TObject);
begin
  AllowPerform(taCompileClean,Sender as TAction);
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetCompileClean);
end;

function TProjectGroupEditorForm.AllowPerform(ATargetAction : TTargetAction; AAction : TAction = Nil) : Boolean;

Var
  T : TCompileTarget;

begin
  T:=SelectedTarget;
  Result:=Assigned(T) and (ATargetAction in T.AllowedActions);
  If Assigned(AAction) then
    AAction.Enabled:=Result;
end;

procedure TProjectGroupEditorForm.Perform(ATargetAction : TTargetAction);

Var
  T : TNodeData;

begin
  T:=SelectedNodeData;
  if Assigned(T) and Assigned(T.Target) and Assigned(T.ProjectGroup) then
    T.ProjectGroup.Perform(T.Target,ATargetAction);
end;

procedure TProjectGroupEditorForm.ATargetCompileExecute(Sender: TObject);

begin
  Perform(taCompile);
end;

procedure TProjectGroupEditorForm.ATargetCompileUpdate(Sender: TObject);

begin
  AllowPerform(taCompile,Sender as TAction);
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetCompile);
end;

procedure TProjectGroupEditorForm.AProjectGroupDeleteExecute(Sender: TObject);

Var
  T : TCompileTarget;

begin
  T:=SelectedTarget;
  FProjectGroup.RemoveTarget(T);
end;

procedure TProjectGroupEditorForm.AProjectGroupDeleteUpdate(Sender: TObject);

Var
  T : TCompileTarget;

begin
  T:=SelectedTarget;
  (Sender as TAction).Enabled:=(T<>Nil) and (T<>FProjectGroupTarget) and Not T.Removed;
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetRemove);
end;

procedure TProjectGroupEditorForm.ATargetInstallExecute(Sender: TObject);
begin
  Perform(taInstall);
end;

procedure TProjectGroupEditorForm.ATargetInstallUpdate(Sender: TObject);
begin
  AllowPerform(taInstall,Sender as Taction);
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetInstall);
end;

procedure TProjectGroupEditorForm.ATargetOpenExecute(Sender: TObject);

begin
  Perform(taOpen);
end;

procedure TProjectGroupEditorForm.ATargetOpenUpdate(Sender: TObject);

begin
  AllowPerform(taOpen,Sender as TAction);
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetOpen);
end;

procedure TProjectGroupEditorForm.ATargetPropertiesExecute(Sender: TObject);
begin
  Perform(taSettings);
end;

procedure TProjectGroupEditorForm.ATargetPropertiesUpdate(Sender: TObject);
begin
  AllowPerform(taSettings,Sender as Taction);
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetProperties);
end;

procedure TProjectGroupEditorForm.ATargetRunExecute(Sender: TObject);
begin
  Perform(taRun);
end;

procedure TProjectGroupEditorForm.ATargetRunUpdate(Sender: TObject);
begin
  AllowPerform(taRun,Sender as Taction);
  UpdateIDEMenuCommandFromAction(Sender,cmdTargetRun);
end;

procedure TProjectGroupEditorForm.AProjectGroupSaveAsExecute(Sender: TObject);
begin
  IDEProjectGroupManager.DoSaveAsClick(Sender);
end;

Procedure TProjectGroupEditorForm.FreeNodeData;

Var
  N : TTreeNode;
  I : Integer;

begin
  FNPG:=Nil;
  FTargetNodes[False]:=Nil;
  FTargetNodes[True]:=Nil;
  For I:=0 to TVPG.Items.Count-1 do
    begin
    N:=TVPG.Items[I];
    TNodeData(N.Data).Free; // Would be nide to have a FreeAndNilData method in TTreeNode.
    N.Data:=Nil;
    end;
end;

Function TProjectGroupEditorForm.GetNodeIndex(ANodeType : TNodeType; ANodeData : TCompileTarget) : Integer;

begin
  Case ANodeType of
    ntProjectGroup : Result:=NIProjectGroup;
    ntTargets : Result:=NITargets;
    ntRemovedTargets : Result:=NIRemovedTargerts;
    ntTarget :
        Case ANodeData.TargetType of
          ttProject : Result:=NITargetProject;
          ttPackage : Result:=NITargetPackage;
          ttProjectGroup : Result:=NITargetProjectGroup;
        end;
    ntRemovedTarget:
        Case ANodeData.TargetType of
          ttProject : Result:=NIRemovedTargetProject;
          ttPackage : Result:=NIRemovedTargetPackage;
          ttProjectGroup : Result:=NIRemovedTargetProjectGroup;
        end;
    ntFiles : Result:=NIFiles;
    ntFile : Result:=NIFile;
    ntRemovedFiles : Result:=NIRemovedFiles;
    ntRemovedFile : Result:=NIRemovedFile;
    ntDependencies : Result:=NIDependencies;
    ntDependency : Result:=NIDependency;
    ntRemovedDependencies : Result:=NIRemovedDependencies;
    ntRemovedDependency : Result:=NIRemovedDependency;
  else
    Result:=-1;
  end;
end;

Function TProjectGroupEditorForm.SelectedNodeData: TNodeData;

Var
  N : TTreeNode;

begin
  N:=TVPG.Selected;
  If Assigned(N) then
    Result:=TNodeData(N.Data)
  else
    Result:=Nil;
end;

Function TProjectGroupEditorForm.SelectedTarget: TCompileTarget;

Var
  N : TNodeData;

begin
  N:=SelectedNodeData;
  if Assigned(N) then
    Result:=N.Target
  else
    Result:=Nil;
end;

Function TProjectGroupEditorForm.SelectedNodeType: TCompileTarget;

Var
  N : TNodeData;

begin
  N:=SelectedNodeData;
  if Assigned(N) then
    Result:=N.Target
  else
    Result:=Nil;
end;

Procedure TProjectGroupEditorForm.ConfigNode(Node : TTreeNode; Const ACaption : String; ANodeData : TNodeData) ;

begin
  Node.Data:=ANodeData;
  If (ACaption<>'') then
    Node.Text:=ACaption;
  Node.ImageIndex:=GetNodeIndex(ANodeData.NodeType,ANodeData.Target);
  Node.SelectedIndex:=Node.ImageIndex;
  if Assigned(ANodeData.Target) and ANodeData.Target.Active then
    Node.StateIndex:=NSIActive
  else
    Node.StateIndex:=-1;
end;

Function TProjectGroupEditorForm.CreateNode(AParent : TTreeNode; Const ACaption : String; ANodeType : TNodeType; ANodeData : TCompileTarget; AProjectGroup : TProjectGroup) : TTreeNode;

Var
  ND : TNodeData;

begin
  Result:=TVPG.Items.AddChild(AParent,ACaption);
  ND:=TNodeData.Create;
  ND.NodeType:=ANodeType;
  ND.ProjectGroup:=AProjectGroup;
  ND.Target:=ANodeData;
  ConfigNode(Result,'',ND);
end;

Function TProjectGroupEditorForm.DisplayFileName(AProjectGroup: TProjectGroup;NodeType : TNodeType; AFileName : String) : String;

Var
  P : String;

begin
  if Assigned(AProjectGroup) then
    P:=ExtractFilePath(AProjectGroup.FileName)
  else
    P:='';
  if (P<>'') then
    Result:=ExtractRelativePath(P,AFileName)
  else
    Result:=AFileName;
  if not (NodeType in [ntFile, ntRemovedFile]) then
    Result:=ChangeFileExt(Result,'');
end;

Procedure TProjectGroupEditorForm.ShowFileName;

Var
  N : String;
begin
  N:=FProjectGroup.FileName;
  if (N='') then
    Caption:=lisNewProjectGroup
  else
    Caption:=Format(LisProjectGroup,[DisplayFileName(FprojectGroup,ntProjectGroup,N)]);
  if Assigned(FNPG) then
    FNPG.Text:=DisplayFileName(FProjectGroup,ntProjectGroup,FProjectGroup.FileName);
end;

Function TProjectGroupEditorForm.FindNodeFromTarget(ATarget : TCompileTarget) : TTreeNode;

Var
  I : Integer;

begin
  I:=0;
  Result:=Nil;
  While (Result=Nil) and (I<TVPG.Items.Count) do
    begin
    Result:=TVPG.Items[I];
    If Not (Assigned(Result.Data) and (TNodeData(Result.Data).Target=ATarget)) then
      Result:=Nil;
    Inc(I);
    end;
end;

Procedure TProjectGroupEditorForm.ShowProjectGroup;

Var
  N : TTreeNode;

begin
  ShowFileName; // Needs FNPG
  FreeNodeData;
  TVPG.Items.Clear;
  FTargetNodes[False]:=Nil;
  FTargetNodes[True]:=Nil;
  FNPG:=CreateNode(Nil,DisplayFileName(FProjectGroup,ntProjectGroup,FProjectGroup.FileName),ntProjectGroup,FProjectGroupTarget,FProjectGroup);
  FillProjectGroupNode(FNPG,FProjectGroup,FTargetNodes);
  N:=FindNodeFromTarget(FActiveTarget);
  if (N=Nil) then
    begin
    FActiveTarget:=FProjectGroupTarget;
    TVPG.Selected:=FNPG;
    end
  else
    TVPG.Selected:=N;
  SBPG.Panels[piTargetCount].Text:=Format(lisTargetCount,[FProjectGroup.TargetCount]);
end;

Procedure TProjectGroupEditorForm.FillProjectGroupNode(AParent : TTreeNode; AProjectGroup : TProjectGroup; Out TargetNodes : TTargetNodes);

Const
  TNT : Array[Boolean] of TNodeType = (ntTarget,ntRemovedTarget);


Var
  T : TCompileTarget;
  TTN,TN : TTreeNode;
  I : Integer;

begin
  TTN:=CreateNode(AParent,lisNodeTargets,ntTargets,Nil,AProjectGroup);
  TargetNodes[False]:=TTN;
  TargetNodes[True]:=CreateNode(AParent,lisNodeRemovedTargets,ntTargets,Nil,AProjectGroup);
  // 2 Passes: one to show all nodes, one to fill them with target-specific data.
  // Display all nodes
  For I:=0 to AProjectGroup.TargetCount-1 do
     begin
     T:=AProjectGroup.Targets[i];
     TN:=CreateNode(TargetNodes[T.Removed],DisplayFileName(AProjectGroup,TNT[T.Removed],T.FileName),TNT[T.Removed],T,AProjectGroup);
     end;
  // Fill all nodes.
  For I:=0 to TTN.Count-1 do
     begin
     TN:=TTN.Items[i];
     try
       FillTargetNode(TN,AProjectGroup,TargetFromNode(TN));
     except
       On E : Exception do
         Application.ShowException(E);
     end;
     end;
  AParent.Expand(False);
  TargetNodes[False].Expand(False);
  TargetNodes[True].Expand(False);
end;

Procedure TProjectGroupEditorForm.ShowDependencies(AParent: TTreeNode; AProjectGroup : TProjectGroup; T: TObject; Out PD : TTargetNodes);
Var
  L : TfPList;
  I : Integer;
  P : TIDEPackage;
begin
  PD[False]:=CreateNode(AParent,lisNodeDependencies,ntDependencies,Nil,AProjectGroup);
  PD[True]:=CreateNode(AParent,lisNodeRemovedDependencies,ntRemovedDependencies,Nil,AProjectGroup);
  PackageEditingInterface.GetRequiredPackages(T,L,[pirCompileOrder]);
  For I:=0 to L.Count-1 do
    begin
    P:=TIDEPackage(L[i]);
    CreateNode(PD[False],P.Name,ntDependency,Nil,AProjectGroup);
    end;
end;

Procedure TProjectGroupEditorForm.FillProjectNode(AParent: TTreeNode; AProjectGroup : TProjectGroup; T: TLazProject);
Var
  PF,PD : TTargetNodes;
  I : Integer;
begin
  PF[False]:=CreateNode(AParent,lisNodeFiles,ntFiles,Nil,AProjectGroup);
  PF[True]:=CreateNode(AParent,lisNodeRemovedFiles,ntFiles,Nil,AProjectGroup);
  // TODO Ideally, we can show removed files
  For I:=0 to T.FileCount-1 do
    CreateNode(PF[False],DisplayFileName(AProjectGroup,ntFile,T.Files[i].Filename),ntFile,Nil,AProjectGroup);
  ShowDependencies(AParent,AProjectGroup,T,PD);
  // TODO: Build mode info Not available ?
end;

Procedure TProjectGroupEditorForm.FillPackageNode(AParent: TTreeNode; AProjectGroup : TProjectGroup; T: TIDEPackage);
Var
  PF,PD : TTargetNodes;
  I : Integer;
begin
  PF[False]:=CreateNode(AParent,lisNodeFiles,ntFiles,Nil,AProjectGroup);
  PF[True]:=CreateNode(AParent,lisNodeRemovedFiles,ntFiles,Nil,AProjectGroup);
  // ToDo Ideally, we can show removed files
  For I:=0 to T.FileCount-1 do
    CreateNode(PF[False],DisplayFileName(AProjectGroup,ntFile,T.Files[i].Filename),ntFile,Nil,AProjectGroup);
  ShowDependencies(AParent,AProjectGroup,T,PD);
end;

Procedure TProjectGroupEditorForm.FillTargetNode(AParent: TTreeNode; AProjectGroup : TProjectGroup; T: TCompileTarget);
Var
  PN : TTargetNodes;
begin
  If T=Nil then
    T:=TargetFromNode(AParent);
  if T=Nil then
    exit;
  Case T.TargetType of
    ttProject : FillProjectNode(AParent,AProjectGroup,T.LazProject);
    ttPackage : FillPackageNode(AParent,AProjectGroup,T.LazPackage);
    ttProjectGroup : FillProjectgroupNode(AParent,T.ProjectGroup,PN);
  end;
end;

function TProjectGroupEditorForm.GetActiveTarget: TCompileTarget;
begin
  Result:=FActiveTarget;
end;

Class Function TProjectGroupEditorForm.TargetFromNode(N: TTreeNode
  ): TCompileTarget;
begin
  if (N<>Nil) and (N.Data<>Nil) then
    Result:=TNodeData(N.Data).Target
  else
    Result:=Nil;
end;


end.