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

Динамически поменять Bitmap у элемента TMenuItem   Найти похожие ветки 

← →
MenuItem.Bitmap   (2011-05-31 18:36) [0]

Не могу справиться с проблемой смены иконки  меню.
N1 содержит 2 пункта подменю (N11 и N12)
В соответствии с выбором одного из этих подменю хочу организовать смену иконки N1 на соответствующую выбору.

Вот код:

procedure TForm1.N11Click(Sender: TObject);
var bmp: TBitmap;
begin
Bmp := TBitMap.Create;
ImageList1.GetBitmap(0, bmp);
N1.Bitmap.Empty;
N1.Bitmap.Assign(bmp);
N1.Bitmap.Canvas.Refresh;
end;

procedure TForm1.N12Click(Sender: TObject);
var bmp: TBitmap;
begin
Bmp := TBitMap.Create;
ImageList1.GetBitmap(1, bmp);
N1.Bitmap.Empty;
N1.Bitmap.Assign(bmp);
N1.Bitmap.Canvas.Refresh;
end;

Все бы казалось ничего, но после этих кликов иконка N1 не меняется (обновляется) до тех пор, пока на нее просто не наведется мышь.

Что мне необходимо сделать дополнительно (что я пропустил), чтобы иконка N1 менялась (обновлялась) сразу.
Спасибо.

---

← →
clickmaker ©   (2011-05-31 18:38) [1]

Action.ImageList / ImageIndex?

---

← →
Smile   (2011-05-31 18:46) [2]

Не совсем понял, но, спасибо.
Сейчас посмотрю (почитаю) в хелпе

---

← →
Smile_   (2011-05-31 18:53) [3]

> clickmaker ©   (31.05.11 18:38) [1]

ImageIndex

Спасибо

---

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

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



Память: 0.45 MB
Время: 0.004 c