Cxdbtreelist some ways to use

First, export the Excel TXT HTML:

Uses Cxtlexportlink;

Cxexporttltoexcel (DM.  Savedialog.filename,cxdbtreelist1,true,true); into Excel
Cxexporttltotext (DM.     Savedialog.filename,cxdbtreelist1,true,true); INTO txt
Cxexporttltohtml (DM.     Savedialog.filename,cxdbtreelist1,true,true); into HTML

---------------------------------------------------------------------------------------------------------------

Second, cxdbtreelist1 total number of records: ShowMessage (IntToStr (cxtreelist1. Visiblecount));

Cxdbtreelist1 index of the current record: ShowMessage (IntToStr (CxTreeList1.FocusedNode.VisibleIndex));

Cxdbtreelist1 How many columns: ShowMessage (IntToStr (cxtreelist1. Visiblecolumncount));

Cxdbtreelist1 the current record level: ShowMessage (IntToStr (cxTreeList1.FocusedNode.Level));

Cxdbtreelist1 automatic expansion: Cxtreelist1.fullexpand; Auto Expand

Cxdbtreelist1 Automatic folding: Cxtreelist1. Fullcollapse;

Cxdbtreelist1 node content: ShowMessage (cxdbtreelist1.focusednode.parent.values[0]);

Third, add, delete the node:

To increase the sibling node:

Procedure Tfr_bommglin.cxbutton1click (Sender:tobject);
var Node:tcxtreelistnode;
Begin

Node:=cxdbtreelist1.focusednode.parent.addchild;
Node. values[0]:= ' AAAAA ';
Node. Values[1]:=node. level;

End

To add a subordinate node:

Procedure Tfr_bommglin.cxbutton2click (Sender:tobject);
var Node:tcxtreelistnode;
Begin
Node:=cxdbtreelist1.focusednode.addchild; Add child nodes in first record: CxdbTreeList1.FocusedNode.AddChildFirst;
Node. values[0]:= ' AAAAA ';
Node. Values[1]:=node. level+1;
Cxdbtreelist1.focusednode.expanded:=true; Expand child nodes
End

To delete a node:

Clientdataset1.getbookmark;
CxdbTreeList1.FocusedNode.Delete; Delete the current node record; Delete the child node of the current node: CxdbTreeList1.FocusedNode.DeleteChildren;
CxDBTreeList1.DataController.GotoBookmark;

Multi-node Select Delete:

Cxdbtreelist1.deleteselection

Data set Control:

CxDBTreeList1.DataController.dataset.GotoFirst,//gotolast gotonext gotoprev Gotobookmark

CxDBTreeList1.DataController.dataset.Append; Cancel UpdateData

CxDBTreeList1.DataController.dataset.edit;

According to the cxdbtreelist with the Clientdataset1 record positioning:

First: Bl:=cxdbtreelist1.datacontroller.dataset.getbookmark;

Next: CxDBTreeList1.DataController.DataSet.GotoBookmark (BL);
Cxdbtreelist1.setfocus;

Multi-node selection fetch record:

For i:=0 to Cxdbtreelist1.selectioncount-1 do
Begin
ShowMessage (Cxdbtreelist1.selections[i]. VALUES[1]);
End

-------------------------------------------------------------------------------------------

Third, add the node image:

Put ImageList on the form first to Cxdbtreelist, and in the Getnodeimageindex event of Cxdbtreelist, write the following:

Procedure Cxdbtreelist1getnodeimageindex (sender:tcxcustomtreelist; Anode:tcxtreelistnode; Aindextype:
Tcxtreelistimageindextype; var aindex:timageindex);
Var
I:integer;
Begin
To add a marker to a tree node.
For I: = 0 to Anode.valuecount do
Begin
If Anode.level = 0 Then
Begin
Anode.imageindex: = 0;
End
Else
If Anode.level = 1 Then
Begin
Anode.imageindex: = 2;
End
Else
If Anode.level = 2 Then
Begin
Anode.imageindex: = 1;
End
End
End

Cxdbtreelist some ways to use