paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 11:17:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

project groups: fixed Show targets with paths

Browse Source 
git-svn-id: trunk@61601 -
This commit is contained in:
mattias 2019-07-18 14:47:58 +00:00
parent 3bbfbdcaac
commit a67db5c7a4
1 changed files with 8 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/projectgroups/projectgroupeditor.pas
View File

@ -1424,25 +1424,10 @@ begin
end;
procedure TProjectGroupEditorForm.OnProjectGroupFileNameChanged(Sender: TObject);
var
TVNode: TTreeNode;
NodeData: TNodeData;
begin
if Sender<>ProjectGroup then exit; // ToDo: sub groups
ShowFileName;
// update all nodes with file names
TVPG.BeginUpdate;
TVNode:=TVPG.Items.GetFirstNode;
while TVNode<>nil do begin
NodeData:=TNodeData(TVNode.Data);
if NodeData is TNodeData then begin
if NodeData.NodeType in [ntTarget] then begin
TVNode.Text:=DisplayFileName(NodeData);
end;
end;
TVNode:=TVNode.GetNext;
end;
TVPG.EndUpdate;
UpdateNodeTexts;
end;
function TProjectGroupEditorForm.CreateSectionNode(AParent: TTreeNode;
@ -1652,12 +1637,18 @@ end;
procedure TProjectGroupEditorForm.UpdateNodeTexts;
var
TVNode: TTreeNode;
NodeData: TNodeData;
begin
FLastShowTargetPaths:=IDEProjectGroupManager.Options.ShowTargetPaths;
TVPG.BeginUpdate;
try
for TVNode in TVPG.Items do begin
TVNode.Text:=DisplayFileName(TVNode);
NodeData:=TNodeData(TVNode.Data);
if NodeData is TNodeData then begin
if (NodeData.NodeType in [ntTarget]) and (NodeData.Target<>nil) then begin
TVNode.Text:=DisplayFileName(TVNode);
end;
end;
end;
finally
TVPG.EndUpdate;