mRadio moved to protocols

in fpc.cfg added pathes for protocols folder

git-svn-id: http://svn.miranda-ng.org/main/trunk@1859 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 0 insertions, 228 deletions

diff --git a/plugins/mRadio/i_tray.inc b/plugins/mRadio/i_tray.inc
deleted file mode 100644
index 096e288691..0000000000
--- a/plugins/mRadio/i_tray.inc
+++ /dev/null
@@ -1,228 +0,0 @@
-{}

-var

-  trayradioparent:THANDLE;

-  trayparent:THANDLE;

-  traymute  :THANDLE;

-  trayplay  :THANDLE;

-  srvtrayplaypause:THANDLE;

-  srvtraystop:THANDLE;

-const

-  trayStations:TSortedList = (items:nil; realCount:0; limit:0; increment:8; sortFunc: nil);

-  

-type

-  pTrayRadioStation = ^tTrayRadioStation;

-  tTrayRadioStation = record

-    name    :pWideChar;

-    hContact:THANDLE;

-    service :THANDLE;

-    menuitem:THANDLE;

-    presents:int; // 0 - not used, 1 - ok, 2 - new

-  end;

-

-function MyStrSort(para1:pointer; para2:pointer):int; cdecl;

-begin

-  result:=StrCmpW(pTrayRadioStation(para1).name,pTrayRadioStation(para2).name);

-end;

-

-function ChooseStation(wParam:WPARAM;lParam,lParam1:LPARAM):int; cdecl;

-begin

-  result:=Service_RadioPlayStop(lParam1,0);

-end;

-

-procedure MakeStationsMenu;

-var

-  hContact:Cardinal;

-  p:pWideChar;

-  i,idx:integer;

-  tmp:pTrayRadioStation;

-  srch:tTrayRadioStation;

-  pc:pAnsiChar;

-  buf:array [0..63] of AnsiChar;

-  mi:TCListMenuItem;

-begin

-  trayStations.sortFunc:=@MyStrSort;

-

-  // clear presents flag

-  if trayStations.realCount>0 then

-    for i:=0 to trayStations.realCount-1 do

-      pTrayRadioStation(trayStations.Items[i]).presents:=0;

-

-  // Fill list

-  FillChar(srch,SizeOf(srch),0);

-  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

-         srch.name:=p;

-         // search in list

-         if List_GetIndex(@trayStations,@srch,@idx)<>0 then

-           // found - set mark

-           pTrayRadioStation(trayStations.Items[idx]).presents:=1

-         else // add if not found

-         begin

-           mGetMem(tmp,SizeOf(tTrayRadioStation));

-           tmp.name    :=p;

-           tmp.presents:=2;

-           tmp.hContact:=hContact;

-           List_InsertPtr(@trayStations,tmp);

-         end;

-       end;

-     end;

-    hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);

-  end;

-

-  // delete obsolete elements

-  for i:=trayStations.realCount-1 downto 0 do

-  begin

-    tmp:=pTrayRadioStation(trayStations.Items[i]);

-    if tmp.presents=0 then

-    begin

-      mFreeMem(tmp.name);

-      DestroyServiceFunction(tmp.service);

-      CallService(MS_CLIST_REMOVETRAYMENUITEM,tmp.menuitem,0);

-      mFreeMem(tmp);

-      List_Remove(@trayStations,i);

-    end;

-  end;

-

-  // build menu from sorted list

-  FillChar(mi,SizeOf(mi),0);

-  mi.cbSize:=sizeof(mi);

-  mi.Flags :=CMIF_KEEPUNTRANSLATED or CMIF_UNICODE or CMIF_ROOTHANDLE;

-  mi.szPopupName:=TChar(trayparent);

-  pc:=StrCopyE(@buf,'mRadio/Choose');

-  for i:=0 to trayStations.realCount-1 do

-  begin

-    tmp:=pTrayRadioStation(trayStations.Items[i]);

-    if tmp.presents=2 then

-    begin

-      IntToStr(pc,tmp.hContact);

-      tmp.service:=CreateServiceFunctionParam(@buf,@ChooseStation,tmp.hContact);

-      mi.position  :=i;

-      mi.pszService:=@buf;

-      mi.szName.w  :=tmp.name;

-      tmp.menuitem:=Menu_AddTrayMenuItem(@mi);

-    end;

-  end;

-end;

-

-function TrayPlayPause(wParam:WPARAM;lParam:LPARAM):int_ptr; cdecl;

-begin

-  result:=CallService(MS_RADIO_COMMAND,MRC_PAUSE,0);

-end;

-

-function TrayStop(wParam:WPARAM;lParam:LPARAM):int_ptr; cdecl;

-begin

