Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Заглавное меню


Gu ©   (2010-12-07 01:57:00) 

У некоторых прог в MainMenu пункт "справка" (или подобный) прижат к правому краю окна. как такое реализовать со стандартным mainmenu?


Gu   (2010-12-08 09:08:00) [1]

просто не читайте мои сообщения и спите спокойна, раз вы такой нервный :)


Anatoly Podgoretsky   (2010-12-08 07:46:00) [2]

> Gu  (08.12.2010 06:05:07)  [7]

Не, просто рука сразу тянется к пистолету.


Gu   (2010-12-08 06:05:00) [3]


> Anatoly Podgoretsky ©   (07.12.10 18:31) [5]
>
> > Gu   (07.12.10 01:57)  
>
> Поубивал бы.


мозги жмут?


Германн   (2010-12-08 01:54:00) [4]


> Anatoly Podgoretsky ©   (07.12.10 18:31) [5]

Слишком сурово.
Пункт меню "Справка" я тоже стремился бы таким образом выделить, если бы у меня сей пункт был бы когда-нибудь.
В левой части располагались бы пункты действия, в правой - пункт "А что это такое". Лично мне было бы так удобнее. Что было бы удобнее пользователю - это сложный вопрос. Пользователь ведь не любит читать справку.
P.S.
Кстати вспомни старый Word со "скрепкой". Она тоже тяготела к правой стороне окна.


Anatoly Podgoretsky   (2010-12-07 18:31:00) [5]


> Gu   (07.12.10 01:57)  

Поубивал бы.


12   (2010-12-07 12:49:00) [6]

так еще делаю
procedure TMainForm.FormCreate(Sender: TObject);
var
 mii: TMenuItemInfo;
 MainMenu: hMenu;
 Buffer: array[0..79] of Char;
begin
 MainMenu := Menu.Handle;
 mii.cbSize := SizeOf(mii);
 mii.fMask := MIIM_TYPE;
 mii.dwTypeData := Buffer;
 mii.cch := SizeOf(Buffer);
 GetMenuItemInfo(MainMenu, miAbout.command , false, mii);
 mii.fType := mii.fType or MFT_RIGHTJUSTIFY;
 SetMenuItemInfo(MainMenu, miAbout.Command, false, mii);


Gu   (2010-12-07 08:44:00) [7]

спасибо


P   (2010-12-07 05:24:00) [8]

procedure TForm1.FormCreate(Sender: TObject);
begin
 ModifyMenu(MainMenu1.Handle, 2, MF_BYPOSITION or MF_POPUP or MF_HELP, MenuIntem.Handle, PChar(MenuIntem.Caption));
end;


Германн   (2010-12-07 02:44:00) [9]


> как такое реализовать со стандартным mainmenu?

То ли ЮЗ, то ли ИШ как-то публиковали решение этой задачи. Но найти в архивах не смог. :(


Наверх

Титульная страница Поиск, карта сайта Написать письмо