TechTIC prog:lazarus:components:tvirtualtreeview
http://wiki.techtic.pro/
2026-05-09T17:33:30+0200TechTIC
http://wiki.techtic.pro/
http://wiki.techtic.pro/lib/exe/fetch.php?media=favicon.icotext/html2023-03-13T18:52:09+0200Anonymous (anonymous@undisclosed.example.com)Actions de BASE
http://wiki.techtic.pro/doku.php?id=prog:lazarus:components:tvirtualtreeview:base&rev=1678729929&do=diff
Actions de BASE
Avant toute utilisation d'un VST on doit faire :
* Définir les données a afficher.
* Initialiser le NodeDataSize avec la taille des données à afficher.
* Définir les Columns à afficher.
* Définir OnGetText pour pouvoir afficher le texte du Node.text/html2023-03-13T18:31:40+0200Anonymous (anonymous@undisclosed.example.com)Les Bonnes Pratiques
http://wiki.techtic.pro/doku.php?id=prog:lazarus:components:tvirtualtreeview:bonnespratiques&rev=1678728700&do=diff
Les Bonnes Pratiques
BeginUpdate / EndUpdate
Lorsque l'on met a jour un VST, il est bon pour l'affichage et la rapidité d'entourer ces mises a jour par un BeginUpdate et un EndUpdate.
VST.BeginUpdate;
try
...
finally
VST.EndUpdate;
end;text/html2023-03-13T18:28:09+0200Anonymous (anonymous@undisclosed.example.com)Affichage d'un Node
http://wiki.techtic.pro/doku.php?id=prog:lazarus:components:tvirtualtreeview:node_affichage&rev=1678728489&do=diff
Affichage d'un Node
Affichage du texte du noeud
Lors du dessin du composant, le TVirtualTree se sert de l'evenement OnGetText pour recuperer le texte a afficher.
procedure TForm1.VSTMainGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
var
pData: PTreeData;
begin
pData := VST.GetNodeData(Node);
case Column of
0: CellText:= IntToStr(pData^.id);
1: CellText:= IntToStr(pData^.Flags);
2: CellTe…text/html2023-03-11T15:09:45+0200Anonymous (anonymous@undisclosed.example.com)Parcourir les noeud d'un Virtual Tree View
http://wiki.techtic.pro/doku.php?id=prog:lazarus:components:tvirtualtreeview:scantree&rev=1678543785&do=diff
Parcourir les noeud d'un Virtual Tree View
Parcourir un méme niveau
var
Data: PTreeData;
Node: PVirtualNode;
begin
Node := VST.GetFirst;
while Assigned(Node) do
begin
Data := VST.GetNodeData(Node);
Node := VST.GetNextSibling(Node);
end;
end;text/html2023-05-07T15:45:52+0200Anonymous (anonymous@undisclosed.example.com)Selection
http://wiki.techtic.pro/doku.php?id=prog:lazarus:components:tvirtualtreeview:selection&rev=1683467152&do=diff
Selection
Evenements
Pour savoir si la sélection a changé, on peut utiliser l'event OnFocusChanged
Récuperer la séléction
GetFirstSelected
function TForm1.GetSelectedMarker: TMarker;
var
pNode: PVirtualNode;
pData: PVSTMarkData;
begin
pNode := VSTMark.GetFirstSelected;
if assigned(pNode) then
begin
pData := VSTMark.GetNodeData(pNode);
Result := pData^.Marker;
end else
Result := nil;
end;text/html2023-05-07T15:12:33+0200Anonymous (anonymous@undisclosed.example.com)Virtual Tree View
http://wiki.techtic.pro/doku.php?id=prog:lazarus:components:tvirtualtreeview:tvirtualtreeview&rev=1683465153&do=diff
Virtual Tree View
Fonctionnement
Les TVirtualTrees contiennent un ensemble de Node (de type PVirtualNode).
Chaque Node contient un membre Data TVirtualNode.Data (Data: record end;)
Ce Data contient la donnée a gérer pour ce nœud.
En general la donnée est un record qui peut contenir n'importe quoi , par exemple