Ist zwar schon ein etwas älterer Beitrag, aber da ich heute gerade nach längerer Suche drüber gestolpert bin und hier die Screenshots inzwischen fehlen, und mir das perfekt für das erste Rumspielen mit einem class helper erschien, hab ich mal eben zwei davon zusammengeschustert und mitsamt Screenshots hier angehängt.
Funktionabel ab
BDS X (hier Version einsetzen, ab der es class helper gibt... 2005 oder 2006?), alternativ stehen zumindest 8 Wrapper-Funktionen für dieselben Aktionen zur Verfügung. Die
CommCtrl_Fragment.pas ist ebenfalls noch nötig, wollte nicht so frech sein und die als meine Arbeit ausgeben, ich habs ja bloß nochmal in Schönschrift abgeschrieben
Beispiel für die Anwendung:
Delphi-Quellcode:
procedure TForm1.AddSomeGroupedThings;
begin
ListView1.AddGroup('Eigene Dateien', 1); // neu
ListView1.AddGroup('Downloads', 2);
ListView1.ViewStyleEx := vsTile; // neu
with ListView1.Items.Add do begin
Caption := 'Hallo Welt.txt';
GroupId := 1; // neu
SetMinimumSubItemCount(2, '?'); // neu
SubItems[0] := '11 B';
SubItems[1] := IntToStr(GroupId);
SetTileViewColumns(2, [1]); // neu
end;
with ListView1.Items.Add do begin
Caption := 'snlListView.pas';
GroupId := 1;
SetMinimumSubItemCount(2, '?');
SubItems[0] := '10 KB';
SubItems[1] := IntToStr(GroupId);
SetTileViewColumns(2, [1]);
end;
with ListView1.Items.Add do begin
Caption := 'Screenshot.png';
GroupId := 2;
SetMinimumSubItemCount(2, '?');
SubItems[0] := '183 KB';
SubItems[1] := IntToStr(GroupId);
SetTileViewColumns(2, [1]);
end;
ListView1.TileViewLines := 1; // neu
ListView1.GroupViewEnabled := true; // neu
end;