-  result:=CallService(MS_RADIO_COMMAND,MRC_STOP,0);

-end;

-

-procedure CreateTrayMenu();

-var

-  mi:TCListMenuItem;

-  playstr:pWideChar;

-begin

-  FillChar(mi, sizeof(mi), 0);

-  mi.cbSize  :=sizeof(mi);

-  mi.flags   :=CMIF_UNICODE;

-  mi.szName.w:=cPluginName;

-  mi.hIcon   :=CallService(MS_SKIN2_GETICON,0,lparam(IcoBtnSettings));

-  trayradioparent:=Menu_AddTrayMenuItem(@mi);

-

-  FillChar(mi, sizeof(mi), 0);

-  mi.cbSize  :=sizeof(mi);

-  mi.szPopupName:=TChar(trayradioparent);

-

-  if gVolume<0 then

-    mi.flags:=CMIF_UNICODE or CMIF_ROOTHANDLE or CMIF_CHECKED

-  else

-    mi.flags:=CMIF_UNICODE or CMIF_ROOTHANDLE;

-  mi.szName.w  :='Mute';

-  mi.pszService:=MS_RADIO_MUTE;

-  mi.position  :=1;

-  traymute:=Menu_AddTrayMenuItem(@mi);

-

-  mi.flags:=CMIF_UNICODE or CMIF_ROOTHANDLE;

-  if CallService(MS_RADIO_COMMAND,MRC_STATUS,RD_STATUS_GET)<>RD_STATUS_PLAYING then

-    playstr:='Play'

-  else

-    playstr:='Pause';

-  mi.szName.w  :=playstr;

-  mi.position  :=2;

-  srvtrayplaypause:=CreateServiceFunction('mRadio/TrayPlayPause',@TrayPlayPause);

-  mi.pszService:='mRadio/TrayPlayPause';

-  trayplay:=Menu_AddTrayMenuItem(@mi);

-

-  mi.szName.w  :='Stop';

-  mi.position  :=3;

-  srvtraystop:=CreateServiceFunction('mRadio/TrayStop',@TrayStop);

-  mi.pszService:='mRadio/TrayStop';

-  Menu_AddTrayMenuItem(@mi);

-

-  mi.szName.w :='Play Station';

-  mi.position :=1000;

-  mi.pszService:=nil;

-  trayparent:=Menu_AddTrayMenuItem(@mi);

-end;

-

-function TrayPrebuild(wParam:WPARAM;lParam:LPARAM):int; cdecl;

-var

-  mi:tClistMenuItem;

-  playstr:pWideChar;

-begin

-  FillChar(mi,sizeof(mi),0);

-  mi.cbSize:=sizeof(mi);

-  if gVolume<0 then

-    mi.flags:=CMIM_FLAGS or CMIF_CHECKED

-  else

-    mi.flags:=CMIM_FLAGS;

-  CallService(MS_CLIST_MODIFYMENUITEM,traymute,tlparam(@mi));

-

-  mi.flags:=CMIM_NAME or CMIF_UNICODE;

-  if CallService(MS_RADIO_COMMAND,MRC_STATUS,RD_STATUS_GET)<>RD_STATUS_PLAYING then

-    playstr:='Play'

-  else

-    playstr:='Pause';

-  mi.szName.w:=playstr;

-  CallService(MS_CLIST_MODIFYMENUITEM,trayplay,tlparam(@mi));

-

-  MakeStationsMenu();

-  result:=0;

-end;

-

-procedure CreateMIMTrayMenu;

-begin

-  if ServiceExists(MS_CLIST_ADDTRAYMENUITEM)<>0 then

-//    if hiddenwindow<>0 then

-    begin

-      CreateTrayMenu();

-      MakeStationsMenu();

-      HookEvent(ME_CLIST_PREBUILDTRAYMENU,@TrayPrebuild);

-    end;

-end;

-

-procedure RemoveTrayItems;

-var

-  i:integer;

-  tmp:pTrayRadioStation;

-begin

-  // remove stations

-  for i:=trayStations.realCount-1 downto 0 do

-  begin

-    tmp:=pTrayRadioStation(trayStations.Items[i]);

-    mFreeMem(tmp.name);

-    DestroyServiceFunction(tmp.service);

-//    CallService(MS_CLIST_REMOVETRAYMENUITEM,tmp.menuitem,0);

-    mFreeMem(tmp);

-  end;

-  List_Destroy(@trayStations);

-  DestroyServiceFunction(srvtrayplaypause);

-  DestroyServiceFunction(srvtraystop);

-

-  if ServiceExists(MS_CLIST_REMOVETRAYMENUITEM)<>0 then

-    CallService(MS_CLIST_REMOVETRAYMENUITEM,trayradioparent,0);

-

-end;