poner en negritas titulos en TreeView

[spyfenix]

que tal gente
quisiera saber la manera de resaltar los Nodos padres dentro de un treeview en delphi 7, para distinguir uno del otro
gracias por su ayuda


saludos

[[gluglu]]

Si lo que quieres es resaltar un nodo frente a otro nodo del mismo nivel, lo tienes que controlar tu mismo en el evento OnCustomDrawItem del TTreeView, según los parámetros y lógica que tu mismo decidas.

Si lo que quisieras es resaltar por igual todos los nodos de un mismo nivel, por ejemplo podrías utilizar esto :

Código Delphi [-]
procedure TForm.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.Level = 0 then TreeView1.Canvas.Font.Style := [fsBold];
end;

[*Caro*]

Código Delphi [-]
procedure TForm1.TreeViewCustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Node.Level=0 then
   TreeView.Canvas.Font.Style:=[fsBold];
end;

[spyfenix]

exelente yuda
muchas gracias gluglu y caro por su colaboracion
hasta pronto

saludos