Faire de la sélectionné treenode gras sans propriétaire dessin

Faire de la selectionne treenode gras sans proprietaire dessin

Faire de la selectionne treenode gras sans proprietaire dessin : Plusieurs milliers de conseils pour vous faciliter la vie.

de Base de code montrant comment faire de la selectionne TreeNode Gras sans proprietaire dessin

le code suivant utilise La TVIS_BOLD constante pour faire le nœud selectionne en gras.

unit Unit1

interface

utilise
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls

type
TForm1 = class(TForm)
TreeView1: TTreeView
procedure TreeView1Change(Sender: TObject Nœud: TTreeNode)
procedure TreeView1Changing(Sender: TObject Nœud: TTreeNode
var AllowChange: Boolean)
private
{ Private declarations }
public
{ declarations Publiques }
fin

var
Form1: TForm1

la mise en œuvre

utilise Commctrl

{$R *.DFM}

procedure SetNodeBold(Noeud: TTreeNode MakeBold: Boolean)
var
l'Article: TTVItem
Modele: Integer
begin
s'il est Affecte(Nœud)
begin
si MakeBold puis
Modele := -1
else
Modele := 0
Item.Masque := TVIF_STATE
Item.hItem := Noeud.ItemId
Item.StateMask := TVIS_BOLD
Item.Etat := Point.StateMask et Modele
TreeView_SetItem(Nœud.TreeView.Poignee, Element)
fin
fin

procedure TForm1.TreeView1Change(Sender: TObject Nœud: TTreeNode)
begin
SetNodeBold(Nœud, True)
fin

procedure TForm1.TreeView1Changing(Sender: TObject Nœud: TTreeNode
var AllowChange: Boolean)
begin
SetNodeBold(TreeView1.Selectionne, False)
fin

a la fin.