Animación de la adición de una cadena en un cuadro de lista en FireMonkey

Question

El siguiente código muy bien anima la adición de una nueva cadena al final de un cuadro de lista

procedure TForm6.AddItem(s: string); 
var 
    l : TListBoxItem; 
    OldHeight : Single; 
begin 
    l := TListBoxItem.Create(Self); 
    l.Text := s; 
    OldHeight := l.Height; 
    l.Height := 0; 
    l.Parent := ListBox1; 
    l.Opacity := 0; 
    l.AnimateFloat('height', OldHeight, 0.5); 
    l.AnimateFloat('Opacity', 1, 0.5); 
end; 

El elemento se agrande y se desvanece. Sin embargo yo quiero ser capaz de agregue la cadena en una ubicación arbitraria en el ListBox, en realidad en el ItemIndex actual. ¿Alguien sabe cómo hacer esto?

Answer 1

Para evitar el hecho de que ListBox1.InsertObject y ListBox1.Items.Insert no funcionan, puede hacer lo siguiente

procedure TForm1.AddItem(s: string); 
var 
    l : TListBoxItem; 
    OldHeight : Single; 
    I: Integer; 
    index : integer; 
begin 
    l := TListBoxItem.Create(nil); 
    l.Text := s; 
    OldHeight := l.Height; 
    l.Height := 0; 
    l.Opacity := 0; 
    l.Index := 0; 
    l.Parent := ListBox1; 

    Index := Max(0, ListBox1.ItemIndex); 
    for I := ListBox1.Count - 1 downto Index + 1 do 
    begin 
    ListBox1.Exchange(ListBox1.ItemByIndex(i), ListBox1.ItemByIndex(i-1)); 
    end; 
    ListBox1.ItemIndex := Index; 
    l.AnimateFloat('height', OldHeight, 0.5); 
    l.AnimateFloat('Opacity', 1, 0.5); 
end; 

pero es un poco ridículo. (Eventualmente) agrega la cadena en la posición 0 si no hay ningún elemento seleccionado, de lo contrario lo agrega antes del elemento seleccionado. Esta solución me recuerda demasiado al Bubble Sort. Necesitará agregar la unidad de matemáticas a su cláusula de uso para que funcione la función máxima.

Esto sí parece ser un error en FireMonkey (compruebe Quality Central #102122). Sin embargo, sospecho que una futura actualización de FireMonkey solucionará esto. Si alguien puede ver una mejor manera de hacerlo ...

También he made a movie sobre esto para aquellos que estén interesados, lo cual ilustra las cosas más claramente.

Answer 2

En lugar de

l.Parent := ListBox1; 

uso

ListBox1.InsertObject(Index, l); 

donde el índice es la posición de inserción.

(No comprobado, pero por leer las fuentes debería funcionar).

Answer 3

Esto debería funcionar, pero no hace nada:

l := TListBoxItem.Create(ListBox1); 
ListBox1.InsertObject(Max(ListBox1.ItemIndex, 0), l); 

si yo llamo el siguiente, me sale una violación de acceso:

ListBox1.Realign; 

De hecho, ni siquiera esto me da un AV:

ListBox1.Items.Insert(0, 'hello'); 
ListBox1.Realign; 

Pero esto se suma, por supuesto:

ListBox1.Items.Add('hello'); 

¿Un error tal vez?