Delphi XE3: BMP filer i ListView under Windows10

Jeg kører Delphi 7.

Prøv at vise lidt kode.  Har en ide om hvad der kan være galt, men det kan din kode afgøre.

KR

procedure TfrmFBygFiler.Button6Click(Sender: TObject);
begin
  LoadBMPtoList(Sender);
  ListView1.Clear;
  ListView1.AddItem('000001', nil);
  ListView1.AddItem('000002', nil);
  ListView1.AddItem('000003', nil);
  ListView1.AddItem('000004', nil);
  ListView1.AddItem('000005', nil);
  ListView1.AddItem('000006', nil);
  ListView1.AddItem('000007', nil);
  ListView1.AddItem('000008', nil);
  ListView1.AddItem('000009', nil);
  ListView1.AddItem('000010', nil);
  ListView1.AddItem('000011', nil);
  ListView1.AddItem('000012', nil);
  ListView1.AddItem('000013', nil);
  ListView1.AddItem('000014', nil);
  ListView1.AddItem('000015', nil);
  ListView1.AddItem('000016', nil);
end;

procedure TfrmFBygFiler.LoadBMPtoList(Sender: TObject);
var
  I: Integer;
  Nummer: string;
begin
  BitmapFil := TBitmap.Create;
  ImageList1.Clear;
  AntalBitmapsFor.Caption := inttostr(ImageList1.Count);
  I := 1;
  repeat
    Nummer := inttostr(I+6);
    if length(Nummer) = 1 then
      Nummer := '00000' + Nummer
    else if length(Nummer) = 2 then
      Nummer := '0000' + Nummer;
    BitmapFil.LoadFromFile('F:\Billedarkiv\ThumbNails\' + Nummer + '.bmp');
    ImageList1.Height := BitmapFil.Height;
    ImageList1.Width := BitmapFil.Width;
    ImageList1.Add(BitmapFil, nil);
    { Imagelist1.ComponentIndex := I; }
    I := I + 1;
  until I > StrToInt(antalBilleder.Text);
  BitmapFil.free;
  AntalBitmapsEfter.Caption := inttostr(ImageList1.Count);
end;

HEJ,

Kode modtaget. 

Må ud af huset nu.  Vil studere nøjere i aften.  Melder tilbage (måke først i mpren).

KR

Prøv dette:

procedure TfrmFBygFiler.LoadBMPtoList(Sender: TObject);
var
  I: Integer;
  Nummer: string;
begin
  BitmapFil := TBitmap.Create;
  ImageList1.Clear;
  AntalBitmapsFor.Caption := inttostr(ImageList1.Count);
  I := 1;
  repeat
    Nummer := inttostr(I+6);
    if length(Nummer) = 1 then
      Nummer := '00000' + Nummer
    else if length(Nummer) = 2 then
      Nummer := '0000' + Nummer;
  IF FILEEXIST('F:\Billedarkiv\ThumbNails\' + Nummer + '.bmp') THEN
      BEGIN
              BitmapFil.LoadFromFile('F:\Billedarkiv\ThumbNails\' + Nummer + '.bmp');
              ImageList1.Height := BitmapFil.Height;
                ImageList1.Width := BitmapFil.Width;
                ImageList1.Add(BitmapFil, nil);
                { Imagelist1.ComponentIndex := I; }
      END
ELSE
      BEGIN
            SHOWMESSAGE('FILEN: ' + 'F:\Billedarkiv\ThumbNails\' + Nummer + .bmp'  + '  EKSISTERER IKKE ' );
      END;

I := I + 1;

  until I > StrToInt(antalBilleder.Text);
 
BitmapFil.free;
  AntalBitmapsEfter.Caption := inttostr(ImageList1.Count);
end;

Det jeg gør, er at jeg tester om filen eksisterer // om der er adgang til billed -filen. - erne.  Jeg har kørt din rutine på min D7 (med 10 veldefinerede BMP filer ) og der er ingen problemer.  (Ved dog ikke om der en en BUG i Imageliste-håndteringen på XE3.. )

Hvis det ikke er det, så arbejder vi videre indtil prblmet er løst.... 

KR

Hejsa
Tak for dit svar.
Desværre giver det samme resultat.
Jeg tror der er en bug i XE3.

Der er faktisk en mulighed mere.  Gå ind på https://stackoverflow.com/. Det er en amerikansk Webside for professionelle programmører (jeg er medlem) , omend jeg er mere over på den amatørmæssige side.  Meld dig ind og spørg om Xe3 har en BUG i Imagelist komponenten der.  De VED DET MED SIKKERHED.... 

KR

Se evt. på denne:

http://docwiki.embarcadero.com/RADStudio/Sydney/en/Using_TImageList_Image_Lists_as_Centralized_Collections_of_Images

KR

Og hvis du skifter dine .BMP's til .PNG''s kan du bruge :

https://stackoverflow.com/questions/4221597/add-a-png-image-to-a-imagelist-in-runtime-using-delphi-xe

KR

Jeg har prøvet med png og får en fejl i compileringen på
ImageList_Add(ImageList.Handle, bmp.Handle, 0);
Jeg kan ikke bruge ImageList_Add

Man skal sætte image index på hver element i Listview:
ListView1.Items[0].ImageIndex := 0;
ListView1.Items[1].ImageIndex := 1;
osv. så virker det.
Du må have en god dag!

Tak for tilbagemeldingen.

Og godt du fandt løsningen.

" Happy Programming "

KR