StackAnimate

stackanimate

 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 ;