Форум: "Начинающим";
Текущий архив: 2011.09.18;
Скачать: [xml.tar.bz2];
Вниз
Динамически поменять 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2011.09.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c
