New class method TAQ.HasActiveActors and their usage in an example

AQPControlAnimations.pas

@@ -153,7 +153,9 @@ function TAQPControlAnimations.BoundsAnimation(
     OC: TControl absolute O;
   begin
     Result := True;
-    if not (O is TControl) then
+    if not ((O is TControl) and
+      ((NewLeft <> OC.Left) or (NewTop <> OC.Top) or
+      (NewWidth <> OC.Width) or (NewHeight <> OC.Height))) then
       Exit;
 
     PrevLeft := OC.Left;

AnyiQuack.pas

@@ -48,6 +48,7 @@   TTimerThread = class;
     emInOut, emInOutMirrored, emInOutCombined,
     emOutIn, emOutInMirrored, emOutInCombined);
   TActorRole = (arTimer, arInterval, arDelay, arAnimation);
+  TActorRoles = set of TActorRole;
 
   TObjectArray = TArray<TObject>;
   TEaseArray = array of TEaseType;
@@ -247,6 +248,8 @@   TAQ = class sealed (TAQBase)
     class function Take(Objects: TObjectList): TAQ; overload;
     class function Take<T: class>(Objects: TObjectList<T>): TAQ; overload;
 
+    class function HasActiveActors(CheckActors: TActorRoles; AObject: TObject; ID: Integer = 0): Boolean;
+
     class function GetUniqueID: Integer;
 
     class function Ease(EaseType: TEaseType;
@@ -2549,6 +2552,31 @@ class function TAQ.Take<T>(Objects: TObjectList<T>): TAQ;
     Result.Add(Objects[cc]);
 end;
 
+// Determines, whether there are active actors (running animation, delay...) for AObject in general
+// or optional for the actor with the specified ID
+class function TAQ.HasActiveActors(CheckActors: TActorRoles; AObject: TObject; ID: Integer): Boolean;
+var
+  Found: Boolean;
+begin
+  Found := False;
+  FActiveIntervalAQs.Each(
+    function(AQ: TAQ; O: TObject): Boolean
+    var
+      OAQ: TAQ absolute O;
+      CheckActor: TActorRole;
+    begin
+      for CheckActor in CheckActors do
+      begin
+        Found := OAQ.Contains(AObject) and OAQ.HasActors(CheckActor, ID);
+        if Found then
+          Break;
+      end;
+
+      Result := not Found;
+    end);
+  Result := Found;
+end;
+
 function TAQ.TimerActorsChain(ID: Integer; IncludeOrphans: Boolean): TAQ;
 begin
   if SupervisorLock(Result, aqmTimerActorsChain) then