Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.10.2013, 10:01
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию Меню с иконками в стиле 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.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:22.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter