Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Заголовок в popup menu 
:(
    Опции темы
Zlo
Дата 16.9.2009, 00:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: 1
Всего: 1
Как сделать в popup меню заголовок, т.е. пункт popupменю который бы не нажимался но выглядел как активный пункт меню?
Перерыл весь форум, но то ли неправильно сформулировал мысль то ли нет такой темы, да и в нете ничего не нашел-один мусор. Или это можно только сделать самому если создавать меню через WinAPI?
Может в Кепшене нужно просто какойто символ поставить в начале?
PM MAIL   Вверх
~FoX~
Дата 16.9.2009, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Zlo, 
В попупе OwnerDraw := true;
Выбираем первый итем, делаем его Enabled := false;
Дальше в обработчике итема AdvancedDrawItem пишем...
Код

procedure TForm1.N11AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; State: TOwnerDrawState);
begin
  ACanvas.FillRect(ARect);
  ACanvas.TextOut(2, ARect.Top + 2, (Sender as TMenuItem).Caption);
end;

Все, он вроде как активный, но и нажать низя будет


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Zlo
Дата 16.9.2009, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: 1
Всего: 1
Да,все кул. Я так и думал что его руками рисовать надо будет...
Но фишка в том что, у меня теперь не рисуются точки в меню, аля радиобутон. Как их тоже отрисовать?
PM MAIL   Вверх
~FoX~
Дата 16.9.2009, 13:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Ну точку тоже придется самому рисовать...

У меня реалезовано так - бросаем ИмиджЛист туда грузим битмап с точкой или галкой или с чем угодно и что нить в этом роде и в обработчике добавляем такое

Код

if (Sender as TMenuItem).Checked then begin
  ImageList1.Draw(ACanvas, ARect.Left+2, ARect.Top+2, 0); //Вместо 0 поставь номер картинки в имиджлисте
end;


На картинке, в меню все глифы и галки отрисованы руками...

Это сообщение отредактировал(а) ~FoX~ - 16.9.2009, 13:09

Присоединённый файл ( Кол-во скачиваний: 31 )
Присоединённый файл  menu.JPG 12,28 Kb


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1864 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.