У TMainMenu можно изменить высоту?

← →
HF-Trade © (2005-01-10 11:18) [0]

Народ, подскажите плз. У компонента TMainMenu можно изменить высоту?

← →
Kerk © (2005-01-10 11:36) [1]

у компонента TMainMenu нельзя изменить высоту.. он квадратный..

← →
TUser © (2005-01-10 11:41) [2]

Попробуй так

function GetMenuHeight(Handle: hWND;
var Height: integer): boolean;
var R: _Rect;
H: hMENU;
begin
H:=GetMenu(Handle);
result:=H <> 0;
if result then
result:=GetMenuItemRect(Handle,H,0,@R);
if result then
Height:=R.Buttom - R.Top;
end;

← →
TUser © (2005-01-10 11:42) [3]

Я предположил, что речь про менюшку окна, ивините :)

← →
WhiteGuy (2005-01-10 12:05) [4]

2 TUser
Мужик, а ты о какой менюшке окна говоришь? О той, что слева сверху??

← →
TUser © (2005-01-10 12:27) [5]

> WhiteGuy (10.01.05 12:05) [4]
Вот относительно полезный пример
function GetMenuHeight(Handle: hWND; var Height: integer): boolean; var R: TRect; H: hMENU; begin H:=GetMenu(Handle); result:=H <> 0; if result then result:=GetMenuItemRect(Handle,H,0,R); if result then Height:=R.Bottom - R.Top; end; procedure TForm1.Button1Click(Sender: TObject); var h: hMENU; begin h:=GetMenu(Handle); ShowMessage(inttostr(h)); end; procedure TForm1.Button2Click(Sender: TObject); begin MainMenu1.Free; end; procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin if not GetMenuHeight(Handle,i) then FlashWindow(Button3.Handle,true); ShowMessage(inttostr(i)); end;

← →
HF-Trade © (2005-01-10 13:20) [6]

> Kerk © (10.01.05 11:36) [1]
> у компонента TMainMenu нельзя изменить высоту.. он квадратный..

ПереФразирую ;)
Предметам MainMenu Можно изменять высоту?
Хочу втавить иконки с битмапов напротив пунктов меню дык че там нет возможности битмапы наманые отрисовать, или они будут ужаты до заданного размера и с эти ни че не поделать?
Я так понимаю высота MainMenu напрямую с этим связана?

← →
Gero © (2005-01-10 13:32) [7]

OnMeasureItem?

← →
HF-Trade © (2005-01-10 15:18) [8]

> Gero © (10.01.05 13:32) [7]
> OnMeasureItem?

У самого меню, ширина под объекты меняется, а высота нет...
Почему???...

У подменю меняется и ширина и высота.

Область канвы не увеличилась к сожалению.(Я думал она как нить пропорционально связана с шириной\высотой).
Ее можно как нить увеличить?

ПАМАЖИТЕ...плиззз... по [8].
Там в TMainMenu.pas есть процедура ONDrawItem and ONAdvancedDrawItem. Неужто ни кто не пользовался?

Рекомендую:
Открывай файл "C:\Program Files\Common Files\Borland Shared\MSHelp\WIN32.HLP", в нём открываешь статью "Menus" и читаешь внимательно.

P.S. Навигация по тексту вперёд и назад - вверху окна кнопки ">>" и "<<".

> Cobalt

Еще раз...

Note

Use images that are 16 by 16 pixels for proper display in the menu. Although you can use other sizes for the menu images, alignment and consistency problems may result when using images greater than or smaller than 16 by 16 pixels.

При использовании в ОСНОВНОМ меню битмапов больше 16*16 пикселей
ВЫСОТА ОСНОВНОГО меню не меняется.

Как ее изменить?

У TMainMenu можно изменить высоту? Найти похожие ветки