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