Data commit

Task/Animation/Delphi/animation-1.delphi

@@ -0,0 +1,43 @@
+unit Main;
+
+interface
+
+uses
+  Winapi.Windows, System.SysUtils, System.Classes, Vcl.Controls, Vcl.Forms,
+  Vcl.StdCtrls, Vcl.ExtCtrls;
+
+type
+  TForm1 = class(TForm)
+    lblAniText: TLabel;
+    tmrAniFrame: TTimer;
+    procedure lblAniTextClick(Sender: TObject);
+    procedure tmrAniFrameTimer(Sender: TObject);
+  end;
+
+var
+  Form1: TForm1;
+  Reverse: boolean = false;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.lblAniTextClick(Sender: TObject);
+begin
+  Reverse := not Reverse;
+end;
+
+function Shift(text: string; direction: boolean): string;
+begin
+  if direction then
+    result := text[text.Length] + text.Substring(0, text.Length - 1)
+  else
+    result := text.Substring(1, text.Length) + text[1];
+end;
+
+procedure TForm1.tmrAniFrameTimer(Sender: TObject);
+begin
+  with lblAniText do
+    Caption := Shift(Caption, Reverse);
+end;
+end.

Task/Animation/Delphi/animation-2.delphi

@@ -0,0 +1,15 @@
+object Form1: TForm1
+  ClientHeight = 132
+  ClientWidth = 621
+  object lblAniText: TLabel
+    Align = alClient
+    Alignment = taCenter
+    Caption = 'Hello World! '
+    Font.Height = -96
+    OnClick = lblAniTextClick
+  end
+  object tmrAniFrame: TTimer
+    Interval = 200
+    OnTimer = tmrAniFrameTimer
+  end
+end