paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:55:58 +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

23
components/projectgroups/projectgroupeditor.pas
View File

@ -1424,25 +1424,10 @@ begin
end; end;
procedure TProjectGroupEditorForm.OnProjectGroupFileNameChanged(Sender: TObject); procedure TProjectGroupEditorForm.OnProjectGroupFileNameChanged(Sender: TObject);
var
TVNode: TTreeNode;
NodeData: TNodeData;
begin begin
if Sender<>ProjectGroup then exit; // ToDo: sub groups if Sender<>ProjectGroup then exit; // ToDo: sub groups
ShowFileName; ShowFileName;
// update all nodes with file names UpdateNodeTexts;
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;
end; end;
function TProjectGroupEditorForm.CreateSectionNode(AParent: TTreeNode; function TProjectGroupEditorForm.CreateSectionNode(AParent: TTreeNode;
@ -1652,13 +1637,19 @@ end;
procedure TProjectGroupEditorForm.UpdateNodeTexts; procedure TProjectGroupEditorForm.UpdateNodeTexts;
var var
TVNode: TTreeNode; TVNode: TTreeNode;
NodeData: TNodeData;
begin begin
FLastShowTargetPaths:=IDEProjectGroupManager.Options.ShowTargetPaths; FLastShowTargetPaths:=IDEProjectGroupManager.Options.ShowTargetPaths;
TVPG.BeginUpdate; TVPG.BeginUpdate;
try try
for TVNode in TVPG.Items do begin for TVNode in TVPG.Items do begin
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); TVNode.Text:=DisplayFileName(TVNode);
end; end;
end;
end;
finally finally
TVPG.EndUpdate; TVPG.EndUpdate;
end; end;