paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 01:10:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: classes: added parameter aName to TFindComponentClassExEvent

Browse Source
This commit is contained in:
mattias 2023-04-13 15:33:33 +02:00
parent aaf356ba9f
commit e8546a9e41
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/classes/classesh.inc
View File

@ -1503,8 +1503,8 @@ type
PropInfo: PPropInfo; const TheMethodName: string;
var Handled: boolean) of object;
TSetNameEvent = procedure(Reader: TReader; Component: TComponent;
var Name: string) of object;
TReferenceNameEvent = procedure(Reader: TReader; var Name: string) of object;
var aName: string) of object;
TReferenceNameEvent = procedure(Reader: TReader; var aName: string) of object;
TAncestorNotFoundEvent = procedure(Reader: TReader; const ComponentName: string;
ComponentClass: TPersistentClass; var Component: TComponent) of object;
TReadComponentsProc = procedure(Component: TComponent) of object;
@ -1512,9 +1512,10 @@ type
var Handled: Boolean) of object;
TPropertyNotFoundEvent = procedure(Reader: TReader; Instance: TPersistent;
var PropName: string; IsPath: boolean; var Handled, Skip: Boolean) of object;
TFindComponentClassEvent = procedure(Reader: TReader; const ClassName: string;
TFindComponentClassEvent = procedure(Reader: TReader; const aClassName: string;
var ComponentClass: TComponentClass) of object;
TFindComponentClassExEvent = procedure(Reader: TReader; const anUnitname, ClassName: string;
TFindComponentClassExEvent = procedure(Reader: TReader;
const aName, anUnitname, aClassName: string;
var ComponentClass: TComponentClass) of object;
TCreateComponentEvent = procedure(Reader: TReader;
ComponentClass: TComponentClass; var Component: TComponent) of object;

2
rtl/objpas/classes/reader.inc
View File

@ -1844,7 +1844,7 @@ begin
FindInFieldTable(LookupRoot);
if (Result=nil) and assigned(OnFindComponentClassEx) then
OnFindComponentClassEx(Self, anUnitName, AClassName, Result);
OnFindComponentClassEx(Self, AName, anUnitName, AClassName, Result);
if (Result=nil) then begin
if anUnitName<>'' then