Discussion :

[Soulama]

Bonjour,

jai une TListView ou je dois suprimer ou rearanger des colognes.
Pour suprimer une cologne jutilise le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    view.Items.BeginUpdate;
    ListView_DeleteColumn( view.Handle, Column.index );
    view.Items.EndUpdate ;

Apres la supression je genere du SQL apartir des items.
Le probleme cest que les SubItem de la cologne que jai suprimer sont toujours present mais hidden.
Comment faut il proceder pour suprimer les items et subItem de la cologne suprimer.

Meme cas pour rearanger les colognes, je les rearange avec fullDrag = true, mais juste le titre est changer le contenu reste constant!!

Merci pour vos idees

Soulman

[ShaiLeTroll]

Pour le changement de Colonne par Drag&Drop, il n'y a rien à faire, FullDrag suffit
Il faut différencier l'affichage des Colonnes qui peut-être dans un ordre différent que celui de SubItems !



TListView : changez l'ordre des colonnes ne change pas celui des subItems ?

Pour la suppression, il faudrait balayer tous les SubItems et supprimer les Strings qui dépasse les Columns.Count durant OnColumnDragged
Il faudrait en réalité savoir qu'elle est l'index de la Colonne (voir Tag et ID) pour supprimer la bonne Strings[] dans SubItems pour gérer d'éventuel déplacement de colonne

Une fois, je l'ai fait, un truc bien moche, je chargeais dans SubItems TOUTES les données des 15 colonnes possibles et je jouais avec Width et Min\MaxWidth

[Soulama]

Merci ShaiLeTroll pour la reponce.

Donc il ya du travail a faire je voie...
Existe til un composant gratui qui peut gerer cette fonctionalité?( avant de reinventer la roue )

[ShaiLeTroll]

Gratuit, voir dans la JEDI
Payant, TMS ou DevExpress

Il y en a surement d'autres !

Sinon au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    view.Items.BeginUpdate;
    ListView_DeleteColumn( view.Handle, Column.index );
    view.Items.EndUpdate ;

Essaye un code VCL, si il ne fonctionne pas, c'est que l'équipe de Borland n'a pas pris le temps de le coder, souvent parce que cela implique un dev trop vilain ou trop complexe (limite instable)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    view.Items.BeginUpdate;
   view.Columns.Delete(Column.index);
    view.Items.EndUpdate ;

une bidouille moche mais qui devrait poser moins de soucis !
Les données "Hidden", ne gênent pas !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    view.Items.BeginUpdate;
    view.Columns[Column.index].Width = 0;
    view.Columns[Column.index].MaxWidth = 1;
    view.Items.EndUpdate ;

[Soulama]

Le Hidden va surement gener car je parcourt toute la ListView pour generer du SQL, et donc le contenu des item Hidden vont etre prisent en consideration

[ShaiLeTroll]

Pourquoi ne pas utiliser un TDBGrid et un TClientDataSet, ça ferait très bien le travail, le masquage de colonne est très aisée (et facile à vérifier durant le parcours)

Sinon, nettoyer la liste cela reste facile

Code c++ :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
void __fastcall TBeginningCPPMainForm::Button1Click(TObject *Sender)
{
  TListColumn *Col = ListView1->Columns->Add();
  Col->Caption = "Col " + IntToStr(ListView1->Columns->Count);
}
//---------------------------------------------------------------------------
 
void __fastcall TBeginningCPPMainForm::Button2Click(TObject *Sender)
{
  ListView1->Columns->Delete(3);
  for (int i = 0; i < ListView1->Items->Count ; i++)
    if (ListView1->Items->Item[i]->SubItems->Count >= 3)
      ListView1->Items->Item[i]->SubItems->Delete(2);
 
  // remplace 3 et 2 par l'index voulu
}
//---------------------------------------------------------------------------
 
void __fastcall TBeginningCPPMainForm::Button3Click(TObject *Sender)
{
  TListItem *Item = ListView1->Items->Add();
  Item->Caption = "Col 1, Valeur " + IntToStr(ListView1->Items->Count);
  for (int i = 1; i < ListView1->Columns->Count ; i++)
    Item->SubItems->Add(Format("Col %d, Valeur %d", ARRAYOFCONST((i + 1, ListView1->Items->Count))));
}
//---------------------------------------------------------------------------