Вниз
Скачать: CL | DM;

не работает GetMenuString в WM_DRAWITEM   Найти похожие ветки 

← →
Dmitry_177   (2007-01-21 00:56) [0]

не работает 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   (2007-01-21 02:27) [1]

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


 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, точнее не определен в этом создании?


← →
tesseract ©   (2007-01-21 11:14) [2]

The lpString parameter is a TCHAR buffer, and nMaxCount is the length of the menu string in TCHARs. Sizing these parameters incorrectly can cause truncation of the string, leading to possible loss of data.


← →
Dmitry_177   (2007-01-21 14:57) [3]

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

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);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c
1-1178106337
DelphiLexx
2007-05-02 15:45
2007.07.01
Передать процедуру класса в Обычную функцию


15-1180687632
Andy BitOff (ppc)
2007-06-01 12:47
2007.07.01
трафикометр для кпк


2-1181276047
KJ
2007-06-08 08:14
2007.07.01
Выделить строку ListView целиком


2-1181052191
rumpelshtilchen
2007-06-05 18:03
2007.07.01
Вопрос


2-1181132293
Megabyte
2007-06-06 16:18
2007.07.01
Перечислимый тип в строку




   Наверх