Foros Club Delphi - cambiar fuente en TTreeView

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

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

- - cambiar fuente en TTreeView (https://www.clubdelphi.com/foros/showthread.php?t=13950)

cambiar fuente en TTreeView

Hola !!!
Quiero hacer algo medio rebuscado
Quiero cambiarle la fuente los hijo de TreeView(de un nivel especifico) de la sigiente manera:

Padre-->:Nombre
Hijo1: Nombre1 / Nombre2
Hijo2: Nombre1 / Nombre2
.....
.....

es decir que el Text del Hijo tenga dos tipos de fuentes, para diferencia Nombre 1 de Nombre 2

Se puede , hay alguna manera???

Gracias por Sus ayudas.

Nicocer

Te recomiendo ver la ayuda y el ejemplo del método OnCustomDrawItem del TTreeView.

Hasta luego.

;)

Código:

rocedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;

  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);

begin

      with Sender.Canvas do

        Case Node.Level of

        0: begin

             if cdsSelected in State then

                Font.Color := clWhite

             else

                Font.Color := clGray;

             Font.Name:='Arial';

             Font.Size:=8;

             Font.Style:=[];

           end;

        1: begin

             if cdsSelected in State then

                Font.Color := clWhite

             else

                Font.Color := clRed;

             Font.Name:='Verdana';

             Font.Size:=7;

             Font.Style:=[fsItalic,fsUnderline];

           end;

        2: begin

             if cdsSelected in State then

                Font.Color := clWhite

             else

                Font.Color := clGreen;

             Font.Name:='Times New Roman';

             Font.Size:=9;

             Font.Style:=[fsItalic];

           end;

        else begin

             if cdsSelected in State then

                Font.Color := clWhite

             else

                Font.Color := clNavy;

             Font.Name:='Verdana';

             Font.Size:=7;

             Font.Style:=[fsBold];

           end;

        end;//Case

end;

Este codigo me funciona para cambiar los colores de los items.
Lo q me queda por hacer es poder cambiar el tipo de fuente de un Text.
Algo encontre en el foro. Si lo puedo resolver mando el code.

Para simplificar las cosas hay alguna manera de Cambiarle la Font a un Caption de un Lable, pero con la particularidad de q por ejemplo. La primer letra del caption sea de un tipo de letra y las demas de otro tipo de letra?????

Gracias

nicocer

Cita:

Empezado por nicocer

Para simplificar las cosas hay alguna manera de Cambiarle la Font a un Caption de un Lable, pero con la particularidad de q por ejemplo. La primer letra del caption sea de un tipo de letra y las demas de otro tipo de letra?????

A un label, no lo creo; pero estamos hablando de un TreeView, ¿no?. En lugar de limitarte a cambiarle las propiedades del font del canvas, podes vos mismo directamente mostrar el texto en este (via textout), y alli, tenes la libertad de dibujar, incluso, cada letra de diferente tipo o color. El límite, es la imaginación.

Lo que creo que hará falta, después de hacer el textout, es establecer el parámetro DefaultDraw a False, pero te recomiendo revisar la documentación al respecto, pues no estoy totalmente seguro.

Hasta luego.

;)