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

IDE: Fix an error in a patch for issue #20210.

Browse Source 
git-svn-id: trunk@32327 -
This commit is contained in:
juha 2011-09-14 06:25:06 +00:00
parent a6a378a481
commit c982f70b8f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

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