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, 234 deletions

diff --git a/plugins/mRadio/i_frameapi.inc b/plugins/mRadio/i_frameapi.inc
deleted file mode 100644
index 002e2fc142..0000000000
--- a/plugins/mRadio/i_frameapi.inc
+++ /dev/null
@@ -1,234 +0,0 @@
-{mRadio frame}

-const

-  frm_back:pAnsiChar = 'Frame background';

-const

-  FrameWnd:HWND = 0;

-  FrameId:integer = -1;

-var

-  colorhook:THANDLE;

-  hbr:HBRUSH;

-  frm_bkg:TCOLORREF;

-  OldBtnWndProc:pointer;

-  OldSliderWndProc:pointer;

-

-function QSDlgResizer(Dialog:HWND;lParam:LPARAM;urc:PUTILRESIZECONTROL):int; cdecl;

-begin

-  case urc^.wId of

-    IDC_RADIO_MUTE: result:=RD_ANCHORX_RIGHT or RD_ANCHORY_CENTRE;

-    IDC_RADIO_VOL : result:=RD_ANCHORX_WIDTH or RD_ANCHORY_CENTRE;

-  else

-    result:=0;

-  end;

-end;

-

-function SliderWndProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

-begin

-  if hMessage=WM_ERASEBKGND then

-    result:=1

-  else

-    result:=CallWindowProc(OldSliderWndProc, Dialog, hMessage, wParam, lParam);

-end;

-

-function BtnWndProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

-begin

-  if hMessage=WM_ERASEBKGND then

-    result:=1

-  else

-    result:=CallWindowProc(OldBtnWndProc, Dialog, hMessage, wParam, lParam);

-end;

-

-function RadioFrameProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

-var

-  urd:TUTILRESIZEDIALOG;

-  rc:TRECT;

-  ti:TTOOLINFOW;

-  hwndTooltip:HWND;

-begin

-  result:=0;

-  case hMessage of

-    WM_DESTROY: begin

-      hVolFrmCtrl :=0;

-      hMuteFrmCtrl:=0;

-      DeleteObject(hbr);

-    end;

-

-    WM_INITDIALOG: begin

-      hMuteFrmCtrl:=GetDlgItem(Dialog,IDC_RADIO_MUTE);

-      SendMessage(hMuteFrmCtrl, BUTTONSETASFLATBTN,0,0);

-      SetButtonIcon(hMuteFrmCtrl,IcoBtnOn);

-

-      hwndTooltip:=CreateWindowW(TOOLTIPS_CLASS,nil,TTS_ALWAYSTIP,

-          integer(CW_USEDEFAULT),integer(CW_USEDEFAULT),

-          integer(CW_USEDEFAULT),integer(CW_USEDEFAULT),

-          Dialog,0,hInstance,nil);

-

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

-      ti.cbSize  :=sizeof(TOOLINFO);

-      ti.uFlags  :=TTF_IDISHWND or TTF_SUBCLASS;

-      ti.hwnd    :=Dialog;

-      ti.hinst   :=hInstance;

-      ti.uId     :=hMuteFrmCtrl;

-      ti.lpszText:=pWideChar(TranslateW('Mute'));

-      SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,tlparam(@ti));

-

-      hVolFrmCtrl:=GetDlgItem(Dialog,IDC_RADIO_VOL);

-      SendMessage(hVolFrmCtrl,TBM_SETRANGE,0,MAKELONG(0,100));

-      SendMessage(hVolFrmCtrl,TBM_SETPAGESIZE,0,20);

-      SendMessage(hVolFrmCtrl,TBM_SETPOS,1,gVolume);

-

-      OldSliderWndProc:=pointer(SetWindowLongPtrW(hVolFrmCtrl,GWL_WNDPROC,LONG_PTR(@SliderWndProc)));

-      OldBtnWndProc   :=pointer(SetWindowLongPtrW(hVolFrmCtrl,GWL_WNDPROC,LONG_PTR(@BtnWndProc)));

-    end;

-

-    WM_SIZE: begin

-      FillChar(urd,SizeOf(TUTILRESIZEDIALOG),0);

-      urd.cbSize    :=SizeOf(urd);

-      urd.hwndDlg   :=Dialog;

-      urd.hInstance :=hInstance;

-      urd.lpTemplate:=MAKEINTRESOURCEA(IDD_FRAME);

-      urd.lParam    :=0;

-      urd.pfnResizer:=@QSDlgResizer;

-      CallService(MS_UTILS_RESIZEDIALOG,0,tlparam(@urd));

-    end;

-

-    WM_ERASEBKGND: begin

-      GetClientRect(Dialog,rc);

-      FillRect(wParam,rc,hbr);

-      result:=1;

-    end;

-

-    WM_CTLCOLORSTATIC: begin

