|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Меню с иконками в стиле aero
Delphi 2006. Есть MainMenu/PopupMenu - не важно какое, не важно какие там пункты и прочее.
Меню без иконок: Прицепляю к меню ImageList: Почему когда прицепляю иконки, то теряется aero и включается OwnerDraw. Вопрос: Как сделать так? Гугл не помогает. в MSDN тоже ничего умного не нашёл. Побывал делать через: Код:
constructor T32ImageList.Create(AOwner: TComponent); begin inherited Create(AOwner); //Вызываем родительский метод Self.Handle := ImageList_Create( Width, Height, ILC_COLOR32 or ILC_MASK, AllocBy, AllocBy); end; ... ListImages := T32ImageList.Create(Self); Ic:=TIcon.Create; Ic.LoadFromResourceName(hInstance,'MAINICON'); ListImages.AddIcon(Ic); Ic.Free; PopupMenu1.Images:=ListImages; PopupMenu1.Items[0].ImageIndex:=0; PopupMenu1.OwnerDraw:=false; Ничего не выходит, все-равно рис.2 Продолжение темы - Часть 2. Програмистами не рождаются, ими становятся! Последний раз редактировалось SCrat.ORS, 10.04.2015 в 11:45. |