Ikona importowana z DLL

0

Hej!
Mam problem. Jak zaimporotwać z biblioteki dll (ładowanej dynamicznie) ikonę i umieścić ją w ImageList?

Proszę o kod procedur zarówno biblioteki jak i programu.
Dzięki.

0

Załączony plik *.rc.

nazwa_ikony DATA "normal.ico"

Kod wywoływany gdziekolwiek - czy to w DLL czy w EXE.

var Stream: TResourceStream;
    Ico:TIcon;
begin
Stream := TResourceStream.Create(UchwytDLL, 'nazwa_ikony', 'DATA');
Ico:=TIcon.Create;
try
  Ico.Width:=16;
  Ico.Height:=16;
  Stream.Position:=0;
  Ico.LoadFromStream(Stream);
  ImageList.AddIcon(Ico);
finally
  Ico.Free;
  Stream.Free;
  end;
end;

Jakoś tak.

0

ok. dzięki:)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0