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

ideintf: use registered editing class in DefaultComponentClass. Issue #29201

Browse Source 
git-svn-id: trunk@51161 -
This commit is contained in:
ondrej 2016-01-03 14:43:33 +00:00
parent 98fb07f943
commit dae6a4f4b0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/unitresources.pas
View File

@ -58,6 +58,7 @@ type
class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override; class function GetClassNameFromStream(s: TStream; out IsInherited: Boolean): shortstring; override;
class function CreateReader(s: TStream; var DestroyDriver: boolean): TReader; override; class function CreateReader(s: TStream; var DestroyDriver: boolean): TReader; override;
class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; override; class function CreateWriter(s: TStream; var DestroyDriver: boolean): TWriter; override;
class function DefaultComponentClass: TComponentClass; override;
class function FindComponentClass(aClassName: string): TComponentClass; override; class function FindComponentClass(aClassName: string): TComponentClass; override;
end; end;
@ -145,6 +146,11 @@ begin
Result := CreateLRSWriter(s, DestroyDriver); Result := CreateLRSWriter(s, DestroyDriver);
end; end;
class function TCustomLFMUnitResourceFileFormat.DefaultComponentClass: TComponentClass;
begin
Result := FormEditingHook.StandardDesignerBaseClasses[DesignerBaseClassId_TForm];
end;
class function TCustomLFMUnitResourceFileFormat.FindComponentClass( class function TCustomLFMUnitResourceFileFormat.FindComponentClass(
aClassName: string): TComponentClass; aClassName: string): TComponentClass;
begin begin