Delphi-PRAXiS - Delphi Problem mit LoadLibraryEx

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Delphi Problem mit LoadLibraryEx (https://www.delphipraxis.net/19652-problem-mit-loadlibraryex.html)

Problem mit LoadLibraryEx

also leute, ich habe folgendes Problem. da ich einen ICQ-Client schreibe, und ich mich entschlossen habe, dass der sowas wie Icon-Packs unterstützen soll, hab ich sämtliche icons in ne dll ausgelagert. nun folgendes problem: wenn ich die dll mit dem microangelo librarian (mit dem ich die dll auch erstellt habe) öffe, schauen die bilder noch ganz normal aus:
[img entfernt]

im programm selber werden die allerdings verschwommen dargestellt, schaut so aus, als ob die erst als 32x32 ausgelesen werden(dabei aber hochgerechnet werden, denn die sind in der dll als 16x16 drin), und dann auf wieder 16x16 runtergerechnet werden:
[img entfernt]

ich benutze folgenden code:

Delphi-Quellcode:

			procedure LoadIconsFromDll();

var 

  Lib: THandle;

  t_icon : TIcon;

  libpath : PAnsiChar;

  i : Integer;

begin

  libpath := PCHar(g_path + 'moeICQ.dll');

  Lib := LoadLibraryEx(libpath, 0, LOAD_LIBRARY_AS_DATAFILE);

  if Lib <> 0 then

  try

    for i := 0 to 15 do

    begin

      t_icon := TIcon.Create;

      t_icon.Handle := ExtractIcon(Lib,libpath, i);

      FormMain.ilContactList.AddIcon(t_icon);

      FreeAndNil(t_icon);

    end;

  finally

    FreeLibrary(Lib);

  end;

end;

die imagelist hat bei height und width 16x16 eingestellt... mach ich da irgendwas falsch?

danke für antworten

phXql