| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
СВойства итема PopupMenu
tradakad © (2004-12-27 14:28:00)Подскажите пожалуйста, как назначить иконку для итема PopupMenu?
olookin (2004-12-27 18:24:00) [1]Загрузить иконку в TImageList, а перед этим выставить нужный TMenuItem.ImageIndex:
procedure AddIconToImageList(ImageList: TImageList; IconName: string);
var h: hIcon;
ic: TIcon;
begin
ic:=TIcon.Create; ic.ReleaseHandle;
h:=LoadIcon(HInstance,PChar(IconName));
if h<>0 then ic.Handle:=h; ic.Transparent:=true;
ImageList.AddIcon(ic); ic.Free;
end;
tradakad (2004-12-27 17:36:00) [2]PopupMenu1.Items[0].Bitmap.Handle := Application.Icon.Handle
по крайней мере так не работает .. иконка не появляется..
Sandman25 (2004-12-27 17:27:00) [3]TMenuItem.Bitmap.Handle := ?
tradakad (2004-12-27 17:10:00) [4]это конечно хорошо, но вот как это сделать не используя graphics т.е. у меня есть хендл иконки, как енту иконку назначить итему?
begin...end (2004-12-27 16:57:00) [5]Или TMenuItem.ImageIndex
Переяслов Григорий (2004-12-27 16:55:00) [6]TMenuItem.Bitmap ?
| |
