Thumbells på billedmappe

Dette eksempel viser bmp-filer som thumbs fra samme mappe, hvor exe-filen eksistere. Husk at tilføje FileCtrl, ExtCtrls under uses:

procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
  img : Timage;
  filelist : Tfilelistbox;
begin
  filelist := Tfilelistbox.create(self);
  with filelist do
  begin
    parent := form1;
    visible := false;
    directory := getcurrentdir;
    mask := \'*.bmp\';
    for i := 0 to items.count-1 do
    with img do
    begin
      img := Timage.create(self);
      parent := form1;
      width := 41;
      height := 41;
      left := i*(width+4);
      top := (i div 10)*(height+4);
      picture.loadfromfile(items[i]);
      stretch := true;
    end;
  end;
  filelist.free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i : integer;
  label go;
begin
  go:
  for i := 0 to componentcount-1 do
  if components[i].classname = \'TImage\' then
  begin
    components[i].free;
    goto go;
  end;
end;

Håber du kan bruge det...

ZeroHero

ændre linjen:
\"mask := \'*.bmp\';\" til \"mask := \'*.jpg\';\" og tilføj jpeg under uses, hvis du vil vise jpg-filer i stedet for bmp-filer.

Jeg Er bare bange for at det ikke lige virker....
Gider du smide det i en form sammen med projektfilen og sende til mig....??

Hvorfor skulle det ikke virke? Jeg har selvfølig selv afprøvet eksemplet :-)...

tak for points :-)

Hvad Er det testet i -? 
Du Er velkommen til at sende dit eksempel  til jss@webhiker.dk eller fange mig på icq  100805685

Jeg Giver gladeligt 60 point til, hvis du sender det til mig.

ok... så lad gå da :-)

så er den sendt...