IDE: cokde explorer: fixed caption, issue #31110, FTurtle

git-svn-id: trunk@53654 -
This commit is contained in:
mattias 2016-12-12 15:02:30 +00:00
parent 273d60e1e3
commit b442564a2a

View File

@ -1946,6 +1946,7 @@ begin
s:=lisMenuViewCodeExplorer;
if (CodeExplorerOptions.Refresh=cerManual) and (FCodeFilename<>'') then
s+=' - ' + ExtractFileName(FCodeFilename);
Caption:=s;
end;
function TCodeExplorerView.OnExpandedStateGetNodeText(Node: TTreeNode): string;