Страница 72 из 96
Изменение стиля шрифта у TTreeNode
Если существует необходимость изменить стиль шрифта у узла дерева (класс TTreeNode VCL), то можно воспользоваться следующим кодом (в данном примере устанавливается жирный шрифт в событии OnMouseMove TTreeView):void __fastcall TForm1::TreeView1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
TTreeNode *Node = TreeView1->GetNodeAt(X, Y);
if(Node)
{
TV_ITEM tvItem;
tvItem.hItem = Node->ItemId;
tvItem.mask = TVIF_STATE;
tvItem.state = TVIS_BOLD;
tvItem.stateMask = TVIS_BOLD;
SendMessage(TreeView1->Handle, TVM_SETITEM, 0, (LPARAM)&tvItem);
}
// конец оператора if(Mode)
}