Removed Args parameter #20

Embarcadero · Dec 7, 2024 · 442f712 · 442f712
1 parent be96e8b
commit 442f712
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Source/BoldPlaceableSubscriber.pas b/Source/BoldPlaceableSubscriber.pas
@@ -16,7 +16,8 @@   TBoldPlaceableSubscriber = class;
 
   {---method types---}
   TBoldSubscribeToElementEvent = procedure (element: TBoldElement; Subscriber: TBoldSubscriber) of object;
-  TBoldPlaceableSubcriberReceive = procedure(sender: TBoldPlaceableSubscriber; Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent; const Args: array of const) of object;
+  TBoldPlaceableSubcriberReceive = procedure(sender: TBoldPlaceableSubscriber; Originator: TObject; OriginalEvent: TBoldEvent;
+      RequestedEvent: TBoldRequestedEvent) of object;
 
   {---TBoldPlaceableSubscriber---}
   [ComponentPlatformsAttribute (pidWin32 or pidWin64)]
@@ -126,7 +127,7 @@ procedure TBoldPlaceableSubscriber.SubscribeToElement(Element: TBoldElement; Sub
 procedure TBoldPlaceableSubscriber.Receive(Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent; const Args: array of const);
 begin
   if Assigned(FOnReceive) then
-    fOnReceive(Self, Originator, OriginalEvent, RequestedEvent, Args);
+    fOnReceive(Self, Originator, OriginalEvent, RequestedEvent);
 end;
 
 procedure TBoldPlaceableSubscriber.ActOnHandleValueChanged(Sender: TObject);
@@ -142,4 +143,4 @@ procedure TBoldPlaceableSubscriber.SetDelayEventsUntilPostNotify(const Value: Bo
   FDelayEventsUntilPostNotify := Value;
 end;
 
-end.
+end.