paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:15:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Group tabs in Window menu too

Browse Source 
git-svn-id: trunk@36236 -
This commit is contained in:
martin 2012-03-23 01:45:36 +00:00
parent 4905c559ea
commit 24d9d29bc5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/mainbase.pas
View File

@ -1131,6 +1131,8 @@ begin
//create source page menuitems
itmTabListProject.Visible := False;
itmTabListOther.Visible := False;
itmTabListProject.MenuItem.Checked := False;
itmTabListOther.MenuItem.Checked := False;
itmTabListPackage.Clear;
if SourceEditorManager.SourceEditorCount > 0 then begin
@ -1182,7 +1184,8 @@ begin
else
CurMenuItem.Caption := EditorCur.PageName;
CurMenuItem.MenuItem.Checked := SourceEditorManager.ActiveEditor = EditorCur;
M.MenuItem.Checked := SourceEditorManager.ActiveEditor = EditorCur;
if SourceEditorManager.ActiveEditor = EditorCur then
M.MenuItem.Checked := true;
CurMenuItem.OnClick := @mnuWindowSourceItemClick;
CurMenuItem.Tag := j;
end;