From dae6a4f4b0d4a65c2d25171ace72d2d5e03faf60 Mon Sep 17 00:00:00 2001 From: ondrej Date: Sun, 3 Jan 2016 14:43:33 +0000 Subject: [PATCH] ideintf: use registered editing class in DefaultComponentClass. Issue #29201 git-svn-id: trunk@51161 - --- components/ideintf/unitresources.pas | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/components/ideintf/unitresources.pas b/components/ideintf/unitresources.pas index 775fb0b8fb..f296acb986 100644 --- a/components/ideintf/unitresources.pas +++ b/components/ideintf/unitresources.pas @@ -58,6 +58,7 @@ type class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override; class function CreateReader(s: TStream; var DestroyDriver: boolean): TReader; override; class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; override; + class function DefaultComponentClass: TComponentClass; override; class function FindComponentClass(aClassName: string): TComponentClass; override; end; @@ -145,6 +146,11 @@ begin Result := CreateLRSWriter(s, DestroyDriver); end; +class function TCustomLFMUnitResourceFileFormat.DefaultComponentClass: TComponentClass; +begin + Result := FormEditingHook.StandardDesignerBaseClasses[DesignerBaseClassId_TForm]; +end; + class function TCustomLFMUnitResourceFileFormat.FindComponentClass( aClassName: string): TComponentClass; begin