Уважаемые мастера Delphi!!! Подскажите пожалуйста по такому вопросу: как в обычном MainMenu в MenuItem'ах поставить стандартные иконки-картинки, т.е. типа что-то на подобе BitBtn со свойством Kind, где можно в кнопку вставлять стандартные иконки Delphi!!! Я сначала хотел поставить иконки в MainMenu через ImageList, но у меня ничего не получилось. А если это сделать нельзя, тогда, где можно взять эти стандартные иконки? Заранее благодарен ответам!

передай в свойство меню Images ImageList и повыставляй всем элементам ImageIndex

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:21

а... ну тогда тыкаем в PrintScreen ( или берем грабителя ) -- получаем картинку берем Paint и вырезаем все лишнее...

Цитата(_hunter @ 25.6.2005, 14:48)

а... ну тогда тыкаем в PrintScreen ( или берем грабителя ) -- получаем картинку берем Paint и вырезаем все лишнее...

А из ресурсов программы извлечь не проще? Или даже посмотреть, какие у них имена и загружать в рантайм по имени.

Извините конечно за то, что может быть я не очень понятно выразил свой вопрос, но _hunter меня понял правильно. То есть мне нужно через ImageList вставить картинки в MainMenu, но у меня не получается это сделать.

Вот, как я делаю: на форму кидаю MainMenu щелкаю по нему 2 раза, создаю опции (MenuItem'ы: N1,N2,N3...). Потом на форму кидаю ImageList. В MainMenu в свойстве Images выставляю ImageList1. Далее в MenuItem'ах (N1,N2,N3...) в свойстве SubMenuImages выставляю ImageList1 (наверное это тоже нужно, но если даже я его не выставляю все равно не получается, то, что я хочу), а в свойсве ImageIndex, где по умолчанию стоит "-1" прописываю цифры (я так полагаю от 1 до .., сколько картинок столько и чисел), например ставлю "1" или "2" и так до "9". Перепробовал все, но картинок в MainMenu я так и не увидел. Уважаемые мастера Delphi помогите мне разобраться с этой проблемой!!!

Вот тебе пример кода использования изображений TBitBtn.

Код

// На форме 2 компонента - MainMenu1 и ImageList1. // У MainMenu1 создан пункт Test1 // Все параметры компонентов - по умолчанию, остальные устанавливаются в рантайм для наглядности unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, Menus, ImgList; type   TForm1 = class(TForm)     MainMenu1: TMainMenu;     ImageList1: TImageList;     Test1: TMenuItem;     procedure FormCreate(Sender: TObject);   end; var   Form1: TForm1; implementation {$R *.dfm} uses   Buttons; { При подключении этого модуля автоматически подключается файл              ресурсов со всеми глифами TBitBtn } const   // А вот имена ресурсов глифов TBitBtn   BitBtnResNames: array[TBitBtnKind] of PChar = (     nil, 'BBOK', 'BBCANCEL', 'BBHELP', 'BBYES', 'BBNO', 'BBCLOSE',     'BBABORT', 'BBRETRY', 'BBIGNORE', 'BBALL');   procedure TForm1.FormCreate(Sender: TObject); var   Bmp: TBitmap;   I: TBitBtnKind;   M: TMenuItem; begin   // Присваиваем ImageList1 меню   MainMenu1.Images := ImageList1;   // Теперь проходимся по именам ресурсов глифов...   for I := TBitBtnKind(Ord(Low(BitBtnResNames)) + 1) to High(BitBtnResNames) do   begin     Bmp := TBitmap.Create;     // ... загружаем изображение из ресурсов...     Bmp.LoadFromResourceName(HInstance, BitBtnResNames[I]);     // ... создаем элемент меню и устанавливаем у него нужные нам свойства     M := TMenuItem.Create(Test1);     M.Caption := 'Item ' + IntToStr(Ord(I));     M.ImageIndex := ImageList1.AddMasked(Bmp, clOlive);     // и наконец добавляем новосозданный элемент в меню     Test1.Add(M);   end;   end; end.