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

SourceEditor: Show counts/modified Tabs in popup

Browse Source 
git-svn-id: trunk@36232 -
This commit is contained in:
martin 2012-03-22 23:16:13 +00:00
parent a6dd9b4d8d
commit 46cc0fdc2a
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/sourceeditor.pp
View File

@ -5494,6 +5494,8 @@ begin
M.Visible := True;
AddEditorToMenuSection(EditorCur, M, i);
// use tag to count modified
if EditorCur.Modified then M.Tag := m.Tag + 1;
end;
EdList.Free;
@ -5508,6 +5510,20 @@ begin
RecMenu.Visible := True;
end;
for i := 0 to SrcEditMenuSectionEditors.Count - 1 do
if SrcEditMenuSectionEditors.Items[i] is TIDEMenuSection then begin
if SrcEditMenuSectionEditors.Items[i].Tag = 0 then
SrcEditMenuSectionEditors.Items[i].Caption
:= SrcEditMenuSectionEditors.Items[i].Caption
+ Format(' (%d)',
[(SrcEditMenuSectionEditors.Items[i] as TIDEMenuSection).Count])
else
SrcEditMenuSectionEditors.Items[i].Caption
:= SrcEditMenuSectionEditors.Items[i].Caption
+ Format(' (*%d/%d)',
[SrcEditMenuSectionEditors.Items[i].Tag,
(SrcEditMenuSectionEditors.Items[i] as TIDEMenuSection).Count]);
end;
end;
finally
SourceTabMenuRoot.EndUpdate;