Zmeniť poradie TListBoxItem v TListBox

[Stanislav Hruška]

Skúšam cvične toto: https://delphi.cz/post/Jednoducha-FMX-mobilni-Android-aplikace-krok-za-krokem.aspx
Nikde neviem nájsť, ako v čase návrhu môžem zmeniť poradie TListBoxItem v TListBox. Je to možné?

[tomak586]

Ano možné to je. Já to řeším vyjmutím a novým vložením TListBoxItem.

Kód: Delphi [Vybrat]

1.   var SelectedIndex := lbName.ItemIndex;
2.   if (SelectedIndex < lbName.Count - 1) then
3.   begin
4.     var Item: TListBoxItem := lbName.ListItems[SelectedIndex];
5.     lbName.RemoveObject(Item);  // remove
6.     lbName.InsertObject(SelectedIndex + 1, Item); // insert
7.     lbName.ItemIndex := SelectedIndex + 1; // selected item
8.   end;
9.  

Tento kód ti posune vybraný TListBoxItem o jednu pozici dolu. Pokud chceš nahoru tak budeš kontrolovat SelectedIndex je vetší jak 0 a misto přičítaní budeš odečítat. lbName je TListBox.

[Stanislav Hruška]

Dúfal som, že to urobím pomocou ItemIndex. Ale TListBoxItem nič podobné nemá.
Len nerozumiem/neviem kedy a kde mám spustiť Tvoj kód.
Žiaľ, help na wiki mi pre FMX nefunguje už tretí deň.

[tomak586]

Třeba jsem tě špatně pochopil, ale měl jsem za to že máš ListBox a v něm chceš změnit pořadí položek, které jsou typem TListBoxItem. A ten můj kod ti posune vybranou položku o jednu pozici dolu. Používam to na tlačítko down a kod kde odečítám používám pro tlačítko up. Metodou InsertObject určuješ index kam TListBoxItem vložíš tak mužeš libovolne v ListBoxu, jen jsi musiš hlídat rozsah aby jsi nebyl mimo.

var Item: TListBoxItem := ListBox1.ListItems[2]; // vyberu polozku na treti pozici
ListBox1.RemoveObject(Item);  // Odeberu vybranou polozku z ListBoxu
ListBox1.InsertObject(10, Item); // Vlozim polozku na jedenactou pozici

[vandrovnik]

Nestačí tohle?

Kód: Delphi [Vybrat]

1.  ListBox1.Items.Move(2, 1);

[Stanislav Hruška]

Ďakujem za odpovede. Len Vám ušiel malý detail. Má to byť v design time.

[vandrovnik]

Tam si prostě rozklikneš vlastnost Items a změníš, co potřebuješ.

[Stanislav Hruška]

To akosi nejde

[vandrovnik]

Dvakrát kliknu na (TStrings)...

[Stanislav Hruška]

Jáj, takto. Ja som išiel na to cez object inspector. Dvojklik mi nenapadol. To je úplne iná pesnička. Mám inú situáciu. Omnoho lepšiu    Ten dvojklik bol na TListBox

[vandrovnik]

Jáj, takto. Ja som išiel na to cez object inspector. Dvojklik mi nenapadol. To je úplne iná pesnička. Mám inú situáciu. Omnoho lepšiu    Ten dvojklik bol na TListBox

No jo, jenže to dialogové okno mají, řekl bych, rozbité - např. zrovna ta šipka pro přesun položky mi v něm funguje jednou a pak už ne, okno se musí zavřít a znovu otevřít.

[Stanislav Hruška]

Tak som to vyskúšal a funguje ako má.