paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 07:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: unit dependencies: keep selection

Browse Source 
git-svn-id: trunk@42721 -
This commit is contained in:
mattias 2013-09-10 13:09:40 +00:00
parent eea2c866ec
commit b76e2409dc
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/unitdependencies.pas
View File

@ -1652,6 +1652,7 @@ var
TV: TTreeView;
OldExpanded: TTreeNodeExpandedState;
SrcEdit: TSourceEditorInterface;
SelPath: String;
begin
Exclude(FFlags,udwNeedUpdateAllUnitsTreeView);
TV:=AllUnitsTreeView;
@ -1661,6 +1662,10 @@ begin
OldExpanded:=TTreeNodeExpandedState.Create(TV)
else
OldExpanded:=nil;
SelPath:='';
if TV.Selected<>nil then
SelPath:=TV.Selected.GetTextPath;
debugln(['TUnitDependenciesWindow.UpdateAllUnitsTreeView OLD=',SelPath]);
// clear
FreeAndNil(FAllUnitsRootUDNode);
fAllUnitsTVSearchStartNode:=nil;
@ -1675,8 +1680,13 @@ begin
end;
// update search
UpdateAllUnitsTreeViewSearch;
// select a unit
if TV.Selected=nil then begin
// select an unit
if (TV.Selected=nil) and (SelPath<>'') then begin
TV.Selected:=TV.Items.FindNodeWithTextPath(SelPath);
if TV.Selected<>Nil then
debugln(['TUnitDependenciesWindow.UpdateAllUnitsTreeView NEW=',TV.Selected.GetTextPath]);
end;
if (TV.Selected=nil) then begin
SrcEdit:=SourceEditorManagerIntf.ActiveEditor;
if SrcEdit<>nil then
TV.Selected:=FindUnitTVNodeWithFilename(TV,SrcEdit.FileName);