Can I display a node in standard TTreeView component with bold style without custom drawing?

最新推荐文章于 2025-12-04 16:52:49 发布

转载最新推荐文章于 2025-12-04 16:52:49 发布 · 639 阅读

文章标签：

#integer #windows

TreeView and ListView 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种在Delphi的TTreeView组件中设置特定节点为加粗样式的方法，无需自定义绘制，通过简单地修改节点状态标志实现。

Can I display a node in standard TTreeView component with bold style without custom drawing?

Time-to-time I receive the question how I realized a selection by the bold font for some nodes in the SMReport Explorer form.

Today I have decided to describe this very simple way (but very useful). It does not require an override of any custom drawing methods/events, creating
a new component etc. It's a real standard way.
**********************************************************
The standard Windows Treeview control have a few state flags (TVIS_BOLD and TVIS_CUT in our example), due to which it's possible to reach wished.

At first, let's write the procedure 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;

And now we can set a wished flags:
SetNodeState(node, TVIS_BOLD) - to set the node as Bold
SetNodeState(node, TVIS_CUT) - to set the node as Cutted
SetNodeState(node, TVIS_BOLD or TVIS_CUT) - to set the node as Bold and
Cutted
SetNodeState(node, 0) - to set a node as normal
*******************************************