paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Group tabs in Window menu / check menuitem is assigned

Browse Source 
git-svn-id: trunk@36268 -
This commit is contained in:
martin 2012-03-23 11:19:40 +00:00
parent 85053ebc34
commit 08c6a8f811
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/mainbase.pas
View File

@ -1183,8 +1183,9 @@ begin
// + ' ('+IntToStr(1+SourceEditorManager.IndexOfSourceWindow(TSourceEditorWindowInterface(EditorCur.Owner)))+')'
else
CurMenuItem.Caption := EditorCur.PageName;
CurMenuItem.MenuItem.Checked := SourceEditorManager.ActiveEditor = EditorCur;
if SourceEditorManager.ActiveEditor = EditorCur then
if CurMenuItem.MenuItem <> nil then
CurMenuItem.MenuItem.Checked := SourceEditorManager.ActiveEditor = EditorCur;
if (SourceEditorManager.ActiveEditor = EditorCur) and (M.MenuItem <> nil) then
M.MenuItem.Checked := true;
CurMenuItem.OnClick := @mnuWindowSourceItemClick;
CurMenuItem.Tag := j;