Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.27;
Скачать: CL | DM;

Вниз

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. Про позицию не забудь.



Страницы: 1 вся ветка

Текущий архив: 2005.03.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
14-1109344351
cyborg
2005-02-25 18:12
2005.03.27
Самопальный форум


1-1110572823
Andy32
2005-03-11 23:27
2005.03.27
не загружается gds32.dll в win98


1-1110877169
Catalyst
2005-03-15 11:59
2005.03.27
Помогите со строчкой? пишет ошибку если стринг >255


3-1109087328
Dyusha
2005-02-22 18:48
2005.03.27
Удаление всех записей при помощи ADOQuery


1-1110534729
DelphiNew
2005-03-11 12:52
2005.03.27
Как перестроить ветку в Treeview1