Treeview avec des colonnes

Version imprimable

08/08/2011, 15h59
Pascale38

Treeview avec des colonnes

Bonjour,

je travaille avec C++ builder XE.
je cherche un composant Treeview dans lequel il y aurait des colonnes.
Je m'explique : j'ai besoin donc d'un treeview, où pour chaque noeud, j'aimerai pouvoir afficher des informations supplémentaires.
J'ai installer les composants Jvcl mais je ne trouve rien qui correspond.
Est ce que ce genre de composant existe (dans la Jvcl ou ailleurs?)
J'ai pas mal chercher et il me semble que je ne suis pas la seule à avoir ce besoin !

merci
Pascale38
08/08/2011, 17h43
ShaiLeTroll

TMS ou DevExpress fournissent des grilles avec TreeView incopéré mais aussi l'inverse, je suppose !

Sinon, perso, je l'ai codé à la main en Delphi, juste avec un OnCustomDrawItem et quelques DrawText que je décalais pour chaque colonne !
Si tu je te retrouve le code ...

Sinon le TVirtualTreeview fourni une gestion de colonne via OnGetText
09/08/2011, 09h11
Pascale38

Je ne connais pas TMS ni devExpress, je vais aller voir ce que c'est.
En ce qui concerne le Virtual TreeView, je n'arrive pas à l'installer, j'ai l'erreur suivante :
>>> BPL Output Directory is not defined in "Environment Options"
>>> DCP Output Directory is not defined in "Environment Options"
j'ai cherché sur le web, je ne suis pas la seule à avoir cette erreur mais je n'ai pas trouvé de réponse. J'ai essayé d'ouvrir le projet et de compiler mais il me manque des fichiers...

merci pour ton aide.
Pascale38
09/08/2011, 09h15
Pascale38

Ok TMS et devExpress malheureusement payant... mon patron va pas être d'accord ;)
Si tu retrouves ton code oui ça m'intéresse bien sûr !!
merci !

Pascale38

Si ton Patron ne veut pas investir 500€ dans un pack TMS Grid, rappel lui que tu si tu y passe 3 jours, cela coutera tout aussi cher pour un résultat qui ne répresentent même pas 1% des fonctionnalités de TMS !

Sinon, pour le code, il est en Delphi et je ne sais pas où je l'ai mis, tu devrais te lancer, c'est vraiment pas compliqué d'utiliser le Canvas et DrawText, tu as même des fonctions genre TabbedTextOut qui te permettent de faire l'alignement sans effort

EDIT : tient, je me suis dit que cela serait un bon exercice pour moi de refaire cela en C++, c'est déjà une piste mais bon, je suppose que tu avais déjà réussi cela depuis hier 15h, tu as eu le temps de régler les détails ( comme la gestion du Focus) !

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
//---------------------------------------------------------------------------
void __fastcall TVCLManipForm::BtnTreeViewMiscColumnAddClick(TObject *Sender)
{
  AnsiString Value;
  if (InputQuery("Ajout d'une Colonne", "Largeur ?", Value))
  {
    int ColWidth;
    if (TryStrToInt(Value, ColWidth))
    {
      if (ColWidth > 0)
      {
        TreeViewColWidths.push_back(ColWidth);
        TreeViewMisc->Invalidate();
      }
    }
  }
}
 
//---------------------------------------------------------------------------
void __fastcall TVCLManipForm::BtnTreeViewMiscColumnDeleteClick(TObject *Sender)
{
  AnsiString Value;
  if (InputQuery("Suppression d'une Colonne", "Numéro (indice en base 0)", Value))
  {
    int ColIndex;
    if (TryStrToInt(Value, ColIndex))
    {
      if ((0 <= ColIndex) && (ColIndex < (int)TreeViewColWidths.size()))
      {
        for (TTreeViewColWidthList::iterator it = TreeViewColWidths.begin(); it != TreeViewColWidths.end(); ++it)
        {
          if (ColIndex == 0)
          {
            TreeViewColWidths.erase(it);
          }
          else
            ColIndex--;
        }
 
        TreeViewMisc->Invalidate();
      }
    }
  }
}
 
//---------------------------------------------------------------------------
void __fastcall TVCLManipForm::BtnTreeViewNodeAddClick(TObject *Sender)
{
  TreeViewMisc->Items->AddChild(TreeViewMisc->Selected, "Node N°" + IntToStr(TreeViewMisc->Items->Count))->MakeVisible();
}
 
//---------------------------------------------------------------------------
 
void __fastcall TVCLManipForm::TreeViewMiscAdvancedCustomDrawItem(
      TCustomTreeView *Sender, TTreeNode *Node, TCustomDrawState State,
      TCustomDrawStage Stage, bool &PaintImages, bool &DefaultDraw)
{
  if ((Stage == cdPostPaint) && Sender->InheritsFrom(__classid(TTreeView)))
  {
    TTreeView *Tree = (TTreeView*)Sender;
    TRect NodeRect = Node->DisplayRect(true);
    if (NodeRect.Left > 0)
    {
      Tree->Canvas->TextOut(NodeRect.Left + 2, NodeRect.Top + 2, Node->Text);
 
      int ColIndex = 0;
      for (TTreeViewColWidthList::const_iterator it = TreeViewColWidths.begin(); it != TreeViewColWidths.end(); ++it)
      {
        Tree->Canvas->TextOut(NodeRect.Left + *it + 2, NodeRect.Top + 2, AnsiString().sprintf("Col N°%d - %d [%s]", ColIndex, *it, Node->Text));
        ColIndex++;
      }
    }
  }
}
//---------------------------------------------------------------------------

Code:

1
2
3
private:	// Déclarations utilisateur
  typedef std::list<int> TTreeViewColWidthList;
  TTreeViewColWidthList TreeViewColWidths;

09/08/2011, 15h19
Pascale38

hé merci, non je n'ai pas eu le temps de re regarder car réunion et d'autres trucs à gérer avant.
De plus je ne suis pas super à l'aise avec tous ça car pas du tout spécialiste de c++ builder et de ces composants. Donc merci, je pense que ce que tu as fait va beaucoup m'aider car à vrai dire je n'aurai pas trop su comment commencer !!
Bon ben à moi de jouer !! :roll:
Pascale38
09/08/2011, 17h31
Patrick Seuret

Citation:

Envoyé par Pascale38

Je ne connais pas TMS ni devExpress, je vais aller voir ce que c'est.
En ce qui concerne le Virtual TreeView, je n'arrive pas à l'installer, j'ai l'erreur suivante :
>>> BPL Output Directory is not defined in "Environment Options"
>>> DCP Output Directory is not defined in "Environment Options"
j'ai cherché sur le web, je ne suis pas la seule à avoir cette erreur mais je n'ai pas trouvé de réponse. J'ai essayé d'ouvrir le projet et de compiler mais il me manque des fichiers.

Pour installer VirtualTreeView, il faut déclarer le répertoire "source" et les répertoires BPL et DCP créés par l'installation dans le path:
1) Ouvrir les options -> C++ Options -> Path and Directories (en anglais)
2) Cliquer sur le bouton de "Include path" (le premier en haut à droite)
3) Ajouter les répertoires "$(BDSCOMMDIR)\BPL" et "(tonpath)\Virtual Treeview\Source"
4) Ok
5) Cliquer sur le bouton de "Library path" (celui en dessous de l'include path)
6) Ajouter les répertoires "$(BDSCOMMDIR)\BPL", "$(BDSCOMMDIR)\DCP" et "(tonpath)\Virtual Treeview\Source"
7) Ok
8) Ok

Le VirtualTreeView est assez difficile à utiliser au début mais très efficace et rapide si tu as des grandes listes.

Edit: J'ai retrouvé une autre note pour l'installation: il faut que la personnalité Delphi du RAD Studio soit installée :calim2:
http://www.soft-gems.net/support/for...pic.php?p=4945

Bonne chance
10/08/2011, 10h10
Pascale38

merci ShaiLeTroll pour ton code, ça marche bien, mais ça ne donne pas vraiment ce que je veux, car je n'ai pas des "vraies colonnes". C'est à dire que l'utilisateur ne peut pas les redimensionner... :cry:
Va falloir que j'arrive à décider mon boss à investir... c'est pas gagné !! ;)

Pascale38

Pour le redimensionnent de tes colonnes !
Une astuce, colle un composant avec des colonnes redimensionnable (TStringGrid, TListView, essaye les tous), réduit le juste de la taille des colonnes, retire les scrollbars, et dans le OnColumnResize (si dispo), tu modifie la liste TreeViewColWidths et force le dessin !
Et le tour est joué !
Tu peux aussi construire tes colonnes avec des Panels, avec OnMouseDown couplé à des SendMessage comme
Code:

1 2 PanelSplitterHorizontalTop->Perform(WM_LBUTTONUP, 0, 0); PanelTop->Perform(WM_NCLBUTTONDOWN, HTBOTTOM, 0);
PanelTop et PanelSplitterHorizontalTop en align Top
PanelSplitterHorizontalTop en dessous de PanelTop
PanelSplitterHorizontalTop se comporte comme splitter avec juste ces deux lignes dans OnMouseDown !
Code:

1 2 3 4 5 6 7 8 { if (Sender->InheritsFrom(__classid(TPanel))) { ((TPanel*)Sender)->Perform(WM_LBUTTONUP, 0, 0); ((TPanel*)Sender)->Perform(WM_SYSCOMMAND, SC_MOVE + 2, 0); // Bloque tant que l'on maintient le bouton de la souris appuyé ! OutputDebugString(AnsiString("End Move " + ((TPanel*)Sender)->Name).c_str()); } }
Un autre panel, posé sans rien modifier d'autre que OnMouseDown, tu obtiens un panel qui se peut être déplacé librement

Encore un autre panel, aucune modification
dans le constructeur de la fenêtre
Code:

1 2 3 4 SetWindowLong(PanelImageSizeable->Handle, GWL_STYLE, GetWindowLong(PanelImageSizeable->Handle, GWL_STYLE) | WS_SIZEBOX); PanelImageSizeable->Width += 1; // C'est le seul truc efficace pour que WS_SIZEBOX soit pris en compte, Invalidate, SetWindowPos, rien ne passe à part cette bidouille
tu obtiens un Panel redimensionnable à volonté !

Il n'y a pas de limite aux possibilités, juste l'imagination et la détermination ...
euh ça c'est pas un réplique de film ça ... merde, j'ai vu Green Lantern hier ... :mouarf:

:dehors:

07/09/2011, 14h58
Pascale38

Tout ça devenait un peu trop compliqué à gérer pour moi ;-)
J'ai finalement réussi à installer le VirtualTreeView qui est un composant bien pratique !!!
Je rajouterai par rapport à l'installation de ce composant qui m'a donné du fil à retordre, que non seulement il faut avoir delphi d'installer, mais que ça n'est pas pour autant que le composant s'installe comme il faut (ce qui m'est arrivé).
Dans ce cas il faut compiler et installer le composant à la main avec le profil delphi, ce qui ne pose pas de réel problème, à un bug de l'IDE près qui fait que le composant n'est pas visible en profil c++.
Donc AVANT de compiler ou si votre composant n'est pas visible aller voir ce lien :
http://blog.zachsaw.com/2008/10/delp...ring-in-c.html

Je mets ce post en résolu ?
merci beaucoup à tous pour votre aide !!!

Pascale38