Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
ВнизУ 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?
У самого меню, ширина под объекты меняется, а высота нет...
Почему???...
У подменю меняется и ширина и высота.
Область канвы не увеличилась к сожалению.(Я думал она как нить пропорционально связана с шириной\высотой).
Ее можно как нить увеличить?
← →
HF-Trade © (2005-01-11 12:51) [9]ПАМАЖИТЕ...плиззз... по [8].
Там в TMainMenu.pas есть процедура ONDrawItem and ONAdvancedDrawItem. Неужто ни кто не пользовался?
← →
Cobalt © (2005-01-11 19:04) [10]Рекомендую:
Открывай файл "C:\Program Files\Common Files\Borland Shared\MSHelp\WIN32.HLP", в нём открываешь статью "Menus" и читаешь внимательно.
P.S. Навигация по тексту вперёд и назад - вверху окна кнопки ">>" и "<<".
← →
HF-Trade © (2005-01-12 06:00) [11]
> 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 пикселей
ВЫСОТА ОСНОВНОГО меню не меняется.
Как ее изменить?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.051 c