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))));
}
//---------------------------------------------------------------------------

[Soulama]

Bonjour,

je lis un fichier CSV dans une TListView et apres je genere du SQL en parcourant tte la View.

J ne sais pas si vraiment une TDBGRID peut lire un fichier CSV?

Merci de confirmer.

Soulman

[ShaiLeTroll]

Un DBGrid affiche n'importe quel TDataSet
un DBGrid ne lit pas de fichier ! c'est le DataSet qui s'occupe de cette tache !

le BDE fourni le TTable, qui peut lire des fichiers dit ASCII, qui correspond au CSV américan donc utilise la virgule (comma) commé séparateur, différent du format CSV français utilisant le point-virgule !

Sinon, tu peux effectuer le découpage du CSV comme tu le fais déjà pour remplir ton TListView (tu utilises peut-être le DelimitedText des SubItems ?) mais tu remplis un TClientDataSet à la place !

la FlexCellGrid de TMS fournir un parser CSV, je me souviens bien !