Иконка в PopupMenu в пункте Checked
Добавлено: 05 Октябрь 2015, 22:54
С10. Есть Попап Меню, есть в нём пункт Checked. Хочу поставить свою икону на "стандартную галку". Вот кусок текста:
Метод SetIcon не работает, когда пункт Checked, т.е. "стандартная галка" не убиваема. Когда пункт Unchecked, то моя иконка подставляется. Не судьба обмануть стандартный механизм?
Код: Выделить всё
case self.Popup.GetLastNumberSelection()
of 6
LOC:Archive = 1-self.Popup.GetItemChecked('ShowArchive')
self.Popup.SetItemCheck('ShowArchive',LOC:Archive)
if LOC:Archive
self.Popup.SetIcon('ShowArchive','..\pics\checked28.ico')
else
self.Popup.SetIcon('ShowArchive','..\pics\unchecked28.ico')
end
end