Now using ExtendedPassthroughSubscriber in SystemExtensionComponent, …

…to handle Args. #20
Embarcadero · Dec 7, 2024 · 9bbd4f7 · 9bbd4f7
1 parent d365812
commit 9bbd4f7
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/Source/BoldHandles.pas b/Source/BoldHandles.pas
@@ -1,4 +1,4 @@
-
+
 { Global compiler directives }
 {$include bold.inc}
 unit BoldHandles;
@@ -154,18 +154,18 @@   TBoldNonSystemHandle = class(TBoldElementHandle)
   TBoldSystemExtensionComponent = class(TBoldHandle)
   private
     fStaticSystemHandle: TBoldAbstractSystemHandle;
-    fSubscriber: TBoldPassthroughSubscriber;
+    fSubscriber: TBoldExtendedPassthroughSubscriber;
     function GetBoldSystem: TBoldSystem;
-    function GetSubscriber: TBoldPassthroughSubscriber;
+    function GetSubscriber: TBoldExtendedPassthroughSubscriber;
   protected
-    procedure _Receive(Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent); virtual;
+    procedure _Receive(Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent; const Args: array of const); virtual;
     function GetHandledObject: TObject; override;
     function GetStaticSystemHandle: TBoldAbstractSystemHandle; virtual;
     procedure SetStaticSystemHandle(Value: TBoldAbstractSystemHandle); virtual;
     procedure StaticBoldTypeChanged; virtual;
     procedure PlaceSubscriptions; virtual;
     property BoldSystem: TBoldSystem read GetBoldSystem;
-    property Subscriber: TBoldPassthroughSubscriber read GetSubscriber;
+    property Subscriber: TBoldExtendedPassthroughSubscriber read GetSubscriber;
   public
     destructor Destroy; override;
  published
@@ -647,10 +647,10 @@ function TBoldSystemExtensionComponent.GetStaticSystemHandle: TBoldAbstractSyste
   result := fStaticSystemHandle;
 end;
 
-function TBoldSystemExtensionComponent.GetSubscriber: TBoldPassthroughSubscriber;
+function TBoldSystemExtensionComponent.GetSubscriber: TBoldExtendedPassthroughSubscriber;
 begin
   if not Assigned(fSubscriber) then
-    fSubscriber := TBoldPassthroughSubscriber.Create(_Receive);
+    fSubscriber := TBoldExtendedPassthroughSubscriber.CreateWithExtendedReceive(_Receive);
   result := fSubscriber;
 end;
 
@@ -680,7 +680,7 @@ procedure TBoldSystemExtensionComponent.StaticBoldTypeChanged;
 end;
 
 procedure TBoldSystemExtensionComponent._Receive(Originator: TObject;
-  OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent);
+  OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent; const Args: array of const);
 begin
   Assert(RequestedEvent in [breFreeHandle, breValueIdentityChanged], IntToStr(OriginalEvent) + ',' + IntToStr(RequestedEvent));
   case RequestedEvent of

diff --git a/Source/BoldIndexableLoadedObjectsHandle.pas b/Source/BoldIndexableLoadedObjectsHandle.pas
@@ -18,7 +18,7 @@   TBoldIndexableLoadedObjectsHandle = class(TBoldSystemExtensionComponent)
   private
     fBoldIndexableLoadedObjectsList: TBoldIndexableLoadedObjectsList;
   protected
-    procedure _Receive(Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent); override;
+    procedure _Receive(Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent; const Args: array of const); override;
     function GetHandledObject: TObject; override;
   public
     destructor Destroy; override;
@@ -76,7 +76,7 @@ procedure TBoldIndexableLoadedObjectsHandle.InitializeIndexByNames(
 end;
 
 procedure TBoldIndexableLoadedObjectsHandle._Receive(Originator: TObject;
-  OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent);
+  OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent; const Args: array of const);
 begin
   if (Originator = StaticSystemHandle) and (OriginalEvent = beDestroying) then
     FreeAndNil(fBoldIndexableLoadedObjectsList);