diff options
Diffstat (limited to 'protocols/mRadio/i_tray.inc')
| -rw-r--r-- | protocols/mRadio/i_tray.inc | 228 |
1 files changed, 228 insertions, 0 deletions
diff --git a/protocols/mRadio/i_tray.inc b/protocols/mRadio/i_tray.inc new file mode 100644 index 0000000000..096e288691 --- /dev/null +++ b/protocols/mRadio/i_tray.inc @@ -0,0 +1,228 @@ +{}
+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;
|