Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Вниз

Обновление меню   Найти похожие ветки 

 
anod ©   (2004-04-06 23:37) [0]

Здраствуйте!
Пишу plugin для winamp: список песен playlist"a в меню.

Добавляю пункт в меню винампа, Обрабатываю событие WM_MENUSELECT,
if (LOWORD(WParam) = 19)and(LParam = hWAMenu) then begin
 CreateItems();
end;

по которому создаю динамически массив подменменю.
При наведении мышкой на одино подменю (тоже через WM_MENUSELECT) открывается ещё меню со списком песен.
Как-то запутвнно получилось...

WinAmp Menu(Songs) -> Items from 1 to 31 -> 1. ....

Обнавляю меню так:
procedure CreateItems();
var i,res,n:integer; tmp:string;
begin
 for i:= GetMenuItemCount(hPopUpMenu)-1 downto 0 do DeleteMenu(hPopUpMenu,i,MF_BYPOSITION);
 res:=SendMessage(plugin.hwndParent, WM_USER, 0, 124);
...
 SetLength(hItemsMenu,n+1);
 for i:= 0 to n-1 do begin
   hItemsMenu[i]:=CreateMenu();
   tmp:= "Items from "+IntToStr(i*30+1)+" to "+IntToStr(i*30+30);
   AppendMenu(hPopUpMenu,MF_STRING or MF_POPUP,hItemsMenu[i], PCHAR(tmp));
 end;
end;


Так как много песен, то обновление меню происходит очень заметно.
Как можно ускорить это?
К тому же хотелось бы, чтобы обновление происходило только при наведение на пункт в предыдущем меню, иногда вылезает глюк, когда при перемещении мышью а меню, оно начинает обновляться...

Спсибо.


 
anod ©   (2004-04-06 23:38) [1]

Сколько ошибок :(


 
anod ©   (2004-04-07 15:23) [2]

Люди, помогите избавиться от этого глюка:

обновление происходило только при наведение на пункт в предыдущем меню, иногда вылезает глюк, когда при перемещении мышью а меню, оно начинает обновляться...



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

Форум: "WinAPI";
Текущий архив: 2004.05.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.034 c
7-1082190027
Sanek_metaller
2004-04-17 12:20
2004.05.23
Отклучение службы


3-1083294873
kvit
2004-04-30 07:14
2004.05.23
Транзакция в АДО?


3-1082720520
Sam Stone
2004-04-23 15:42
2004.05.23
Длинный SQL запрос


3-1083225759
Stupid
2004-04-29 12:02
2004.05.23
Как отобрать записи из Т1 для которых нет записей в Т2?


1-1083844743
Talle
2004-05-06 15:59
2004.05.23
Компоненты TXMLDocument и TWebBrowser





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский