БОЛЬШОЙ FAQ ПО DELPHI



Хочется выделять некоторые строчки в TTreeView жирным или бледным


 uses CommCtrl;
 ...
 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;
 

И вызываем:


 SetNodeState(TreeView1.Selected, TVIS_BOLD); // Текст жиpным
 SetNodeState(TreeView1.Selected, TVIS_CUT); // Иконкy бледной (Ctrl+X)
 SetNodeState(TreeView1.Selected, TVIS_BOLD or TVIS_CUT); // Текст жиpным
 SetNodeState(TreeView1.Selected, 0); // Ни того, ни дpyгого
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