Dica Aidionando vários itens na list view

[Kasparov]

Primeira vez que faço uma rotina de comandos com 99,99% de direito autorais
Antes era uns 60% para alguem e 40% meu, mas agora envoluir

Ok, chega de bla bla bla e vamos ao que interesa:
Adicione 1 rich edit (3° aba), 1 button e 1 list view (3° aba).

Configure a list view de forma que fique como a foto abaixo:

Para isto basta:

1. GridLine := true
2. Clique 2x na list view para colocar as abas
3. ViewStyle := vsReport

Agora adicione este comando no button:

var
L: TListItem;
vez: integer;
begin
vez := richedit1.Lines.Capacity - 1;

repeat
Inc(esta);
L := ListView1.Items.Add;
L.Caption := richedit1.Lines.Strings[esta];
until vez <= esta;

esta := -1;

Pronto, agora basta colocar meus crétidos

[Kasparov]

Aff, esqueci de colocar a imagem ¬¬'


Algum mod coloca abaixo deste texto a imagem:
Configure a list view de forma que fique como a foto abaixo: