Иконка в PopupMenu в пункте Checked

[kreator]

С10. Есть Попап Меню, есть в нём пункт Checked. Хочу поставить свою икону на "стандартную галку". Вот кусок текста:

Код: Выделить всё

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

Метод SetIcon не работает, когда пункт Checked, т.е. "стандартная галка" не убиваема. Когда пункт Unchecked, то моя иконка подставляется. Не судьба обмануть стандартный механизм?

[Admin]

По моему только самостоятельной обработкой состояния CHECKED. Т.е. свой флаг состояния и иконка.

[kreator]

Спасибо за наводку. Как сам не догадался? Не делать пункт "Checkable", а самостоятельно обрабатывать.