AV при загрузке иконки или картинки

[Winexcel]

Здравствуйте! Пытаюсь добавить иконку к каждому пункту меню через TPopupMenu, сделал следующий стиль, добавил в TImageList нужные картинки, указал нужные иконки в каждом TMenuItem'е, запустил программу, вызвал меню и получил AV, в результате чего такое может быть? Прикрепил исходник

 

Архив ZIP - WinRAR.zip

Изменено 28 марта, 2017 пользователем Winexcel

[enatechno]

Ваш пример работает нормально на 10 Seattle.
На Берлине действительно AV. Похоже ошибка в исходниках:

function TMenuItem.HasOffsetOfGlyph: Boolean;
begin
  Result := (FGlyph <> nil) and FGlyph.BitmapExists and not FGlyphObject.IsChild(FGlyph);
end;

здесь FGlyphObject = nil.
Либо надо править исходники, либо ждать что скажет @RoschinSpb

[RoschinSpb]

1 час назад, enatechno сказал:

либо ждать что скажет @RoschinSpb

Во-первых RoschinSpb попросит передать горячий и пламенный привет в QC.

Во-вторых, если Вы создаете свой собственный стиль, то лучше бы соблюдать стандартную структуру стилевых объектов FGlyphObject это, как не сложно догадаться, стилевой элемент 'glyph'. Он содержит галочку и картинку. Возможно также что картинка будет располагаться не поверх галочки (как в Windows), а рядом с галочкой как в Mac. В этом случае glyphstyle будет расположена не внутри glyph, а рядом.

В-третьих, если Вам просто требуется использовать ImageList, то нет смысла создавать свой стиль. Если Вы тренируетесь в создании стилей, то надо изучать соответствующий раздел и, скорее всего, исходники тоже.

[ENERGY]

Проблема в стиле. Если его удалить, или загрузить другой то все работает.

Загрузите любой стиль например c:\Users\Public\Documents\Embarcadero\Studio\18.0\Styles\Win10Modern.Style и используйте его или если нужен свой, то посмотрите как там делается menuitemstyle.

Там TLayout - со Stylename = glyph  и на нем лежит TGlyph с Stylename - glyphstyle.