paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 20:59:06 +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 //create source page menuitems
itmTabListProject.Visible := False; itmTabListProject.Visible := False;
itmTabListOther.Visible := False; itmTabListOther.Visible := False;
itmTabListProject.MenuItem.Checked := False;
itmTabListOther.MenuItem.Checked := False;
itmTabListPackage.Clear; itmTabListPackage.Clear;
if SourceEditorManager.SourceEditorCount > 0 then begin if SourceEditorManager.SourceEditorCount > 0 then begin
@ -1182,7 +1184,8 @@ begin
else else
CurMenuItem.Caption := EditorCur.PageName; CurMenuItem.Caption := EditorCur.PageName;
CurMenuItem.MenuItem.Checked := SourceEditorManager.ActiveEditor = EditorCur; 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.OnClick := @mnuWindowSourceItemClick;
CurMenuItem.Tag := j; CurMenuItem.Tag := j;
end; end;