Tmenu + TResourceStream + TBitmap

← →
diabolik_krsk (2005-03-15 05:05) [0]

Подскажите как решить!

Есть такой код (взят из примера в инете). Ресурсный файл с bitmap скомпилирован в плагин (по сути - та же dll но с другим расширением).

procedure PlugLoad; var Res: TResourceStream; Item: TMenuItem; PlugName: function: PChar; Handle: THandle; begin Item := TMenuItem.Create(MainMenu); Handle := LoadLibrary(PChar(FileName)); // код загрузки плагина // загрузка bitmap из ресурса плагина Res := TResourceStream.Create(handle,"image",rt_rcdata); Res.saveToFile("temp.bmp"); Res.free; Item.Bitmap.LoadFromFile("Temp.bmp"); FreeLibrary(handle); Mainmenu.items[3].add(Item); end;

В коде bitmap выдергивается из ресурса и пишется во временный файл. А потом в пункт меню добавляется загрузкой этого файла.
Подскажите как обойти процедуру создания временного файла и напрямую завязать загрузку bitmap из ресурса в пункт меню без создания промежуточного файла??

← →
Набережных С. © (2005-03-15 08:24) [1]

Bitmap.LoadFromStream. Про позицию не забудь.

Tmenu + TResourceStream + TBitmap Найти похожие ветки