Como exibir itens em cores diferentes em um TreeView
25/08/2004
0
Meus caros,
Tenho um TreeView onde mostro todos os módulos de meu sistema para o administrador liberar/bloquear para determinado usuário. Meu cliente me pediu para exibir os módulos que estáo liberados em cor diferente dos que estão bloqueados no treeview. Alguém sabe como devo proceder para fazê-lo?
Muito obrigado.
Tenho um TreeView onde mostro todos os módulos de meu sistema para o administrador liberar/bloquear para determinado usuário. Meu cliente me pediu para exibir os módulos que estáo liberados em cor diferente dos que estão bloqueados no treeview. Alguém sabe como devo proceder para fazê-lo?
Muito obrigado.
Eniosb
Curtir tópico
+ 0
Responder
Posts
25/08/2004
Motta
tenho este exemplo p/ listview
O modo mais fácil é no evento CustomDrawItem
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if item.Index mod 2 0 then begin
(Sender as TCustomListView).Canvas.Font.Color:= clGreen;
(Sender as TCustomListView).Canvas.Font.Size:= 13;
(Sender as TCustomListView).Canvas.Font.Name:=´Times New Roman´;
(Sender as TCustomListView).Canvas.Font.Style:= [fsBold, fsItalic];
end else
(Sender as TCustomListView).Canvas.Font.Color:= clBlue
end;
O modo mais fácil é no evento CustomDrawItem
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if item.Index mod 2 0 then begin
(Sender as TCustomListView).Canvas.Font.Color:= clGreen;
(Sender as TCustomListView).Canvas.Font.Size:= 13;
(Sender as TCustomListView).Canvas.Font.Name:=´Times New Roman´;
(Sender as TCustomListView).Canvas.Font.Style:= [fsBold, fsItalic];
end else
(Sender as TCustomListView).Canvas.Font.Color:= clBlue
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)