Глюк или крив.руки? TMenuItem.Checked

← →
MetalFan © (2006-11-12 11:17) [0]

был проект под D6, перешел на D7.
что имеем:
есть mm:TMainMenu и pm:TPopupMenu,
есть al:TActionList с ai:TAction.
ко всем (al,mm,pm) подключен один TImageList
у mm и pm есть по mi: TMenuItem, которым назначен ai с выбранным ImageIndex.
есть некая переменная
FFlag: boolean;
есть код:
... TForm.aiExecute(Sender: TObject); begin FFlag := not FFlag; end; TForm.aiUpdate(Sender: TObject); begin TAction( Sender ).Checked := FFlag; end; ...
в D6 было все нормально, если Checked - то картинка в меню обводилась рамочкой.
в D7 вид не изменяется((( хотя mi.Checked = true;
версия делфи: 7.0 (Build 4.453)
Мастера, зашел в тупик!!!
Хелп!!!

← →
MetalFan © (2006-11-12 15:36) [1]

тему можно закрыть...

← →
Правильный Вася (2006-11-12 18:26) [2]

решение расскажи, а?

← →
MetalFan © (2006-11-13 08:26) [3]

поставил обратно D6. а так либо OnAdvancedDraw перекрывать, либо в сорцах VCL править... другого пути я не нашел(

← →
vl_chel © (2006-11-13 10:28) [4]

А Sender кто ??? может здесь, у меня были проблемы именно из за явного приведения типов для Sender a

> vl_chel (13.11.2006 10:28:04) [4]

Вполне иожет быть и даже очень вероятно, надо бы код переписать так
if Sender is TAction then TAction(Sender).Checked := FFlag;

нет, дело не в этом. это косяк VCL...
после выполнения моего кода и экшн и менюитем правильно присваивается Checked

Глюк или крив.руки? TMenuItem.Checked Найти похожие ветки