Changed Integer to TBoldRequestedEvent #31

Embarcadero · Dec 7, 2024 · f7e9d2b · f7e9d2b
1 parent 8275cc2
commit f7e9d2b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Source/BoldLockRegions.pas b/Source/BoldLockRegions.pas
@@ -173,7 +173,7 @@   TBoldRegionIndex = class(TBoldStringHashIndex)
     function ItemAsKeyString(Item: TObject): string; override;
   end;
 
-procedure NavigateAndSubscribe(Obj: TBoldObject; RoleRT: TBoldRoleRtInfo; ResultElement: TBoldIndirectElement; Subscriber: TBoldSubscriber; RequestedEvent: Integer);
+procedure NavigateAndSubscribe(Obj: TBoldObject; RoleRT: TBoldRoleRtInfo; ResultElement: TBoldIndirectElement; Subscriber: TBoldSubscriber; RequestedEvent: TBoldRequestedEvent);
 var
   aMember: TBoldMember;
 begin
@@ -194,15 +194,15 @@ procedure NavigateAndSubscribe(Obj: TBoldObject; RoleRT: TBoldRoleRtInfo; Result
 end;
 
 
-procedure DoReverseNavigationAndSubscribe(Obj: TBoldObject; Navigation: TBoldRoleRTInfo; ResultElement: TBoldIndirectElement; Subscriber: TBoldSubscriber; RequestedEvent: Integer);
+procedure DoReverseNavigationAndSubscribe(Obj: TBoldObject; Navigation: TBoldRoleRTInfo; ResultElement: TBoldIndirectElement; Subscriber: TBoldSubscriber; RequestedEvent: TBoldRequestedEvent);
 var
   ReverseRole: TBoldRoleRtInfo;
 begin
   ReverseRole := Navigation.ClassTypeInfoOfOtherEnd.AllMembers[Navigation.IndexOfOtherEnd] as TBoldRoleRtInfo;
   NavigateAndSubscribe(Obj, ReverseRole, resultElement, Subscriber, RequestedEvent);
 end;
 
-procedure DoNavigationAndSubscribe(Obj: TBoldObject; Navigation: TBoldRoleRTInfo; ResultElement: TBoldIndirectElement; Subscriber: TBoldSubscriber; RequestedEvent: Integer);
+procedure DoNavigationAndSubscribe(Obj: TBoldObject; Navigation: TBoldRoleRTInfo; ResultElement: TBoldIndirectElement; Subscriber: TBoldSubscriber; RequestedEvent: TBoldRequestedEvent);
 begin
   NavigateAndSubscribe(Obj, Navigation, ResultElement, Subscriber, RequestedEvent);
 end;