Hacer el seleccionado treenode negrita sin dueño dibujo

Hacer el seleccionado treenode negrita sin dueño dibujo

Hacer el seleccionado treenode negrita sin dueño dibujo : Multi-millones de consejos para hacer su vida mas facil.

el codigo Basico de la demostracion de como hacer el seleccionado TreeNode Negrita sin dueño dibujo

El siguiente codigo utiliza la TVIS_BOLD constante para hacer que el nodo seleccionado en negrita.

unit Unit1

interfaz

usos
Windows, Messages, SysUtils, Classes, Graphics, Controles, Formularios, cuadros de dialogo,
ComCtrls

tipo
TForm1 = class(TForm)
TreeView1: TTreeView
procedimiento TreeView1Change(Sender: TObject Nodo: TTreeNode)
procedimiento TreeView1Changing(Sender: TObject Nodo: TTreeNode
var AllowChange: Boolean)
privada
{ Private declarations }
publico
{ Public declarations }
fin

var
Form1: TForm1

aplicacion

utiliza Commctrl

{$R *.DFM}

procedimiento SetNodeBold(Nodo: TTreeNode MakeBold: Boolean)
var
Articulo: TTVItem
Plantilla: Integer
begin
si se ha Asignado(Nodo) entonces
begin
si MakeBold, a continuacion,
Plantilla := -1
else
Plantilla := 0
Elemento.Mascara := TVIF_STATE
Elemento.hItem := Nodo.ItemId
Elemento.StateMask := TVIS_BOLD
Elemento.Estado := Elemento.StateMask y Plantilla
TreeView_SetItem(Nodo.TreeView.Manejar, Item)
fin
fin

procedure TForm1.TreeView1Change(Sender: TObject Nodo: TTreeNode)
begin
SetNodeBold(Nodo, True)
fin

procedure TForm1.TreeView1Changing(Sender: TObject Nodo: TTreeNode
var AllowChange: Boolean)
begin
SetNodeBold(TreeView1.Seleccionado, Falso)
fin

.