Обрезаются иконки в MainMenu

← →
shalex (2005-09-29 13:48) [0]

1. Пытаюсь вставить иконки размером 16х16 в MainMenu, но они обрезаются. Что делать? Пробовал сделать иконки меньшего размера (14 х 14), но с таким размером уже практически ничего не видно.

2. Заодно подскажите как вставить в проект иконку для всего приложения?

← →
ECM © (2005-09-29 14:12) [1]

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

← →
shalex (2005-10-01 11:58) [2]

MainMenu1MeasureItem не работает.

> MainMenu1MeasureItem не работает.

Работает...но только для пунктов меню у которых ownerDraw = TRUE
В этом случае прийдется еще немного потрудиться и написать собственную отрисовку пунктов меню - MainMenu1DrawItem
см.
http://delphimaster.net/view/11-1107841870/

Обрезаются иконки в MainMenu Найти похожие ветки