| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TKOLMainMenu [Delphi]
серый мЫш © (2005-03-06 05:08:00)Как заставить появиться один из пунктов главного меню с правого конца окна? Так обычно поступают с пунктом "Помощь". В исходниках я этого не видел.
Владимир Кладов (2005-03-16 15:16:00) [1]замечательно однако обнаружить, что в MSDN не описан MF_HELP и еще пара флажков, рядом с другими MF_, а есть просто в виде ответов как раз на вот такой вопрос :)
серый мЫш (2005-03-16 03:00:00) [2]Спасибо, все работает :)
ECM (2005-03-09 18:27:00) [3]Да уж... был неправ! (Спасибо -SeM- поправил)
Оказывается очень даже просто.
procedure TMainForm.KOLFormFormCreate(Sender: PObj);
var
i: Integer;
begin
i := MainMenu1.ItemHandle[miHelp];
ModifyMenu(MainMenu1.Handle, i,
MF_BYCOMMAND or mf_Help,
i,
PChar(MainMenu1.ItemText[miHelp]))
end;
miHelp - я так назвал пункт главного меню (это константа соответсвующая ItemIndex для данного пункта меню)
ECM (2005-03-09 16:49:00) [4]Total Commander - это не MS разработка (кажется он на Делфи
написан) и вполне возможно, что там собственная прорисовка
меню (т.е. не из встроенных в Win32 вещей.) А это доп. код в библиотеку. Для VCL-то все равно - а тут дело принципа.
Для получения мин. кода - максимально используем встроенный
в АПИ код!
Не устраивает? - всегда есть возможность пожертвовав размером написать отрисовку самостоятельно.
BeZ (2005-03-09 16:34:00) [5]Total Commander 6.0 пример, там вынесено вправо два меню
ECM (2005-03-09 15:59:00) [6]ИМХО: заставить один экземпляр меню так отрисовываться - нельзя.
По-моему нет такой возможности в Win32 API...
Есть какое-нибудь стандартное приложение от MS, где есть
такое меню?
Можно попытаться как-то проиммитировать... при помощи двух
меню раскиданных на панелях и (или) фреймах.
Но это того не стоит...
| |
