quarta-feira, 7 de outubro de 2009

Colorindo um ttreeview

//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;

Nenhum comentário:

Postar um comentário