project groups: option to show targets by name or by filename

git-svn-id: trunk@50389 -

components/projectgroups/projectgroup.pp

@@ -100,8 +100,10 @@ type
     FChangeStamp: integer;
     FLastSavedChangeStamp: integer;
     FRecentProjectGroups: TStringList;
+    FShowTargetPaths: boolean;
     function GetModified: boolean;
     procedure SetModified(AValue: boolean);
+    procedure SetShowTargetPaths(AValue: boolean);
   public
     constructor Create;
     destructor Destroy; override;
@@ -109,12 +111,15 @@ type
     procedure LoadSafe;
     procedure SaveToFile(aFilename: string);
     procedure LoadFromFile(aFilename: string);
-    // recent project groups
+    // changestamp
-    property RecentProjectGroups: TStringList read FRecentProjectGroups;
-    procedure AddToRecentProjectGroups(aFilename: string);
     procedure IncreaseChangeStamp;
     property ChangeStamp: integer read FChangeStamp;
     property Modified: boolean read GetModified write SetModified;
+    // recent project groups
+    property RecentProjectGroups: TStringList read FRecentProjectGroups;
+    procedure AddToRecentProjectGroups(aFilename: string);
+    // misc
+    property ShowTargetPaths: boolean read FShowTargetPaths write SetShowTargetPaths;
   end;
 
   { TIDEProjectGroupManager }
@@ -231,6 +236,13 @@ begin
     FLastSavedChangeStamp:=FChangeStamp;
 end;
 
+procedure TIDEProjectGroupOptions.SetShowTargetPaths(AValue: boolean);
+begin
+  if FShowTargetPaths=AValue then Exit;
+  FShowTargetPaths:=AValue;
+  IncreaseChangeStamp;
+end;
+
 constructor TIDEProjectGroupOptions.Create;
 begin
   FRecentProjectGroups:=TStringList.Create;
@@ -271,6 +283,7 @@ begin
   Cfg:=GetIDEConfigStorage(aFilename,false);
   try
     Cfg.SetValue('RecentProjectGroups/',FRecentProjectGroups);
+    Cfg.SetDeleteValue('ShowTargetPaths/',ShowTargetPaths,false);
   finally
     Cfg.Free;
   end;
@@ -283,6 +296,7 @@ begin
   Cfg:=GetIDEConfigStorage(aFilename,true);
   try
     Cfg.GetValue('RecentProjectGroups/',FRecentProjectGroups);
+    ShowTargetPaths:=Cfg.GetValue('ShowTargetPaths/',false);
   finally
     Cfg.Free;
   end;

components/projectgroups/projectgroupeditor.pas

@@ -928,15 +928,20 @@ var
 begin
   Result:='';
   if aTarget=nil then exit('?');
-  if aTarget.Parent<>nil then
+  if IDEProjectGroupManager.Options.ShowTargetPaths then
-    BaseDir:=ExtractFilePath(aTarget.Parent.Filename)
+  begin
-  else
+    if aTarget.Parent<>nil then
-    BaseDir:='';
+      BaseDir:=ExtractFilePath(aTarget.Parent.Filename)
-  Result:=aTarget.Filename;
+    else
-  if Result='' then
+      BaseDir:='';
-    Result:='?'
+    Result:=aTarget.Filename;
-  else
+    if Result='' then
-    Result:=CreateRelativePath(Result,BaseDir);
+      Result:='?'
+    else
+      Result:=CreateRelativePath(Result,BaseDir);
+  end else begin
+    Result:=ExtractFileNameOnly(aTarget.Filename);
+  end;
 end;
 
 function TProjectGroupEditorForm.DisplayFileName(Node: TTreeNode): string;
@@ -950,18 +955,23 @@ function TProjectGroupEditorForm.DisplayFileName(NodeData: TNodeData): string;
 var
   BaseDir: String;
 begin
-  Result:='';
+  if (NodeData.Target<>nil)
-  if NodeData.ParentTarget<>nil then
+  and (not IDEProjectGroupManager.Options.ShowTargetPaths) then
-    BaseDir:=ExtractFilePath(NodeData.ParentTarget.Filename)
+  begin
-  else
+    Result:=ExtractFileNameOnly(NodeData.Target.Filename);
-    BaseDir:='';
+  end else begin
-  if NodeData.Target<>nil then
+    Result:='';
-    Result:=NodeData.Target.Filename;
+    if NodeData.ParentTarget<>nil then
-  debugln(['TProjectGroupEditorForm.DisplayFileName ',dbgs(NodeData.NodeType),' BaseDir=',BaseDir,' File=',Result]);
+      BaseDir:=ExtractFilePath(NodeData.ParentTarget.Filename)
-  if Result='' then
+    else
-    Result:='?'
+      BaseDir:='';
-  else
+    if NodeData.Target<>nil then
-    Result:=CreateRelativePath(Result,BaseDir);
+      Result:=NodeData.Target.Filename;
+    if Result='' then
+      Result:='?'
+    else
+      Result:=CreateRelativePath(Result,BaseDir);
+  end;
 end;
 
 procedure TProjectGroupEditorForm.ShowFileName;

components/projectgroups/projectgroupintf.pp

@@ -61,8 +61,8 @@ Type
     function GetFiles(Index: integer): string; virtual; abstract;
     function GetRequiredPackageCount: integer; virtual; abstract;
     function GetRequiredPackages(Index: integer): TPGDependency; virtual; abstract;
-    function Perform (AAction: TPGTargetAction): TPGActionResult;
+    function Perform(AAction: TPGTargetAction): TPGActionResult;
-    function PerformAction (AAction: TPGTargetAction): TPGActionResult; virtual; abstract;
+    function PerformAction(AAction: TPGTargetAction): TPGActionResult; virtual; abstract;
     procedure Activate; virtual;
     procedure DeActivate; virtual;
     procedure SetFilename(const AValue: string); virtual;