-      if THANDLE(lParam)=hVolFrmCtrl then

-      begin

-        SetBkColor(wParam, frm_bkg);

-        result:=hbr;

-      end;

-    end;

-

-    WM_CONTEXTMENU: begin

-      CallService(cPluginName + '/Settings',0,0);

-    end;

-

-    WM_COMMAND: begin

-      case wParam shr 16 of

-

-        BN_CLICKED: begin

-          case loword(wParam) of

-            IDC_RADIO_MUTE: begin

-              Service_RadioMute(0,1);

-            end;

-          end;

-        end;

-      end;

-    end;

-

-    WM_HSCROLL: begin

-//      gVolume:=SendMessage(lParam,TBM_GETPOS,0,0);

-      Service_RadioSetVolume(SendMessage(lParam,TBM_GETPOS,0,0){gVolume},2)

-    end;

-

-  else

-    result:=DefWindowProc(Dialog,hMessage,wParam,lParam);

-  end;

-end;

-

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

-var

-  cid:TColourID;

-  wnd:HWND;

-begin

-  result:=0;

-  cid.cbSize:=SizeOf(cid);

-  StrCopy(cid.group,cPluginName);

-  StrCopy(cid.name ,frm_back);

-  frm_bkg:=CallService(MS_COLOUR_GETA,twparam(@cid),0);

-  if hbr<>0 then DeleteObject(hbr);

-  hbr:=CreateSolidBrush(frm_bkg);

-

-  wnd:=GetFocus();

-	InvalidateRect(hVolFrmCtrl,nil,true);

-	SetFocus(hVolFrmCtrl);

-  RedrawWindow(FrameWnd,nil,0,RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_ERASE);

-  SetFocus(wnd);

-end;

-

-procedure CreateFrame(parent:HWND);

-var

-  Frame:TCLISTFrame;

-  wnd:HWND;

-  tmp:cardinal;

-  tr:TRECT;

-  cid:TColourID;

-begin

-  if ServiceExists(MS_CLIST_FRAMES_ADDFRAME)=0 then

-    exit;

-  if parent=0 then

-    parent:=CallService(MS_CLUI_GETHWND,0,0);

-

-  if FrameWnd=0 then

-    FrameWnd:=CreateDialog(hInstance,MAKEINTRESOURCE(IDD_FRAME),parent,@RadioFrameProc);

-

-  if FrameWnd<>0 then

-  begin

-    GetWindowRect(FrameWnd,tr);

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

-    with Frame do

-    begin

-      cbSize  :=SizeOf(Frame);

-      hWnd    :=FrameWnd;

-      hIcon   :=0;

-      align   :=alTop;

-      height  :=tr.bottom-tr.top+2;

-      if IsAnsi then

-      begin

-        Flags   :=F_VISIBLE or F_NOBORDER;

-        name.a  :=cPluginName;

-        TBName.a:=cPluginName + ' volume control';

-      end

-      else

-      begin

-        Flags   :=F_VISIBLE or F_NOBORDER or F_UNICODE;

-        name.w  :=cPluginName;

-        TBName.w:=cPluginName + ' volume control';

-      end;

-    end;

-

-    FrameId:=CallService(MS_CLIST_FRAMES_ADDFRAME,wparam(@Frame),0);

-    if FrameId>=0 then

-    begin

-      CallService(MS_CLIST_FRAMES_UPDATEFRAME,FrameId, FU_FMPOS);

-

-      wnd:=CallService(MS_CLUI_GETHWND{MS_CLUI_GETHWNDTREE},0,0);

-      tmp:=SendMessage(wnd,CLM_GETEXSTYLE,0,0);

-      SendMessage(wnd,CLM_SETEXSTYLE,tmp or CLS_EX_SHOWSELALWAYS,0);

-

-      cid.cbSize:=SizeOf(cid);

-      cid.flags :=0;

-      StrCopy(cid.group,cPluginName);

-      StrCopy(cid.dbSettingsGroup,cPluginName);

-

-      StrCopy(cid.name   ,frm_back);

-      StrCopy(cid.setting,'frame_back');

-      cid.defcolour:=COLOR_3DFACE;

-      cid.order    :=0;

-      ColourRegister(@cid);

-

-      hbr:=0;

-      colorhook:=HookEvent(ME_COLOUR_RELOAD,@ColorReload);

-      ColorReload(0,0);

-      Service_RadioSetVolume(gVolume,0);

-    end;

-  end;

-end;

-

-procedure DestroyFrame;

-begin

-  if FrameId>=0 then

-  begin

-    UnhookEvent(colorhook);

-    CallService(MS_CLIST_FRAMES_REMOVEFRAME,FrameId,0);

-    FrameId:=-1;

-  end;

-  DestroyWindow(FrameWnd);

-  FrameWnd:=0;

-end;