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

Обрезаются иконки в 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 не работает.

---

← →
ECM ©   (2005-10-01 13:25) [3]

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

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

---

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

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



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