Discussion :

[dacid]

Bonjour à tous,

Je charge un treeview depuis une base, et j'aimerais afficher,dans le texte du noeud, 2 informations (le libellé et l'id).
Seulement, j'aimerais que lors de l'édition, il n'y ait que le libellé, pour le changer.

Par exemple, mes noeuds, lors de la visalisation, affichent: "Chaise (12)".
Et lorsque l'on veut éditer le texte, il n'y ait que: "Chaise", dans la zonne de saisie.
Et une fois qu'on a validé (Chaises, par exemple), il réaffiche l'id... "Chaises (12)".

Est ce que c'est possible ?

[MedGIR]

Je t'insiterais à utiliser la virtualtreeview qui permet enormement de choses:

http://www.soft-gems.net/VirtualTreeview/

Via ce composant tu pourras afficher plusieurs colonnes, en editer qu'une seule... etc...

[dacid]

Bonjour Medgir

Sympa ton controle, mais je le met de coté pour une prochaine fois.
En effet, j'aimerais continuer à utiliser mon treeview standard... Le mien est trop implémenté et j'aimerais garder une certaine portabilité sur cette application.

Est ce que c'est possible, donc ?

Je pensait charger le libellé lors de l'édition, mais quand je fait:
node.texte := 'Test';
dans le onEditing, il me le change à la fin de l'édition, pas avant.

[ebastien]

Salut,
J'aime bien tes challenges à toi ...
J'ai trouvé un truc mais j'avoue ne pas avoir recherché toutes les possibilités ... Donc, il y a peut-être plus "soft" :
C'est une petite proc appelée dans l'évènement OnEditing du treeview qui change le texte du noeud au moment de l'édition :

// Modification du text de l'edit d'un noeud :

Code :

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
procedure TForm1.NodeChangeText(aText : String);
var
  i : integer;
  aHwnd: THandle;
begin
  aHwnd := TreeView_GetEditControl(TreeView1.Handle);
  for i := 1 to Length(aText) do
    PostMessage(aHwnd, WM_CHAR, ord(aText[i]),0);
end;
 
// Appel de la proc NodeChangeText
procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
  NodeChangeText('Mon texte');
end;

Je pense que ça répond à ton besoin non ?
A+
Eb.

[dacid]

Bonjour ebastien,

Toujours au rendez vous.

Comme d'habitude,ta solution ressemble bien à ce que je veux,
seulement, comme d'habitude, je n'arrive pas à la faire marcher,hi.

C'est à: TreeView_GetEditControl que ca bloque...
C'est quelle bibliothèque ?

[ebastien]

T'as vu, j'ai fait un effort ! pas d'héritage de TcustomTreeview
Tu ajoutes l'unité CommCtrl et ça devrait marcher ...
(désolé de ne pas l'avoir précisé !)
Eb.