Foros Club Delphi - poner en negritas titulos en TreeView

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - poner en negritas titulos en TreeView (https://www.clubdelphi.com/foros/showthread.php?t=45885)

spyfenix

17-07-2007 18:03:13

poner en negritas titulos en TreeView

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

17-07-2007 18:24:10

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	17-07-2007 18:28:16

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

17-07-2007 19:46:03

muchas gracias

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

saludos :cool:

La franja horaria es GMT +2. Ahora son las 17:02:20.