Kontrol TreeView Windows standar memiliki beberapa status flag, diantaranya TVIS_BOLD dan TVIS_CUT.
Pertama-tama kita membuat prosedur SetNodeState :
procedure SetNodeState(node: TTreeNode; Flags: Integer);
var
tvi: TTVItem;
begin
FillChar(tvi, SizeOf(tvi), 0);
tvi.hItem := node.ItemID;
tvi.Mask := TVIF_STATE;
tvi.StateMask := TVIS_BOLD or TVIS_CUT;
tvi.State := Flags;
TreeView_SetItem(node.Handle, tvi);
end;
Sekarang, kita dapat menetapkan flag yang diinginkan, misalnya :
- SetNodeState(node, TVIS_BOLD) --> untuk melakukan Set Node Bold.
- SetNodeState(node, TVIS_CUT) ---> untuk melakukan Set Node Cutted
- SetNodeState(node, TVIS_BOLD or TVIS_CUT) ---> untuk melakukan Set Node Bold dan Cutted
- SetNodeState(node, 0) ---> Set Node Normal.
Untuk dapat menjalankan command tersebut harus ditambahkan QComCtrls pada klausa uses.
#Semoga Bermanfaat
