Imagelist und "Zentrieren"

[dominikkv]

Hi

Ich klicke zur Designtime doppelt auf meine ImageList und füge dann nen Image hinzu und wähle "Zentrieren" aus.
Nun habe ich die Bilder in eine DLL ausgelagert und füge sie nun zur Laufzeit über den Quelltext hinzu:

Delphi-Quellcode:

  
procedure ImageToBitmap(Img: TImage);
var
  Pic: TPicture;
begin 
  Pic := TPicture.Create; 
  try 
    Pic.Assign(Img.Picture); 
    Img.Picture.Bitmap.Assign(Pic.Graphic); 
  finally 
    FreeAndNil(Pic); 
  end;
end;

procedure LoadImages;
var
  h :HINST;
  r :TResourceStream;
  j :TJpegImage;
  im: TImage;
  I: Integer;
  Namen: TStringList;
begin
  Namen := TStringList.Create;
  Namen.Add('bPlay');
  Namen.Add('bPause');

 [...]

  h := LoadLibrary('Bilder.dll');
  if h <> 0 then
  begin 
    j := TJpegImage.Create; 
    im := TImage.create(self);
    try 
      for i := 0 to 9 do
      begin 
        r := TResourceStream.Create(h, Namen[I], 'Jpeg'); 
        try 
          j.LoadFromStream(r);
          Im.Picture.Assign(j); 
          ImageToBitmap(Im);
          ImageList1.Add(im.Picture.Bitmap, im.Picture.Bitmap);
        finally 
          r.Free; 
        end;
      end;
    finally
      j.Free; 
      im.free;
    end; 
  end; 
  FreeLibrary(h); 
  Namen.free;
end;

Die Bilder werden später dann in ein Image geladen.
Nur leider werden sie dann nicht mehr zentriert...

Das Resultat hab ich mal diesem Post angefügt.

Meine Frage: wie schaffe ich es das die Bilder zentriert in die ImageList kommen?

mfg.Dominik