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

Как использовать битмапы у пунктов в 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]

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

---

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

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



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