Форум на Исходниках.RU

Как работать с GetMenuItemInfo?

Nikfel — Thu, 23 Jul 2009 06:14:56 +0000

Nikfel: Большое спасибо. Теперь всё ясно.

Как работать с GetMenuItemInfo?

leo — Thu, 23 Jul 2009 05:20:12 +0000

leo:

Цитата Nikfel @ 22.07.09, 20:54

var ItemName:pchar;
...
ItemName:=MII.dwTypeData;

Так делать нельзя, т.к. ItemName:pChar указывает на локальную переменную buffer, которая становится невалидной после выхода из функции (затирается другими данными при операциях со стеком). Нужно использовать ItemName:string

function GetMenuItemName(Menu_:HMenu; INDEX:integer):string;

var

Buffer: array[0..63] of Char;

MII:MENUITEMINFO;

begin

MII.cbSize := SizeOf(MENUITEMINFO);

MII.fMask := MIIM_FTYPE or MIIM_STRING;

MII.dwTypeData := Buffer;

MII.cch := sizeof(Buffer);

If GetMenuItemInfo(Menu_,INDEX,true,MII) and

(MII.fType and MFT_STRING <> 0) then

Result:=MII.dwTypeData

else

Result:='';

end;

Как работать с GetMenuItemInfo?

Nikfel — Wed, 22 Jul 2009 20:54:43 +0000

Nikfel: А вот как получить текст пункта меню, если не MFT_OWNERDRAW? Пробовал так, но не вышло:

var ItemName:pchar;

function GetMenuIDName(Menu_:HMenu; INDEX:integer):boolean;

var Buffer: array[0..50] of Char;

begin

MII.cbSize := SizeOf(MENUITEMINFO);

MII.fMask := MIIM_FTYPE or miim_submenu or miim_string;

MII.dwTypeData := buffer;

MII.cch := sizeof(buffer);

result:=false;

If GetMenuItemInfo(Menu_,INDEX,true,MII) then begin

result:=true;

ItemName:=MII.dwTypeData;

end;

Как работать с GetMenuItemInfo?

leo — Wed, 22 Jul 2009 09:40:53 +0000

leo:

Цитата Nikfel @ 22.07.09, 09:30

Значит для типа MFT_OWNERDRAW никак нельзя получить текст пункта меню

Да, т.к. при MFT_OWNERDRAW текст меню отрисовывается самим приложением и в ItemInfo не хранится

Как работать с GetMenuItemInfo?

Nikfel — Wed, 22 Jul 2009 09:30:01 +0000

Nikfel: Спасибо. Теперь все понятно. Значит для типа MFT_OWNERDRAW никак нельзя получить текст пункта меню.

Как работать с GetMenuItemInfo?

leo — Wed, 22 Jul 2009 09:23:01 +0000

leo:

Цитата Nikfel @ 22.07.09, 08:54

Теперь вроде заработало, но только почему-то не получает текст пункта меню?

Смотри возвращаемый тип fType - текст возвращается только для типа MII.fType = MFT_STRING, а для MFT_SEPARATOR или MFT_OWNERDRAW - нет

Как работать с GetMenuItemInfo?

Nikfel — Wed, 22 Jul 2009 08:54:19 +0000

Nikfel: Спасибо. Теперь вроде заработало, но только почему-то не получает текст пункта меню?

Как работать с GetMenuItemInfo?

leo — Wed, 22 Jul 2009 08:35:36 +0000

leo:

Цитата Nikfel @ 21.07.09, 16:24

MII.fMask := MIIM_STRING or MIIM_TYPE;

Это неверное сочетание флагов, нужно юзать либо просто MIIM_TYPE (для совместимости с Win95), либо MIIM_STRING or MIIM_FTYPE

Цитата Nikfel @ 21.07.09, 16:24

If GetMenuItemInfo(Menu,itemID,true,MII) then begin

Если itemID - идентификатор пункта меню (TMenuItem.Command), то 3-й параметр д.б. false, а если это порядковый номер (индекс TMenuItem.MenuIndex) пункта в выпадающем меню, то true

Цитата Nikfel @ 22.07.09, 07:51

На Delphi пробовал задать через символ @, но не сработало

В дельфи последний параметр определен как var, поэтому никаких @ задавать не нужно

Добавлено 22.07.09, 08:43
PS:

Цитата Nikfel @ 21.07.09, 16:24

MII.fType := MFT_STRING or MFT_OWNERDRAW;

fType в GetMenuItemInfo является вых.параметром, поэтому задавать его самому бесполезно

Цитата Nikfel @ 21.07.09, 16:24

var Buffer: array[0..50] of Char;
...
MII.cch := 1023;

Обманывать не хорошо ;) Нужно задавать cch = реальному размеру буфера SizeOf(buffer)

Как работать с GetMenuItemInfo?

Nikfel — Wed, 22 Jul 2009 07:51:40 +0000

Nikfel: GetMenuItemInfo всегда возвращает False и это значит что данные функция не получает. Состояние переменной Menu<>0. Я считаю что я просто не правильно записал.

Вот из C++:

mii.fMask = MIIM_SUBMENU; // информация, которую получаем

GetMenuItemInfo(hmenuBar, IDM_CHARACTER, FALSE, &mii);

Я вот никак не пойму что за символ & в C++? На Delphi пробовал задать через символ @, но не сработало. В чем же моя ошибка не пойму ни как? Мне надо просто получить информацию о пункте меню, т.е. есть ли выпадающее меню и текст в пункте меню.

Как работать с GetMenuItemInfo?

Marriage — Wed, 22 Jul 2009 05:44:04 +0000

Marriage: А что именно не работает ?

Как работать с GetMenuItemInfo?

miksayer — Wed, 22 Jul 2009 00:09:21 +0000

miksayer:

Цитата Nikfel @ 21.07.09, 16:24

Но вроде не работает

вроде или не работает?
откуда ты Menu берешь? оно точно создано? что возвращает эта функция? если false, то что говорит GetLastError?

Как работать с GetMenuItemInfo?

Nikfel — Tue, 21 Jul 2009 16:24:27 +0000

Nikfel: Пробовал так:

function GetMenuIDName(itemID:integer):boolean;

var Buffer: array[0..50] of Char;

begin

MII.cbSize := SizeOf(MENUITEMINFO);

MII.fMask := MIIM_STRING or MIIM_TYPE;

MII.fType := MFT_STRING or MFT_OWNERDRAW;

MII.dwTypeData := buffer;

MII.cch := 1023;

result:=false;

If GetMenuItemInfo(Menu,itemID,true,MII) then begin

result:=true;

ItemName:=MII.dwTypeData;

end;

Но вроде не работает. Где ошибка? Заранее спасибо.