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

IDE: fixed creating designer form

Browse Source 
git-svn-id: trunk@26805 -
This commit is contained in:
mattias 2010-07-24 10:43:05 +00:00
parent 3768b38f7e
commit c693f7923e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -6164,7 +6164,7 @@ begin
if not (ofLoadHiddenResource in OpenFlags) then
begin
DesignerForm := FormEditor1.GetDesignerForm(NewComponent);
if DesignerForm=nil then
if (DesignerForm=nil) or (DesignerForm.Designer=nil) then
DesignerForm := CreateDesignerForComponent(AnUnitInfo,NewComponent);
end;
@ -10012,6 +10012,7 @@ begin
// select a form (object inspector, formeditor, control selection)
if FLastFormActivated<>nil then begin
LastDesigner:=TDesigner(FLastFormActivated.Designer);
debugln(['TMainIDE.DoOpenProjectFile ',DbgSName(FLastFormActivated),' ',DbgSName(FLastFormActivated.Designer)]);
LastDesigner.SelectOnlyThisComponent(LastDesigner.LookupRoot);
end;