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

Designer: Do not show designer form for current source if another designer form was just selected. Issue #20210, patch from Anton

Browse Source 
git-svn-id: trunk@32317 -
This commit is contained in:
juha 2011-09-13 13:44:45 +00:00
parent 0f86e7d221
commit 62a04ef004
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -5123,6 +5123,12 @@ end;
procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject); procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject);
begin begin
if (Screen.CustomFormZOrderCount > 0)
and Assigned(Screen.CustomFormsZOrdered[1].Designer) then begin
// previous active form was designer form
ShowDesignerForm(Screen.CustomFormsZOrdered[1]);
Exit;
end;
DoShowDesignerFormOfCurrentSrc; DoShowDesignerFormOfCurrentSrc;
end; end;