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

IDE: Show also docked windows in TMainIDEBase.mnuWindowItemClick. Issue #32659, patch from Pascal Riekenberg.

Browse Source 
git-svn-id: trunk@56358 -
This commit is contained in:
juha 2017-11-11 09:25:32 +00:00
parent 9ac7781f41
commit c92ce22ba5
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/mainbase.pas
View File

@ -633,20 +633,8 @@ end;
{ TMainIDEBase }
procedure TMainIDEBase.mnuWindowItemClick(Sender: TObject);
var
i: Integer;
Form: TCustomForm;
begin
i:=Screen.CustomFormCount-1;
while (i>=0) do begin
Form:=Screen.CustomForms[i];
if FormMatchesCmd(Form, Sender as TIDEMenuCommand) then
begin
IDEWindowCreators.ShowForm(Form,true);
break;
end;
dec(i);
end;
IDEWindowCreators.ShowForm(TCustomForm(TIDEMenuCommand(Sender).UserTag), true);
end;
procedure TMainIDEBase.mnuCenterWindowItemClick(Sender: TObject);
@ -1814,6 +1802,7 @@ begin
else
CurMenuItem.Caption:=TCustomForm(WindowsList[i]).Caption;
CurMenuItem.Checked := WindowMenuActiveForm = TCustomForm(WindowsList[i]);
CurMenuItem.UserTag := PtrUInt(WindowsList[i]);
CurMenuItem.OnClick:=@mnuWindowItemClick;
// in the 'center' list
CurMenuItem := GetMenuItem(i, itmCenterWindowLists);