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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> PopupMenu, Картинка 
:(
    Опции темы
The MASTER
Дата 27.9.2004, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


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

Репутация: 2
Всего: 5
А можно спросить, возможно ли сделать чтобы в PopupMenu было как Windows 95/2000 сбоку в Пуске картинка 1 большая там ещё написано Windows 98 Second Edition, и как сделать Popupmenu такимже широким?


--------------------
http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru
PM MAIL WWW ICQ   Вверх
Ozzя
Дата 28.9.2004, 06:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Как поместить маленькие битмапы в TPopUpMenu?

Следующий пример демонстрирует добавление битмапа в пункт PopUpMenu при помощи API функции SetMenuItemBitmaps(). Эта функция имеет следующие параметры: дескриптор всплывающего меню, номер (начиная с нуля) пункта меню в который мы хотим добаить битмап, и два дескриптора битмапов (одна картинка для меню в активном состоянии, а вторая для неактивного состояния).

Код
type
 TForm1 = class(TForm)
   PopupMenu1: TPopupMenu;
   Pop11: TMenuItem;
   Pop21: TMenuItem;
   Pop31: TMenuItem;
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
 private
   { Private declarations }
   bmUnChecked : TBitmap;
   bmChecked : TBitmap;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
 bmUnChecked := TBitmap.Create;
 bmUnChecked.LoadFromFile(
   'C:\Program Files\Borland\BitBtns\ALARMRNG.BMP');
 bmChecked := TBitmap.Create;
 bmChecked.LoadFromFile(
   'C:\Program Files\Borland\BitBtns\CHECK.BMP');
{Добавляем битмапы в пункт меню начиная с 1 в PopUpMenu}
 SetMenuItemBitmaps(PopUpMenu1.Handle,
                    1,
                    MF_BYPOSITION,
                    BmUnChecked.Handle,
                    BmChecked.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 bmUnChecked.Free;
 bmChecked.Free;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 pt : TPoint;
begin
 pt := ClientToScreen(Point(x, y));
 PopUpMenu1.Popup(pt.x, pt.y);
end;

Взято с Исходников.ru http://www.sources.ru



PM MAIL   Вверх
The MASTER
Дата 28.9.2004, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


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

Репутация: 2
Всего: 5
Вообще-то я ЯСНО вырозился, что мне нужно сбоку 1 картинку как у Windows 98 написано Windows 98 Second Edition, а тым не даёшь пример как вообще вставлять маленькие Битмапы! У Delphi 6-9 уже и через компонент ImageList можно вставлять!


--------------------
http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru
PM MAIL WWW ICQ   Вверх
_hunter
Дата 29.9.2004, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
а в чем проблема таким же макаром вставить одну большую картинку ( Rect самому вычислять придется, но это не проблема )?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Ozzя
Дата 29.9.2004, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1
Цитата(The @ 28.9.2004, 14:23)
Вообще-то я ЯСНО вырозился, что мне нужно сбоку 1 картинку как у Windows 98 написано Windows 98 Second Edition, а тым не даёшь пример как вообще вставлять маленькие Битмапы! У Delphi 6-9 уже и через компонент ImageList можно вставлять!

А, ну тогда научись задавать вопросы. И желательно без орфографических ошибок. А то пока через твои дебри проберешься...
PM MAIL   Вверх
The MASTER
Дата 29.9.2004, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


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

Репутация: 2
Всего: 5
Я всё нормально сказал! И не надо обсуждать мои ошибки, у меня инет не ризиновый я не могу сидеть а каждую букву проверять! mad.gif


--------------------
http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru
PM MAIL WWW ICQ   Вверх
p0s0l
Дата 29.9.2004, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112
М
 
А у нас инет, получается, резиновый! Мы должны сидеть и разбирать по буковкам, что же ты там пытался нам донести ?! Есть разница: или ты один посидишь минутку проверишь свой пост, или каждый, кто читает, должен врубаться в твои писанины ?
Тебе в каждой теме говорят об этом, но ты пропускаешь это мимо ушей...
Готовь посты заранее в блокноте, к примеру, проверяй их, а потом в инет лезь и копируй через буфер обмена сюда - так инет-время сэкономишь, и писать по-нормальному будешь...



--------------------
С уважением, г-н Посол.
PM   Вверх
The MASTER
Дата 30.9.2004, 06:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Old master)
**


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

Репутация: 2
Всего: 5
Ана делать мне больше нечиго, ты это уже написал! Всё я ухожу!


--------------------
http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru
PM MAIL WWW ICQ   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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