paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-13 23:22:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: code explorer: fixed keeping code observer nodes with numbers expanded

Browse Source 
git-svn-id: trunk@53493 -
This commit is contained in:
mattias 2016-11-30 22:54:55 +00:00
parent 276bf3674b
commit 0bb2fad448
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/codeexplorer.pas
View File

@ -235,6 +235,7 @@ type
procedure SetMode(AMode: TCodeExplorerMode);
procedure UpdateMode;
procedure UpdateCaption;
function OnExpandedStateGetNodeText(Node: TTreeNode): string;
protected
fLastCodeTool: TCodeTool;
fCodeSortedForStartPos: TAvgLvlTree;// tree of TTreeNode sorted for TViewNodeData(Node.Data).StartPos, secondary EndPos
@ -1943,6 +1944,25 @@ begin
s+=' - ' + ExtractFileName(FCodeFilename);
end;
function TCodeExplorerView.OnExpandedStateGetNodeText(Node: TTreeNode): string;
var
p: Integer;
begin
Result:=Node.Text;
if Result='' then exit;
p:=length(Result);
if Result[p]=')' then begin
dec(p);
while (p>1) and (Result[p] in ['+','0'..'9']) do dec(p);
if (p>1) and (Result[p]='(') then begin
repeat
dec(p);
until (p=0) or (Result[p]<>' ');
SetLength(Result,p);
end;
end;
end;
procedure TCodeExplorerView.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
@ -2196,8 +2216,10 @@ begin
// start updating the CodeTreeView
CodeTreeview.BeginUpdate;
debugln(['TCodeExplorerView.RefreshCode BBB1 ========================================']);
if not CurFollowNode then
OldExpanded:=TTreeNodeExpandedState.Create(CodeTreeView);
OldExpanded:=TTreeNodeExpandedState.Create(CodeTreeView,@OnExpandedStateGetNodeText);
debugln(['TCodeExplorerView.RefreshCode BBB2 ========================================']);
ClearCodeTreeView;