Cat CSS Animation

By Erick Engelke
March 9, 2025

This is just a cute animation you may wish to add to your application. It could be used in place of the ShowProgress()/HideProgress() animation.

For an example applicaiton see cat.html

There are many CSS animations out there. To use them simply:

  • add a TBrowwer to hold the HTML/CSS

  • set its borders to invisible and its background to clTransparent

  • set its animation as desired

  • load the fun HTML/CSS into the browser

  • make the TBrowser visible only when you want to show the animation.

unit catform;

interface

uses WebCore, WebUI, WebForms, WebCtrls, WebLabels, WebBtns, WebBrwsr, WebComps;

type

   TForm1 = class(TForm)
      Label1: TLabel;
      Browser1: TBrowser;
      Timer1: TTimer;
      procedure Form1Show(Sender: TObject);
      procedure Timer1Timer(Sender: TObject);
   private
      { Private declarations }
   public
      { Public declarations }
   end;

var
   Form1: TForm1;

implementation

procedure TForm1.Form1Show(Sender: TObject);
begin
  browser1.border.top.visible := False;
  browser1.border.left.visible := False;
  browser1.border.right.visible := False;
  browser1.border.bottom.visible := False;
  browser1.animations.visible.duration := 500;
  browser1.Animations.visible.style := asQuadEaseInOut;
  browser1.Scrolling := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  browser1.Visible := False;  // hide it (slowly)
  Timer1.Enabled := False;  // stop doing this
end;

end.