| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как использовать битмапы у пунктов в MainMenu?
Dimaxx © (2003-06-03 00:06:00)
Собссно сабж. В VCL я мог влепить хоть 32х32 - пункты увеличивалиь по высоте. Как того же добиться в KOL? У уважаемого Владимира Кладова на сайте есть пример, но он не комплится. Как быть?
Кладов (2003-06-08 05:06:00) [1]
А у меня почему работает? Ладно, обновлю архив еще раз. Хотя странно, что на сайте не тот, что в локальной копии сайта.
Dimaxx (2003-06-08 02:51:00) [2]
Так не работает же DemoMenuBitmaps.zip!!!!!Я уже писал об этом. Там используется свойство FirstCommand, которого (уже?) не в KOL. Потому-то сюда и написал...
Кладов (2003-06-07 10:17:00) [3]
См. в DemoMenuBitmaps.zip: DemoMenuMeasureItem.dpr.
Dimaxx (2003-06-07 00:25:00) [4]
Не фурычит!Создал меню "Файл", а у него 3 подпункта. Запустил - ничего не из менилось. Как быть?
mdw (2003-06-03 11:18:00) [5]
Используй событие OnMeasureItem. Например:
function TJMCtrlMainForm.pmJournalsMeasureItem(Sender: PObj; Idx: Integer): Integer;
begin
Result:= MakeLong(66, 148); //Высота - 66, ширина - 148
end;
| |
