Olá galera, nesta Quick Tips, irei mostrar os novos recursos que foram adicionados na ListView do Delphi 2009, e também presentes no Delphi 2010. Além de configurarmos a exibição dos Itens da ListView como vsIcon, vsSmallIcon, vsList,vsReport, podemos agora criar grupos, isso mesmo grupos, assim como os sistemas operacionais evoluem as ferramentas de desenvolvimento também tendem a evoluir para acompanhar, podemos ver um ListView no Windows 7,veja abaixo um exemplo

 



Podemos notar os itens que são as unidas de Disco e unidade de DVD-RW, e também estão classificadas em dois grupos como ilustrado na imagem anterior.

 

Agora vamos implementar isso em nossa boa e velha ListView. Adicione em uma nova aplicação :

 

- 1 ImageList (Configure o Width = 32 e Height = 32, adicione 10 imagens do tamanho 32 por 32) renomei o mesmo para Img32x32

- 1 ImageList (Configure o Width = 32 e Height = 32, adicione 3 imagens do tamanho 32 por 32) renomei o mesmo para ImgHeader

 

- 1 ListView

 

Vamos agora criar os grupos inicialmente antes de criar os Itens para fazer tudo de uma única vez tornando o exemplo mais prático.

 

Adicionando os grupos no ListView

- Localize a propriedade Groups adicione 3 Itens, mudando a propriedade Header para Linguagens, Bancos de Dados, Sistemas Operacionais, selecione o TitleImage onde serão listados 3 itens referentes ao componente ImgHeader, observe que foi marcado para true o lgsCollapsible pois ele permitirá ocultar o grupo caso necessário.


  
 

Diversas outras opções podem ser configuradas ao selecionar um item do grupo.

 

Adicionando os itens no ListView

- Localize a propriedade LargeImages e aponte para o Img32x32

- Localize a propriedade GroupHeaderImages e aponte para o ImgHeader

- Localize a propriedade Items e adicione 10 Itens, como mostra a figura abaixo, selecione também o Group ao qual cada item pertence, e também uma imagem para representar o mesmo.




- Localize a propriedade GroupView e coloque True

 

Executando a aplicação podemos ver os efeitos como mostra o exemplo abaixo. Podemos notar que as linguagens estão ocultas justamente porque a propriedade lgsCollapsible foi marcada como True;




Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br