Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
1-1105366850
mal4ik
2005-01-10 17:20
2005.01.23
Как конвертировать строку цифр в большое целое число?


6-1096273698
Gleb Grenkin
2004-09-27 12:28
2005.01.23
Ограничение количества подключаемых клиентов


3-1103532449
Garry_c
2004-12-20 11:47
2005.01.23
Как динамически создать представление в Interbase?


1-1104927198
lelik93
2005-01-05 15:13
2005.01.23
Delphi 7 &amp; russian fonts under XP


1-1105449294
Mishenka
2005-01-11 16:14
2005.01.23
Как из DateTime вытащить число месяца?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский