Probleme mit VirtualListView

[bluescreen25]

Danke marabu

Das kann doch nicht wahr sein Die ganze Zeit keine Anzeige.

So klappt es dann: (Listmedia wird ja erst später bekannt)

Delphi-Quellcode:

for iIndex := 0 to 1 do
    begin
      iString := lowercase(Ini.ReadString(Menu,'List' + IntToStr(iIndex) + 'Function','0'));
      If iString = '0' then Goto ListEnde;
      SkinList := TListView.create(SkinForm);
      with SkinList do
      begin
        Parent := SkinForm;
        Name := iString;
        Doublebuffered := True;
        HelpKeyword := iString;
        SetBounds(Ini.ReadInteger(Menu,'List' + IntToStr(iIndex) + 'X',0),Ini.ReadInteger(Menu,'List' + IntToStr(iIndex) + 'Y',0),Ini.ReadInteger(Menu,'List' + IntToStr(iIndex) + 'Width',0),Ini.ReadInteger(Menu,'List' + IntToStr(iIndex) + 'Height',0));
        ViewStyle := vsSmallIcon;
        SmallImages := IL;
        BorderStyle := bsnone;
        OwnerData := true;
        Color := HTMLColorToColor(Ini.ReadString(Menu,'List' + IntToStr(iIndex) + 'BackColor','&HFFFFFF'));
        Font.Color := HTMLColorToColor(Ini.ReadString(Menu,'List' + IntToStr(iIndex) + 'FontColor','&H000000'));
        Font.Name := Ini.ReadString(Menu,'List' + IntToStr(iIndex) + 'Font','Arial');
        Font.Size := Ini.ReadInteger(Menu,'List' + IntToStr(iIndex) + 'FontSize',0);
        OnClick := Form1.SkinListClick;
        OnDblClick := Form1.SkinListDblClick;
      end;
      if SkinList.Name = 'media' then ListMedia := SkinList;
      ListMedia.OnData := Form1.ListMediaData;
    end;