Как использовать битмапы у пунктов в MainMenu?

← →
Dimaxx (2003-06-03 00:06) [0]

Собссно сабж. В VCL я мог влепить хоть 32х32 - пункты увеличивалиь по высоте. Как того же добиться в KOL? У уважаемого Владимира Кладова на сайте есть пример, но он не комплится. Как быть?

← →
mdw (2003-06-03 11:18) [1]

Используй событие OnMeasureItem. Например:
function TJMCtrlMainForm.pmJournalsMeasureItem(Sender: PObj; Idx: Integer): Integer;
begin
Result:= MakeLong(66, 148); //Высота - 66, ширина - 148
end;

← →
Dimaxx (2003-06-07 00:25) [2]

Не фурычит! Создал меню "Файл", а у него 3 подпункта. Запустил - ничего не из менилось. Как быть?

← →
Кладов (2003-06-07 10:17) [3]

См. в DemoMenuBitmaps.zip: DemoMenuMeasureItem.dpr.

← →
Dimaxx (2003-06-08 02:51) [4]

Так не работает же DemoMenuBitmaps.zip!!!!! Я уже писал об этом. Там используется свойство FirstCommand, которого (уже?) не в KOL. Потому-то сюда и написал...

← →
Кладов (2003-06-08 05:06) [5]

А у меня почему работает? Ладно, обновлю архив еще раз. Хотя странно, что на сайте не тот, что в локальной копии сайта.

Как использовать битмапы у пунктов в MainMenu? Найти похожие ветки