Delphi Sources

Поменять местами пункты ListView



Армянсое радио спрашивают:
- Почему Билл Гейтс такой удачливый и богатый?
- Потому, что каждый его МАТЕРИТ!


void __fastcall TForm1::SwapLVItems(int a, int b)  
{  
   int New;  
   ListView1->Items->BeginUpdate();  
   { 
      ListView1->Items->Add();  
      New = ListView1->Items->Count - 1;  
      ListView1->Items->Item[New] = ListView1->Items->Item[a];  
      ListView1->Items->Item[a] =  ListView1->Items->Item[b];  
      ListView1->Items->Item[b] = ListView1->Items->Item[New];  
      ListView1->Items->Delete(New);  
   } 
   ListView1->Items->EndUpdate();  
}  





Похожие по теме исходники

Sort in ListView

ProgressBar in ListView

ListView Utils

Virtual ListView

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте