859 - Alterando a Cor dos Ítens do Treeview

Veja como alterar a cor dos ítens do componente TTreeview, através do evento onCustomDrawItem.



procedure TForm1.TVCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
NodeRect: TRect;
begin
with TV.Canvas do
begin
NodeRect := Node.DisplayRect(True);
Font.Style := [fsBold];
Font.Color := clBlue;
Brush.Color := clAqua;
FillRect(NodeRect);
end;
end;


--------------------------------------------------------------------------------

Enviada por: Jose do Amparo Soares
http://lloydsoft.no-ip.org


Desenvolvendo Soluções