//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;
quarta-feira, 7 de outubro de 2009
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário