10 ответов в этой теме

[GeX]

procedure MyTextOut(DC : HDC; Rect : TRect; TextId : Integer; dis : PDRAWITEMSTRUCT);
var
MII : MenuItemInfo;
Buf : array [0..254] of Char;
begin
case TextId of
MM_PROCESS : TextOut(DC, Rect.Left + 30, Rect.Top + 5, PChar(Lang.Menu.M_HFP), Length(PChar(Lang.Menu.M_HFP)));
...code....
MM_SEPARATOR : TextOut(DC, Rect.Left, Rect.Top, nil, 0);
else
FillChar(MII, SizeOf(MII), #0);
FillChar(Buf, SizeOf(Buf), #0);
MII.cbSize := SizeOf(MII);
MII.fMask := MIIM_TYPE or MIIM_SUBMENU;
MII.dwTypeData := Buf;
MII.cch := SizeOf(Buf);
if not GetMenuItemInfo(dis^.hwndItem, TextId, False, MII) then
Exit;
if MII.dwTypeData = 'Settings' then
TextOut(DC, Rect.Left + 30, Rect.Top + 5, PChar(Lang.Menu.M_Settings), Length(PCHar(Lang.Menu.M_Settings)));
if MII.dwTypeData = 'Timer' then
TextOut(DC, Rect.Left + 30, Rect.Top + 5, PChar(Lang.Menu.M_Timer), Length(PCHar(Lang.Menu.M_Timer)));
if MII.dwTypeData = 'Actions' then
TextOut(DC, Rect.Left + 30, Rect.Top + 5, PChar(Lang.Menu.M_Action), Length(PCHar(Lang.Menu.M_Action)));
end;
end;

Проблема в функции GetMenuItemInfo - под 98ми в MII.dwTypeData название пункта СубМеню записываеться нормально, а под ХР в нем оказываеться NULL =( При этом под ХР вот этот код название получает нормально :

procedure SetMenuOpc(var aMenu : hMenu);
var
mCount : Cardinal;
Buf : array [0..255] of Char;
MII : MenuItemInfo;
i : Integer;
begin
mCount := GetMenuItemCount(aMenu);
if mCount <= 0 then begin
MessageBox(0, PChar(Lang.Error.CannotCreateMenu), PChar(Lang.Other.Error), MB_OK or MB_ICONWARNING);
Halt(0);
end;
for i := 0 to mCount - 1 do begin
FillChar(MII, SizeOf(MII), #0);
FillChar(Buf, SizeOf(Buf), #0);
MII.cbSize := SizeOf(MII);
MII.fMask := MIIM_TYPE or MIIM_SUBMENU;
MII.dwTypeData := Buf;
MII.cch := SizeOf(Buf);
if not GetMenuItemInfo(aMenu, i, True, MII) then begin
MessageBox(0, PChar(Lang.Error.CannotCreateMenu), PChar(Lang.Other.Error), MB_OK or MB_ICONWARNING);
Halt(0);
end;
MII.fType := MII.fType or MF_OWNERDRAW;
if not SetMenuItemInfo(aMenu, i, True, MII) then begin
MessageBox(0, PChar(Lang.Error.CannotCreateMenu), PChar(Lang.Other.Error), MB_OK or MB_ICONWARNING);
Halt(0);
end;
if MII.hSubMenu <> 0 then SetMenuOpc(MII.hSubMenu);
end;
end;

В чем может быть проблема ?

[GeX]

помогите бедолаге и на свет выйдет WinampControl 3.0 =)

PS.
Кому интересно - сама прога (последняя версия) - http://www.winampcon...Control_2_9.rar
История версий - http://www.winampcon....ru/History.txt

[Gosha]

-Ты туда постучался? -Ничего не перепутал?

[Yarra]

Тут не кодеры, тут флудеры.
К YoZH постучись.

[rb338]

Тут не кодеры, тут флудеры.
К YoZH постучись.

Я html/php онли...
Ну, ещё немнога perl, javascript

[Green Peace]

хм.. я по Делфи... если что ищи в мирке на канале #chat

[J@CK@L]

мне тут неделю сидеть с книжкой и может наййду!!

[-ASD-]

Может быть надо так...

MII.fMask := MIIM_TYPE and MIIM_SUBMENU;

[GeX]

-ASD-
Почитай книжки (не в обиду будь сказанно)

Green Peace
Кроме мирка где еще можно тебя найти ? (я мирк особо не юзаю и не разбираюсь.....)

Yarra
Где его найти ?

Gosha
А куда ты предлагаешь ?

[Green Peace]

Green Peace
Кроме мирка где еще можно тебя найти ? (я мирк особо не юзаю и не разбираюсь.....)

дома =)

[GeX]

Green Peace

Мне лично зайти ? =)