ImageList Icons dynamisch ändern / tauschen

[Eisbeer]

Beim Testen der Problemlösung kam volgender Text zusammen (Siehe unten)

Form besteht aus:
1x ListView
2x ImageList (Jeweils schon gefüllt)

ListView wird eingestellt (RowSelect / ViewStyle)
5 ListColumns werden angelegt
ListView1 wird ImageList1 zugewiesen

Schleife 1 soll durchlaufen (Macht sie auch, nur nicht mit den richtigen Icons)

ListView1 wird ImageList2 zugewiesen

Schleife 1 soll durchlaufen (Macht sie auch, nur nicht mit den richtigen Icons)

Es soll also zu jedem Eintrag der Imagelist1 ein Eintrag in der ListView1 gemacht werden und anschließend das Gleiche mit der ImageList 2.

Danke für eure Bemühungen. Es wird hoffendlich jemand hinbekommen
==>Eisbeer<==

Form1->ListView1->ViewStyle = vsReport;
Form1->ListView1->RowSelect = true;

TListColumn *MeinLinkesColumn;
MeinLinkesColumn = Form1->ListView1->Columns->Add();
MeinLinkesColumn->Width = 85;
MeinLinkesColumn->Caption = "1";

MeinLinkesColumn = Form1->ListView1->Columns->Add();
MeinLinkesColumn->Width = 50;
MeinLinkesColumn->Caption = "2";

MeinLinkesColumn = Form1->ListView1->Columns->Add();
MeinLinkesColumn->Width = 60;
MeinLinkesColumn->Caption = "3";

MeinLinkesColumn = Form1->ListView1->Columns->Add();
MeinLinkesColumn->Width = 120;
MeinLinkesColumn->Caption = "4";

MeinLinkesColumn = Form1->ListView1->Columns->Add();
MeinLinkesColumn->Width = 42;
MeinLinkesColumn->Caption = "5";

Form1->ListView1->SmallImages = Form1->ImageList1;

for(int zaehler = 0; zaehler < Form1->ImageList1->Count; zaehler++)
        {
        Form1->ListView1->SmallImages = Form1->ImageList1;
        TListItem *MeinLinkesItem;
        MeinLinkesItem = Form1->ListView1->Items->Add();
        MeinLinkesItem->ImageIndex = zaehler;
        MeinLinkesItem->Caption = "1";
        MeinLinkesItem->SubItems->Add("2");
        MeinLinkesItem->SubItems->Add("<3>");
        MeinLinkesItem->SubItems->Add("4");
        MeinLinkesItem->SubItems->Add("5");
        }

Form1->ListView1->SmallImages = Form1->ImageList2;
for(int zaehler = 0; zaehler < Form1->ImageList2->Count; zaehler++)
        {
        Form1->ListView1->SmallImages = Form1->ImageList2;
        TListItem *MeinLinkesItem;
        MeinLinkesItem = Form1->ListView1->Items->Add();
        MeinLinkesItem->ImageIndex = zaehler;
        MeinLinkesItem->Caption = "1";
        MeinLinkesItem->SubItems->Add("2");
        MeinLinkesItem->SubItems->Add("<3>");
        MeinLinkesItem->SubItems->Add("4");
        MeinLinkesItem->SubItems->Add("5");
        }