Como exibir itens em cores diferentes em um TreeView
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
Curtidas 0
Respostas
Motta
25/08/2004
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;
GOSTEI 0
Macario
25/08/2004
Que tal usar imagens para demonstrar cada, situação
GOSTEI 0
Eniosb
25/08/2004
Vou tentar as duas opções, muito obrigado!
GOSTEI 0