![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Обрезаются иконки в MainMenu [Delphi, Windows]
shalex © (2005-09-29 13:48:00)1. Пытаюсь вставить иконки размером 16х16 в MainMenu, но они обрезаются. Что делать? Пробовал сделать иконки меньшего размера (14 х 14), но с таким размером уже практически ничего не видно.
2. Заодно подскажите как вставить в проект иконку для всего приложения?
ECM (2005-10-01 13:25:00) [1]
> MainMenu1MeasureItem не работает.
Работает...но только для пунктов меню у которых ownerDraw = TRUE
В этом случае прийдется еще немного потрудиться и написать собственную отрисовку пунктов меню - MainMenu1DrawItem
см.
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1107841870&n=10
shalex (2005-10-01 11:58:00) [2]MainMenu1MeasureItem не работает.
ECM (2005-09-29 14:12:00) [3]1) А если увеличить высоту строк меню?
function TForm1.MainMenu1MeasureItem(Sender: PObj;
Idx: Integer): Integer;
var
Bound: Integer;
bb: packed record
Height: WORD;
Width: WORD;
end absolute Bound;
begin
bb.Height := 18;
bb.Width := 100;// 0 - значение вычисляется системой автоматически
Result := Bound;
end;
2) Можно таким способом:
KOLProject1.dprResource = TRUE
... дальше как и в VCL-проектах Project->Options->Application->Load Icon