Einzelnen Beitrag anzeigen

dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
 
Delphi 2007 Professional
 
#1

Imagelist und "Zentrieren"

  Alt 18. Aug 2007, 18:24
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
Miniaturansicht angehängter Grafiken
richtig_128.jpg   falsch_460.jpg  
Dominik
  Mit Zitat antworten Zitat