https://github.com/hemulgm/stackanimate

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

component delphi firemonkey fmx

Last synced: about 2 months 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 2 years ago)
• Default Branch: main
• Last Pushed: 2024-07-29T07:13:09.000Z (5 months ago)
• Last Synced: 2024-07-29T08:43:12.517Z (5 months ago)
• Topics: component, delphi, firemonkey, fmx
• Language: Pascal
• Homepage:
• Size: 909 KB
• Stars: 5
• Watchers: 3
• Forks: 4
• 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)