Иконку из Imagelist в ТKOLMainMenu, без всяких там... штучек.

← →
Nwm © (2003-01-06 10:15) [0]

Хочется вот мне с похмела, чтобы размер моей программы уменьшился ещё на n или даже m байт. :) Для того решил разместить в Меню системные иконки из imagelist"a. Обрадовался, когда увидел там метод LoadSystemIcons. Огорчился, когда увидел какие-то руки, ярлыки и прочую хрень (всего 5 иконок), мне не нужную. Мне нужны листочки, дискетки, ножницы, и т.д.

Изобрёл, скорее всего, велосипед:

procedure TForm3.KOLForm1FormCreate(Sender: PObj); var I:PIcon; H: THandle; WinDir: Pchar; begin getmem (WinDir,255); getsystemdirectory (WinDir,255); H:=LoadLibrary (Pchar(WinDir+"\comctl32.dll")); freemem (windir); Imagelist1.AddMasked (LoadImage (h, "#120",IMAGE_BITMAP,0,0,LR_DEFAULTCOLOR),ClSilver); freelibrary (h); I:=Newicon; I.Handle:=Imagelist1.ExtractIcon(5); Mainmenu1.Items[1].Bitmap:=I.Convert2Bitmap(ClWhite); I.free; end;

Получается (мягко говоря) фигня какая-то, господа. Чего они туда полностью не влезают-то? :) Мне нужно полностью! :)
Heeelp. :-)

← →
Nwm © (2003-01-06 22:28) [1]

Раз никто не отвечает, значит, вопрос поставлен неправильно. 8-)

Тогда так: иконки, содержащиеся в ImageList-e, размером 16х16, "не влезают" в menu.itembitmap [ x ] - получаются "обрезанными".

Ясно, что нужно изменить размер этой менюшной bitmap. Пытался (как в какой-то демке) через OnMessage формы, но у меня почему-то ни WM_MEASUREITEM, ни WM_DRAWITEM "не посылаются".

Читаем:
The WM_MEASUREITEM message is sent to the owner window of an owner-drawn button, combo box, list box, list view control, or menu item when the control or menu is created.

Естесственно, у меня "меню из креатед". :)

Г Д Е К О П А Т Ь ?

← →
SPeller © (2003-01-08 09:55) [2]

Выхода 2 - либо забыть про рисунки на менюшках, либо написать компоненту, которая будет их туду правильно запихивать.

← →
Nwm © (2003-01-08 16:22) [3]

Да ну скажешь тоже. :) Будем искать...

← →
SPeller © (2003-01-09 10:51) [4]

> Nwm © (08.01.03 16:22)
> Да ну скажешь тоже. :) Будем искать...

Если есть время, можешь взять за основу нового объекта стандартные менюшки и изменить их так, чтобы они сами вырисовывали на себе битмапы нужных размеров и в нужном месте. У меня такое в принципе получалось, но возникали проблемы при отрисовке Выделенных Disabled пунктов.

← →
Vladimir Kladov (2003-01-10 07:18) [5]

> Vladimir Kladov (10.01.03 07:18)
> А демку смотрели? DemoMenuBitmap.zip на сайте KOL.

Я смотрел, но там во-первых на выделенных пунктах не такие как в стандартных дельфёвых, а во вторых, если поставить менюхе Enabled в False, то рисунок вообще не будет соответствовать.

Иконку из Imagelist в ТKOLMainMenu, без всяких там... штучек. Найти похожие ветки