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

IDEIntf: menuintf: fixed changing nested hidden subsestion

Browse Source 
git-svn-id: branches/fixes_1_6@52927 -
This commit is contained in:
mattias 2016-09-07 16:33:08 +00:00
parent 4aeab4e2c2
commit dc86dbdabb
2 changed files with 670 additions and 529 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1186
components/ideintf/menuintf.pas
View File

File diff suppressed because it is too large Load Diff

13
ide/mainbase.pas
View File

@ -1777,7 +1777,7 @@ begin
CurMenuItem.Caption:=TCustomForm(WindowsList[i]).Name
else
CurMenuItem.Caption:=TCustomForm(WindowsList[i]).Caption;
CurMenuItem.MenuItem.Checked := WindowMenuActiveForm = TCustomForm(WindowsList[i]);
CurMenuItem.Checked := WindowMenuActiveForm = TCustomForm(WindowsList[i]);
CurMenuItem.OnClick:=@mnuWindowItemClick;
// in the 'center' list
CurMenuItem := GetMenuItem(i, itmCenterWindowLists);
@ -1791,8 +1791,8 @@ begin
//create source page menuitems
itmTabListProject.Visible := False;
itmTabListOther.Visible := False;
itmTabListProject.MenuItem.Checked := False;
itmTabListOther.MenuItem.Checked := False;
itmTabListProject.Checked := False;
itmTabListOther.Checked := False;
itmTabListPackage.Clear;
if SourceEditorManager.SourceEditorCount > 0 then begin
@ -1839,10 +1839,9 @@ begin
// + ' ('+IntToStr(1+SourceEditorManager.IndexOfSourceWindow(TSourceEditorWindowInterface(EditorCur.Owner)))+')'
else
CurMenuItem.Caption := EditorCur.PageName;
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.Checked := SourceEditorManager.ActiveEditor = EditorCur;
if (SourceEditorManager.ActiveEditor = EditorCur) then
M.Checked := true;
CurMenuItem.OnClick := @mnuWindowSourceItemClick;
CurMenuItem.Tag := j;
end;