https://github.com/hemulgm/stackanimate

FMX stack animate
https://github.com/hemulgm/stackanimate

component delphi firemonkey fmx

Last synced: about 1 month ago
JSON representation

FMX stack animate

• Host: GitHub
• URL: https://github.com/hemulgm/stackanimate
• Owner: HemulGM
• License: mit
• Created: 2023-01-09T12:23:22.000Z (almost 3 years ago)
• Default Branch: main
• Last Pushed: 2024-07-29T07:13:09.000Z (about 1 year ago)
• Last Synced: 2025-07-03T03:03:52.590Z (3 months ago)
• Topics: component, delphi, firemonkey, fmx
• Language: Pascal
• Homepage:
• Size: 909 KB
• Stars: 18
• Watchers: 6
• Forks: 5
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

          
# StackAnimate

```pascal

procedure TForm2.FormCreate(Sender: TObject);

begin

  StackAnimate := TStackAnimate.Create(Layout1);

  StackAnimate.AnimationDuration := 0.1;

  Layout1.AddObject(StackAnimate);

  StackAnimate.UpdateList;

  StackAnimate.OnChangeOrder := FOnChangeOrder;

  StackAnimate.OnEndOrder := FOnEndOrder;

  StackAnimate.HookAllControls;

end;

procedure TForm2.FOnChangeOrder(Sender: TObject);

begin

  Memo1.Lines.Add('FOnChangeOrder');

end;

procedure TForm2.FOnEndOrder(Sender: TObject; WasChanged: Boolean);

begin

  if WasChanged then

    Memo1.Lines.Add('WasChanged ' +

      StackAnimate.Items[StackAnimate.LastChange.NewIndex].Name + ' to ' +

      StackAnimate.LastChange.NewIndex.ToString);

end;

```

 

![Sample](https://github.com/HemulGM/StackAnimate/raw/main/media/ezgif-5-e5854c1030.gif)