Скачать: CL | DM;

СВойства итема PopupMenu   Найти похожие ветки 

← →
tradakad   (2004-12-27 14:28) [0]

Подскажите пожалуйста, как назначить иконку для итема PopupMenu?

---

← →
Переяслов Григорий   (2004-12-27 16:55) [1]

TMenuItem.Bitmap ?

---

← →
begin...end ©   (2004-12-27 16:57) [2]

Или TMenuItem.ImageIndex

---

← →
tradakad   (2004-12-27 17:10) [3]

это конечно хорошо, но вот как это сделать не используя graphics т.е. у меня есть хендл иконки, как енту иконку назначить итему?

---

← →
Sandman25 ©   (2004-12-27 17:27) [4]

TMenuItem.Bitmap.Handle := ?

---

← →
tradakad   (2004-12-27 17:36) [5]

PopupMenu1.Items[0].Bitmap.Handle := Application.Icon.Handle

по крайней мере так не работает .. иконка не появляется..

---

← →
olookin ©   (2004-12-27 18:24) [6]

Загрузить иконку в 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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c