Fettdruck der ausgewählten Treenode ohne Ownerdrawing

Fettdruck der ausgewählten Treenode ohne Ownerdrawing

Fettdruck der ausgewählten Treenode ohne Ownerdrawing : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Grundlegenden Code demonstriert, wie der ausgewählten TreeNode-kühn ohne Ownerdrawing machen

Der folgende Code verwendet die TVIS_BOLD-Konstante, um die ausgewählten Knoten Fett.

Einheit Unit1;

Schnittstelle

verwendet
Windows, Nachrichten, SysUtils, Klassen, Graphics, Steuerelemente, Formulare, Dialoge,
ComCtrls;

Typ
TForm1 = class(TForm)
TreeView1: TTreeView;
Procedure TreeView1Change (Sender: TObject; Knoten: TTreeNode);
Procedure TreeView1Changing (Sender: TObject; Knoten: TTreeNode;
Var AllowChange: Boolean);
Private
{Private Deklarationen}
öffentliche
{Public Deklarationen}
Ende;

var
Form1: TForm1;

Umsetzung

Commctrl verwendet;

{$R *. DFM}

Prozedur SetNodeBold (Knoten: TTreeNode; MakeBold: Boolean);
var
Artikel: TTVItem;
Vorlage: Integer;
beginnen
Wenn Assigned(Node) dann
beginnen
Wenn MakeBold dann
Vorlage: =-1
sonst
Vorlage: = 0;
Item.Mask: = TVIF_STATE;
Item.hItem: = Node.ItemId;
Item.StateMask: = TVIS_BOLD;
Item.State: = Item.StateMask und Vorlagen;
TreeView_SetItem (Node.TreeView.Handle, Item);
Ende;
Ende;

Procedure TForm1.TreeView1Change (Sender: TObject; Knoten: TTreeNode);
beginnen
SetNodeBold (Knoten, True);
Ende;

Procedure TForm1.TreeView1Changing (Sender: TObject; Knoten: TTreeNode;
Var AllowChange: Boolean);
beginnen
SetNodeBold (TreeView1.Selected, False)
Ende;

Ende.