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.