diff options
author | Kirill Volinsky <mataes2007@gmail.com> | 2012-10-10 09:06:13 +0000 |
---|---|---|
committer | Kirill Volinsky <mataes2007@gmail.com> | 2012-10-10 09:06:13 +0000 |
commit | 1216b6c0235d6f55c29671c6b2b1074c8962da38 (patch) | |
tree | da4617df8509d81c1751563a8da847872662a731 /plugins/mRadio/i_visual.inc | |
parent | 58a0d4659d4735f9d5c724f9d7c950e50565abf9 (diff) |
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
Diffstat (limited to 'plugins/mRadio/i_visual.inc')
-rw-r--r-- | plugins/mRadio/i_visual.inc | 115 |
1 files changed, 0 insertions, 115 deletions
diff --git a/plugins/mRadio/i_visual.inc b/plugins/mRadio/i_visual.inc deleted file mode 100644 index 77012b55f2..0000000000 --- a/plugins/mRadio/i_visual.inc +++ /dev/null @@ -1,115 +0,0 @@ -{Visual part}
-function OnContactMenu(hContact:WPARAM;lParam:LPARAM):int;cdecl;
-var
- mi:TCListMenuItem;
-begin
- FillChar(mi,SizeOf(mi),0);
- mi.cbSize:=sizeof(mi);
- if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0)),
- PluginName)<>0 then
- begin
- mi.flags:=CMIM_FLAGS or CMIF_HIDDEN;
- CallService(MS_CLIST_MODIFYMENUITEM,hCMenuItemPlay,tlparam(@mi));
- end
- else
- begin
- // play/Stop
- mi.flags:=CMIM_FLAGS or CMIM_ICON or CMIM_NAME;
- if THANDLE(hContact)<>ActiveContact then
- begin
- mi.szName.a:='Start broadcasting';
- mi.hIcon:=CallService(MS_SKIN2_GETICON,0,tlparam(IcoBtnOn));
- end
- else
- begin
- mi.szName.a:='Stop broadcasting';
- mi.hIcon:=CallService(MS_SKIN2_GETICON,0,tlparam(IcoBtnOff));
- end;
- CallService(MS_CLIST_MODIFYMENUITEM,hCMenuItemPlay,tlparam(@mi));
-
- // record
- mi.flags:=CMIM_FLAGS or CMIM_ICON or CMIM_NAME;
- if Service_RadioRecord(0,1)<>0 then
- begin
- mi.szName.a:='Stop record';
- mi.hIcon:=CallService(MS_SKIN2_GETICON,0,tlparam(IcoBtnRecDn));
- end
- else
- begin
- mi.szName.a:='Start record';
- mi.hIcon:=CallService(MS_SKIN2_GETICON,0,tlparam(IcoBtnRecUp));
- end;
- end;
- CallService(MS_CLIST_MODIFYMENUITEM,hCMenuItemRec,tlparam(@mi));
- result:=0;
-end;
-
-procedure CreateMenu;
-var
- mi:TCListMenuItem;
-begin
- FillChar(mi, sizeof(mi), 0);
- mi.cbSize :=sizeof(mi);
-// mi.popupPosition:=MenuUserInfoPos;
- mi.pszService:=MS_RADIO_RECORD;
- mi.szName.a :='Start/Stop Record';
- hCMenuItemRec:=Menu_AddContactMenuItem(@mi);
-
-//!! mi.flags :=CMIF_NOTOFFLINE or CMIF_NOTOFFLIST;
- mi.hIcon :=CallService(MS_SKIN2_GETICON,0,lparam(IcoBtnOn));
- mi.pszService :=MS_RADIO_PLAYSTOP;
- mi.szName.a :='Start/Stop broadcasting';
- hCMenuItemPlay:=Menu_AddContactMenuItem(@mi);
-end;
-
-procedure RegisterIcons;
-var
- sid:TSKINICONDESC;
-begin
- FillChar(sid,SizeOf(TSKINICONDESC),0);
- sid.cbSize:=SizeOf(TSKINICONDESC);
- sid.cx:=16;
- sid.cy:=16;
- sid.szSection.a:='Protocols/mRadio';
- sid.hDefaultIcon :=LoadImage(hInstance,MAKEINTRESOURCE(BTN_RECUP),IMAGE_ICON,16,16,0);
- sid.pszName :=IcoBtnRecUp;
- sid.szDescription.a:='Start record';
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-
- sid.hDefaultIcon :=LoadImage(hInstance,MAKEINTRESOURCE(BTN_RECDN),IMAGE_ICON,16,16,0);
- sid.pszName :=IcoBtnRecDn;
- sid.szDescription.a:='Stop record';
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-
- sid.hDefaultIcon :=LoadImage(hInstance,MAKEINTRESOURCE(IDI_MAIN),IMAGE_ICON,16,16,0);
- sid.pszName :=IcoBtnSettings;
- sid.szDescription.a:='Settings';
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-
- sid.hDefaultIcon :=LoadImage(hInstance,MAKEINTRESOURCE(IDI_ON),IMAGE_ICON,16,16,0);
- sid.pszName :=IcoBtnOn;
- sid.szDescription.a:='Broadcast ON';
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-
- sid.hDefaultIcon :=LoadImage(hInstance,MAKEINTRESOURCE(IDI_OFF),IMAGE_ICON,16,16,0);
- sid.pszName :=IcoBtnOff;
- sid.szDescription.a:='Broadcast OFF';
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-
- sid.hDefaultIcon :=LoadImage(hInstance,MAKEINTRESOURCE(IDI_ADD),IMAGE_ICON,16,16,0);
- sid.pszName :=IcoBtnAdd;
- sid.szDescription.a:='Add EQ preset';
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-
- sid.hDefaultIcon :=LoadImage(hInstance,MAKEINTRESOURCE(IDI_DEL),IMAGE_ICON,16,16,0);
- sid.pszName :=IcoBtnDel;
- sid.szDescription.a:='Delete EQ preset';
- Skin_AddIcon(@sid);
- DestroyIcon(sid.hDefaultIcon);
-end;
|