Font.Size

[kazuser]

Hi there! Is it possible to animate Font.Size? 🤔

uses
  Vcl.StdCtrls

...

    function FontSizeAnimation(FromSize, ToSize, Duration: Integer; ID: Integer = 0;
      const EaseFunction: TEaseFunction = nil; const OnComplete: TAnonymNotifyEvent = nil): TAQ;

...

function TAQPControlAnimations.FontSizeAnimation(FromSize, ToSize, Duration, ID: Integer;
  const EaseFunction: TEaseFunction; const OnComplete: TAnonymNotifyEvent): TAQ;
begin
  Result := Each(
    function(AQ: TAQ; O: TObject): Boolean
    begin
      Result := True;

      Take(O)
        .EachAnimation(Duration,
          function(AQ: TAQ; O: TObject): Boolean
          begin
            TLabel(O).Font.Size := Byte(TAQ.EaseInteger(
              FromSize, ToSize, AQ.CurrentInterval.Progress,
              EaseFunction));

            if Assigned(OnComplete) and (AQ.CurrentInterval.Progress = 1) then
              OnComplete(O);

            Result := True;
          end);
    end);
end;

F9:

procedure Button1Click(Sender: TObject);
begin
  Take(Label1)
     .Plugin<TAQPControlAnimations>
     .FontSizeAnimation(Label1.Font.Size, 12, 1, 1000);
end;

Result:

[kazuser]

Ooops))) "Duration" <> "ID" 😂