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

fixed GetComponentEditor for TDataModule

Browse Source 
git-svn-id: trunk@4368 -
This commit is contained in:
mattias 2003-07-04 14:50:53 +00:00
parent 24a16e5441
commit c967b48082
1 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/customformeditor.pp
View File

@ -311,31 +311,22 @@ end;
function TComponentInterface.GetDesigner: TComponentEditorDesigner;
var
OwnerForm: TCustomForm;
DesignerForm: TCustomForm;
begin
if FDesigner=nil then begin
if (Component is TCustomForm) and (TCustomForm(Component).Parent=nil) then
OwnerForm:=TCustomForm(Component)
else begin
OwnerForm:=TCustomForm(Component.Owner);
if OwnerForm=nil then begin
raise Exception.Create('TComponentInterface.GetDesigner: '
+Component.Name+' Owner=nil');
end;
if not (OwnerForm is TCustomForm) then begin
raise Exception.Create('TComponentInterface.GetDesigner: '
+Component.Name+' OwnerForm='+OwnerForm.ClassName);
end;
DesignerForm:=GetDesignerForm(Component);
if DesignerForm=nil then begin
raise Exception.Create('TComponentInterface.GetDesigner: '
+Component.Name+' DesignerForm=nil');
end;
FDesigner:=TComponentEditorDesigner(OwnerForm.Designer);
FDesigner:=TComponentEditorDesigner(DesignerForm.Designer);
if FDesigner=nil then begin
raise Exception.Create('TComponentInterface.GetDesigner: '
+Component.Name+' Designer=nil');
end;
if not (FDesigner is TComponentEditorDesigner) then begin
raise Exception.Create('TComponentInterface.GetDesigner: '
+Component.Name+' Designer='+
+FDesigner.ClassName);
+Component.Name+' Designer='+FDesigner.ClassName);
end;
end;
Result:=FDesigner;