VPF::не работает GetMenuString в WM_DRAWITEM - Форум программистов

Dmitry_177

Дата 21.1.2007, 00:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

не работает GetMenuString в WM_DRAWITEM, может сталкивался ктонибудь с этой проблемой? В обработке WM_DRAWITEM делаю так:

Код


var
 Buffer: string;
 BufSize: integer;
begin
 case Message of
   WM_DRAWITEM: begin
                  with PDrawItemStruct(lParam)^ do
                    begin
                      SetLength(Buffer, MAX_PATH);
                      BufSize := GetMenuString(hwndItem, itemID, PChar(Buffer), MAX_PATH, MF_BYCOMMAND);
                      SetLength(Buffer, BufSize);

...

в переменную Buffer почему-то ничего не записывается...(((

Dmitry_177

Дата 21.1.2007, 02:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

Может это из за того что я создаю меню так:

Код


  hMainMenu := CreateMenu;
  hSubMenuFile := CreatePopupMenu;
  hSubMenuHelp := CreatePopupMenu;

  AppendMenu(hMainMenu, MF_OWNERDRAW or MF_POPUP, hSubMenuFile, '&File');
  AppendMenu(hMainMenu, MF_OWNERDRAW or MF_POPUP, hSubMenuHelp, '&Help');

  AppendMenu(hSubMenuFile, MF_ENABLED or MF_STRING, sflNew, 'New');
  AppendMenu(hSubMenuFile, MF_ENABLED or MF_STRING, sflClose, 'Close');
  AppendMenu(hSubMenuFile, MF_SEPARATOR, 0, '');
  AppendMenu(hSubMenuFile, MF_ENABLED or MF_STRING, sflExit, 'Exit');
...

Может это из за того что какраз у пунктов меню в главном меню нету по сути дела itemID, точнее не определен в этом создании?

Snowy

Дата 21.1.2007, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Цитата(Dmitry_177 @ 21.1.2007, 00:59

)

BufSize := GetMenuString(hwndItem, itemID, PChar(Buffer), MAX_PATH, MF_BYCOMMAND);

Цитата(Dmitry_177 @ 21.1.2007, 00:59

)

в переменную Buffer почему-то ничего не записывается...(((

Потому что

Код

BufSize := GetMenuString(hwndItem, itemID, PChar(Buffer), 0, MF_BYCOMMAND);

Dmitry_177

Дата 21.1.2007, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: нет
Всего: нет

Пробовал, что-то никак... smile

И так еще пробовал:

Код


var
  Buffer: array [0..MAX_PATH - 1]of Char;
  text: string;
begin
  case Message of
    WM_DRAWITEM: begin
                   with PDrawItemStruct(lParam)^ do
                     begin
                       GetMenuString(hwndItem, itemID, Buffer, length(Buffer), MF_BYCOMMAND);
                       text := Buffer;

                       ...

                       DrawText(hDC, PChar(text), length(text), rcItem, DT_CENTER or DT_VCENTER or DT_SINGLELINE);

Voyager

Дата 22.1.2007, 12:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 4
Всего: 18

GetMenuItemInfo

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »