paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-01 16:32:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Make CodeExplorer show the module name. Issue #20914, patch from Hans-Peter Diettrich

Browse Source 
git-svn-id: trunk@34328 -
This commit is contained in:
juha 2011-12-20 17:45:13 +00:00
parent 5dc211019c
commit 0d66c687f8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/codeexplorer.pas
View File

@ -2144,6 +2144,9 @@ begin
CodeTreeview.EndUpdate; CodeTreeview.EndUpdate;
end; end;
Caption := lisMenuViewCodeExplorer + ' - ' + ExtractFileName(FCodeFilename);
if HostDockSite <> nil then
HostDockSite.UpdateDockCaption();
finally finally
Exclude(FFlags,cevRefreshing); Exclude(FFlags,cevRefreshing);
OldExpanded.Free; OldExpanded.Free;