Animowanie dodanie napisu do ListBox w FireMonkey

Question

Poniższy kod ładnie ożywia dodając nowy ciąg do końca ListBox

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; 

Element rozszerza się i zanika w. Jednak chcę, aby móc dodaj ciąg do dowolnej lokalizacji w polu ListBox - faktycznie w bieżącym ItemIndex. Czy ktoś wie, jak to zrobić?

Answer 1

Aby obejść fakt, że ListBox1.InsertObject i ListBox1.Items.Insert nie działają można wykonać następujące czynności

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; 

ale jest nieco śmieszne. To (ewentualnie) dodaje ciąg w pozycji 0, jeśli nie ma wybranego elementu, w przeciwnym razie dodaje go przed wybranym elementem. To rozwiązanie zbyt mocno przypomina mi Bubble Sort. Będziesz musiał dodać jednostkę matematyczną do swojej klauzuli uses, aby funkcja max działała.

To rzeczywiście wygląda na błąd w FireMonkey (sprawdź Quality Central #102122), ale podejrzewam, że przyszła aktualizacja FireMonkey to naprawi. Jeśli ktokolwiek może zobaczyć lepszy sposób na zrobienie tego ...

Mam również o tym made a movie o tym dla zainteresowanych, który ilustruje sprawy jaśniej.

Answer 2

Zamiast

l.Parent := ListBox1; 

użytku

ListBox1.InsertObject(Index, l); 

gdzie Index jest położenie wstawienia.

(Niewygodne, ale z powodu czytania źródeł, które powinno działać).

Answer 3

To powinno działać, ale to nic nie robi:

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

Gdybym wtedy zadzwonić pod następujące otrzymuję naruszenie zasad dostępu:

ListBox1.Realign; 

W rzeczywistości, nawet ta daje mi AV:

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

Ale dodaje, oczywiście:

ListBox1.Items.Add('hello'); 

Może błąd?