Как внести изменения в FCL ?

[Евгений]

Приветствую,

В Delphi 9 в класс TReader внесли оченб ваное для меня событие - OnFindComponentInstanceEvent. Так как можно (или кому написать) чтоб ьакое же изменение внесли в FCL.

Всего несколько строк кода:

файл - classesh.inc

...
interface
....
TFindComponentInstanceEvent = procedure (Reader: TReader; const Name: string;
var Instance: Pointer) of object;
...
TReader = class(TFiler)
private
FOnFindComponentInstance: TFindComponentInstanceEvent;
...
public
...
property OnFindComponentInstance: TFindComponentInstanceEvent read FOnFindComponentInstance write FOnFindComponentInstance;
end;
....


файл reader.inc
....
procedure TReader.DoFixupReferences;
...
Target := FindNestedComponent(CurFixup.FInstanceRoot, CurName);
> тут вставить эту строчку
if (Target = nil) and Assigned(FOnFindComponentInstance) then
FOnFindComponentInstance(Self, CurName, Target);
> конец вставки
....

[Иван Шихалев]

Сделать патч утилитой diff и отправить в список рассылки fpc-devel с кратким пояснением (на английском).