1 files changed, 0 insertions, 125 deletions
diff --git a/plugins/mRadio/i_tray_api.inc b/plugins/mRadio/i_tray_api.inc
deleted file mode 100644
index 9339a10613..0000000000
--- a/plugins/mRadio/i_tray_api.inc
+++ /dev/null
@@ -1,125 +0,0 @@
-{}
-type
-  pTrayRadioStation = ^tTrayRadioStation;
-  tTrayRadioStation = record
-    name:pWideChar;
-    handle:THANDLE;
-  end;
-
-function MyStrSort(para1:pointer; para2:pointer):int; cdecl;
-begin
-  result:=StrCmpW(pTrayRadioStation(para1).name,pTrayRadioStation(para2).name);
-end;
-
-function MakeStationsMenu:HMENU;
-var
-  hContact:Cardinal;
-  sl:TSortedList;
-  p:pWideChar;
-  i:integer;
-  flag:integer;
-  tmp:pTrayRadioStation;
-begin
-  result:=CreatePopupMenu;
-  if result<>0 then
-  begin
-    FillChar(sl,SizeOf(sl),0);
-    sl.increment:=16;
-    sl.sortFunc:=@MyStrSort;
-    hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);
-    while hContact<>0 do
-    begin
-       if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0)),cPluginName)=0 then
-       begin
-         p:=DBReadUnicode(hContact,strCList,'MyHandle',nil);
-         if p<>nil then
-         begin
-           mGetMem(tmp,SizeOf(tTrayRadioStation));
-           tmp.name:=p;
-           tmp.handle:=hContact;
-           List_InsertPtr(@sl,tmp);
-         end;
-       end;
-      hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);
-    end;
-
-    for i:=0 to sl.realCount-1 do
-    begin
-      if (i=0) or ((i mod 20)<>0) then
-        flag:=MF_STRING
-      else
-        flag:=MF_STRING or MF_MENUBARBREAK;
-      tmp:=sl.Items[i];
-      AppendMenuW(result,flag,tmp.handle,tmp.name);
-      mFreeMem(tmp.name);
-      mFreeMem(tmp);
-    end;
-    List_Destroy(@sl);
-  end;
-end;
-
-function CreateTrayMenu(wParam:WPARAM;lParam:LPARAM):int; cdecl;
-const
-  startid = 100;
-var
-  menu:HMENU;
-  flag,id:integer;
-  pt:TPOINT;
-  playstr:pWideChar;
-begin
-  id:=0;
-  menu:=CreatePopupMenu;
-  if menu<>0 then
-  begin
-    if gVolume<0 then
-      flag:=MF_STRING+MF_CHECKED
-    else
-      flag:=MF_STRING+MF_UNCHECKED;
-
-    if CallService(MS_RADIO_COMMAND,MRC_STATUS,RD_STATUS_GET)<>RD_STATUS_PAUSED then
-      playstr:='Pause'
-    else
-      playstr:='Play';
-
-    AppendMenuW(menu,flag     ,startid+1,TranslateW('Mute'));
-    AppendMenuW(menu,MF_STRING,startid+2,TranslateW(playstr));
-    AppendMenuW(menu,MF_STRING,startid+3,TranslateW('Stop'));
-    AppendMenuW(menu,MF_SEPARATOR,0,nil);
-    AppendMenuW(menu,MF_POPUP,MakeStationsMenu,TranslateW('Play Station'));
-    GetCursorPos(pt);
-    id:=integer(TrackPopupMenu(menu,TPM_RETURNCMD+TPM_NONOTIFY,pt.x,pt.y,0,hiddenwindow,nil));
-    case id of
-      0: ; // nothing
-      startid+1: begin // mute
-        Service_RadioMute(0,0);
-      end;
-      startid+2: begin // play/pause
-        CallService(MS_RADIO_COMMAND,MRC_PAUSE,0);
-      end;
-      startid+3: begin // stop
-        CallService(MS_RADIO_COMMAND,MRC_STOP,0);
-      end;
-    else // choose station
-      Service_RadioPlayStop(id,0);
-    end;
-    DestroyMenu(menu);
-  end;
-  result:=id;
-end;
-
-procedure CreateMIMTrayMenu;
-var
-  mi:TCListMenuItem;
-begin
-  if ServiceExists(MS_CLIST_ADDTRAYMENUITEM)<>0 then
-//    if hiddenwindow<>0 then
-    begin
-      FillChar(mi, sizeof(mi), 0);
-      mi.cbSize    :=sizeof(mi);
-      mi.pszService:=MS_RADIO_TRAYMENU;
-      mi.szName.a  :=cPluginName;
-      mi.hIcon     :=CallService(MS_SKIN2_GETICON,0,lparam(IcoBtnSettings));
-      Menu_AddTrayMenuItem(@mi);
-    end;
-end;
-