Скачать: CL | DM;

Глюк или крив.руки? 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

---

← →
Anatoly Podgoretsky ©   (2006-11-13 11:02) [5]

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

Вполне иожет быть и даже очень вероятно, надо бы код переписать так

if Sender is TAction then TAction(Sender).Checked := FFlag;


---

← →
MetalFan ©   (2006-11-13 16:34) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.172 c