Changed Integer to TBoldRequestedEvent #31

Embarcadero · Dec 7, 2024 · b0eb532 · b0eb532
1 parent f7e9d2b
commit b0eb532
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/Source/BoldUMLModelValidationForm.pas b/Source/BoldUMLModelValidationForm.pas
@@ -69,7 +69,7 @@   TfrmValidation = class(TForm)
     procedure Copy1Click(Sender: TObject);
     procedure Paste1Click(Sender: TObject);
     procedure BoldPlaceableSubscriber1Receive(sender: TBoldPlaceableSubscriber;
-      Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: Integer);
+      Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent);
     procedure FormResize(Sender: TObject);
   private
     FOnElementClick: TBoldUMLElementClickedEvent;
@@ -154,7 +154,7 @@ procedure TfrmValidation.btStayOnTopClick(Sender: TObject);
 
 procedure TfrmValidation.BoldPlaceableSubscriber1Receive(
   sender: TBoldPlaceableSubscriber; Originator: TObject;
-  OriginalEvent: TBoldEvent; RequestedEvent: Integer);
+  OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent);
 begin
   if blhViolations.Count > 0 then
     show;

diff --git a/Source/BoldUMLModelValidationFormCx.pas b/Source/BoldUMLModelValidationFormCx.pas
@@ -76,7 +76,7 @@   TfrmValidationCx = class(TForm)
       Shift: TShiftState);
     procedure mnuCopyLogtoClipBoardClick(Sender: TObject);
     procedure BoldPlaceableSubscriber1Receive(sender: TBoldPlaceableSubscriber;
-      Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: Integer);
+      Originator: TObject; OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent);
     procedure tvViolationsDblClick(Sender: TObject);
     procedure actCopyValidationExecute(Sender: TObject);
     procedure actRecheckExecute(Sender: TObject);
@@ -185,7 +185,7 @@ procedure TfrmValidationCx.actRecheckUpdate(Sender: TObject);
 
 procedure TfrmValidationCx.BoldPlaceableSubscriber1Receive(
   sender: TBoldPlaceableSubscriber; Originator: TObject;
-  OriginalEvent: TBoldEvent; RequestedEvent: Integer);
+  OriginalEvent: TBoldEvent; RequestedEvent: TBoldRequestedEvent);
 begin
   Timer1.Enabled := true;
 end;