quarta-feira, 25 de novembro de 2009

Como colorir um ttreeview

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