Marcar com negruito os nós de uma TreeView

[Tico_Beer 0]

Boa tarde mestres,

 

eu tenho uma TreeView, e gostoria que quando o usuário desse um clique duplo em determinado nó, este ficasse marcado em negrito, e se está em negrito, com um clique duplo voltasse ao normal.

 

Por Exemplo:

 

Cadastro

|-------- Clientes

|-------- Fornecedores

|-------- Produtos

Comercial

|-------- Pedidos

[Chrnos 30]

Amigo, eu uso este código abaixo para negritar campos numa treeview:

 

procedure TForm1.NegritaTreeNode(treeNode: TTreeNode; Value: Boolean);
var
   treeItem: TTVItem;
begin
   if not Assigned(treeNode) then
	  Exit;
   with treeItem do
   begin
	 hItem := treeNode.ItemId;
	 stateMask := TVIS_BOLD;
	 mask := TVIF_HANDLE or TVIF_STATE;
	 if Value then
	   state := TVIS_BOLD
	 else
	   state := 0;
   end;
   TreeView_SetItem(treeNode.Handle, treeItem);
end;

Tudo o que precisa fazer é passar o nodo que quer negritar e o valor dele como true.

 

[]'s