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

diff --git a/plugins/mRadio/i_optdlg.inc b/plugins/mRadio/i_optdlg.inc
deleted file mode 100644
index e047fe20a1..0000000000
--- a/plugins/mRadio/i_optdlg.inc
+++ /dev/null
@@ -1,962 +0,0 @@
-{Options dialog}

-const

-  OldEQPreset:integer=-1;

-const

-  optOldPreset:pAnsiChar='oldpreset';

-  optPresets  :pAnsiChar='numpreset';

-  optPreset   :pAnsiChar='preset_';

-  optPreDescr :pAnsiChar='predescr_';

-

-const

-  PresetMax = 17;

-

-procedure InitPresets;

-type

-  tP = array [0..9] of AnsiChar;

-begin

-  StrDupW(Presets[00].name,'Acoustic' ); tP(Presets[00].preset):=#$01#$02#$00#$00#$00#$00#$00#$01#$01#$03;

-  StrDupW(Presets[01].name,'Blues'    ); tP(Presets[01].preset):=#$01#$02#$01#$00#$00#$00#$00#$00#$00#$FE;

-  StrDupW(Presets[02].name,'Classical'); tP(Presets[02].preset):=#$01#$04#$01#$00#$00#$00#$00#$00#$01#$01;

-  StrDupW(Presets[03].name,'Country'  ); tP(Presets[03].preset):=#$00#$00#$01#$01#$00#$00#$01#$01#$01#$01;

-  StrDupW(Presets[04].name,'Dance'    ); tP(Presets[04].preset):=#$04#$03#$02#$01#$FF#$FF#$02#$04#$05#$05;

-  StrDupW(Presets[05].name,'Folk'     ); tP(Presets[05].preset):=#$FF#$00#$00#$01#$01#$00#$01#$01#$01#$00;

-  StrDupW(Presets[06].name,'Grunge'   ); tP(Presets[06].preset):=#$01#$00#$FF#$00#$00#$02#$01#$FF#$FE#$FD;

-  StrDupW(Presets[07].name,'Jazz'     ); tP(Presets[07].preset):=#$00#$01#$02#$03#$03#$01#$01#$03#$04#$05;

-  StrDupW(Presets[08].name,'Metall'   ); tP(Presets[08].preset):=#$FE#$00#$00#$00#$00#$03#$02#$04#$06#$05;

-  StrDupW(Presets[09].name,'New Age'  ); tP(Presets[09].preset):=#$03#$03#$00#$00#$00#$00#$00#$00#$02#$02;

-  StrDupW(Presets[10].name,'Opera'    ); tP(Presets[10].preset):=#$00#$01#$02#$04#$01#$02#$00#$00#$00#$00;

-  StrDupW(Presets[11].name,'Rap'      ); tP(Presets[11].preset):=#$00#$04#$04#$00#$00#$00#$01#$04#$05#$07;

-  StrDupW(Presets[12].name,'Reggae'   ); tP(Presets[12].preset):=#$03#$00#$FD#$00#$05#$00#$02#$03#$04#$05;

-  StrDupW(Presets[13].name,'Rock'     ); tP(Presets[13].preset):=#$00#$02#$04#$00#$00#$00#$02#$04#$05#$06;

-  StrDupW(Presets[14].name,'Speech'   ); tP(Presets[14].preset):=#$FE#$02#$00#$00#$00#$00#$FF#$FE#$FD#$FC;

-  StrDupW(Presets[15].name,'Swing'    ); tP(Presets[15].preset):=#$FF#$00#$00#$02#$02#$00#$02#$02#$03#$03;

-  StrDupW(Presets[16].name,'Techno'   ); tP(Presets[16].preset):=#$05#$08#$FF#$FE#$FD#$FF#$04#$06#$06#$06;

-end;

-

-procedure LoadPresets;

-var

-  num,preset,descr:array [0..63] of AnsiChar;

-  i:integer;

-  p,pd:pAnsiChar;

-begin

-  p :=StrCopyE(preset,optPreset);

-  pd:=StrCopyE(descr ,optPreDescr);

-

-  i:=DBReadByte(0,PluginName,optPresets);

-  if i=0 then

-  begin

-    SetLength(Presets,PresetMax);

-    InitPresets;

-  end

-  else

-  begin

-    OldEQPreset:=integer(DBReadByte(0,PluginName,optOldPreset,byte(-1)));

-    SetLength(Presets,i);

-    for i:=0 to HIGH(Presets) do

-    begin

-      StrCopy(p ,IntToStr(num,i));      DBReadStruct (0,PluginName,preset,@Presets[i].preset,10);

-      StrCopy(pd,num); Presets[i].name:=DBReadUnicode(0,PluginName,descr);

-    end;

-  end;

-end;

-

-procedure SavePresets;

-var

-  num,preset,descr:array [0..63] of AnsiChar;

-  i,j:integer;

-  p,pd:pAnsiChar;

-begin

-  p :=StrCopyE(preset,optPreset);

-  pd:=StrCopyE(descr ,optPreDescr);

-  j:=DBReadByte(0,PluginName,optPresets);

-  for i:=0 to HIGH(Presets) do

-  begin

-    StrCopy(p ,IntToStr(num,i)); DBWriteStruct (0,PluginName,preset,@Presets[i].preset,10);

-    StrCopy(pd,num);             DBWriteUnicode(0,PluginName,descr ,Presets[i].name);

-  end;

-  while j>Length(Presets) do

-  begin

-    dec(j);

-    StrCopy(p ,IntToStr(num,j)); DBDeleteSetting(0,PluginName,preset);

-    StrCopy(pd,num);             DBDeleteSetting(0,PluginName,descr);

-  end;

-  DBWriteByte(0,PluginName,optOldPreset,OldEQPreset);

-  DBWriteByte(0,PluginName,optPresets  ,Length(Presets));

-end;

-

-procedure FreePresets;

-var

-  i:integer;

-begin

-  for i:=0 to HIGH(Presets) do

-    mFreeMem(Presets[i].name);

-end;

-

-function ImportOneStation(group:PAnsiChar;section:pointer):int;

-var

-  p:pWideChar;

-  pc:pAnsiChar;

-begin

-  result:=0;

-  pc:=GetParamSectionStr(section,'URL');

-  if pc<>nil then

-  begin

-    result:=CallService(MS_DB_CONTACT_ADD,0,0);

-    if result<>0 then

-    begin

-      CallService(MS_PROTO_ADDTOCONTACT,result,lparam(PluginName));

-      DBWriteString(result,PluginName,optStationURL,pc);

-      DBWriteString(result,PluginName,optFirstName ,pc);

-

-      pc:=GetParamSectionStr(section,optBitrate,'0');

-      DBWriteString(result,PluginName,optBitrate,pc);

-      DBWriteWord  (result,PluginName,optAge    ,StrToInt(pc));

-

-      pc:=GetParamSectionStr(section,'Name',GetSectionName(section));

-      DBWriteString(result,strCList  ,optMyHandle,pc);

-      DBWriteString(result,PluginName,optNick    ,pc);

-

-      pc:=GetParamSectionStr(section,optGenre,'unknown');

-      DBWriteString(result,PluginName,optGenre   ,pc);

-      DBWriteString(result,PluginName,optLastName,pc);

-

-      SetStatus(result,ID_STATUS_OFFLINE);

-

-      if group=nil then

-        group:=GetParamSectionStr(section,optGroup);

-

-      AnsiToWide(group,p,MirandaCP);

-      CreateGroupW(p,result);

-      mFreeMem(p);

-      CallService(MS_IGNORE_IGNORE,result,IGNOREEVENT_ALL);

-    end;

-  end;

-end;

-

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

-var

-  dst:array [0..MAX_PATH-1] of AnsiChar;

-  pc:pAnsiChar;

-  lstorage,section,list:pointer;

-begin

-  result:=0;

-  if lParam<>0 then

-    StrCopy(dst,PAnsiChar(lParam));

-  if (lParam<>0) or ShowDlg(dst,'radio.ini',nil,true) then

-  begin

-    lstorage:=OpenStorage(dst);

-    if lstorage<>nil then

-    begin

-      list:=GetSectionList(lstorage);

-      

-      pc:=list;

-      while pc^<>#0 do

-      begin

-        section:=SearchSection(lstorage,pc);

-        if ImportOneStation(pAnsiChar(wParam),section)<>0 then inc(result);

-        while pc^<>#0 do inc(pc);

-        inc(pc);

-      end;

-

-      FreeSectionList(list);

-

-      CloseStorage(lstorage);

-    end;

-  end;

-end;

-

-procedure ExportRadioContact(num:integer;fname:PAnsiChar;hContact:THANDLE);

-var

-  pc:pAnsiChar;

-  section:array [0..15] of AnsiChar;

-begin

-  IntToStr(section,num);

-  pc:=DBReadString(hContact,strCList,optMyHandle);

-  WritePrivateProfileStringA(section,'Name',pc,fname);

-  mFreeMem(pc);

-          

-  pc:=DBReadString(hContact,PluginName,optStationURL);

-  WritePrivateProfileStringA(section,'URL',pc,fname);

-  mFreeMem(pc);

-

-  pc:=DBReadString(hContact,PluginName,optGenre);

-  if pc<>nil then

-  begin

-    WritePrivateProfileStringA(section,optGenre,pc,fname);

-    mFreeMem(pc);

-  end;

-

-  pc:=DBReadString(hContact,PluginName,optBitrate);

-  if pc<>nil then

-  begin

-    WritePrivateProfileStringA(section,optBitrate,pc,fname);

-    mFreeMem(pc);

-  end;

-

-  pc:=DBReadString(hContact,strCList,optGroup);

-  if pc<>nil then

-  begin

-    WritePrivateProfileStringA(section,optGroup,pc,fname);

-    mFreeMem(pc);

-  end;

-end;

-

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

-var

-  dst:array [0..MAX_PATH-1] of AnsiChar;

-  hContact:THANDLE;

-begin

-  result:=0;

-  if lParam<>0 then

-    StrCopy(dst,PAnsiChar(lParam));

-  if (lParam<>0) or ShowDlg(dst,'radio.ini',nil,false) then

-  begin

-    if (wParam<>0) and (CallService(MS_DB_CONTACT_IS,wParam,0)<>0) then

-    begin

-      result:=1;

-      ExportRadioContact(result,dst,wParam)

-    end

-    else

-    begin

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

-      while hContact<>0 do

-      begin

-        if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,hContact,0)),

-               PluginName)=0 then

-        begin

-          inc(result);

-          ExportRadioContact(result,dst,hContact);

-        end;

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

-      end;

-    end;

-  end;

-end;

-

-function MakeFilter(dst,descr,full,filter:PWideChar;show:bool=true):pWideChar;

-var

-  p:PWideChar;

-begin

-  if full<>nil then

-  begin

-    p:=StrEndW(full);

-    p^:=';';

-    StrCopyW(p+1,filter);

-  end;

-

-  dst:=StrCopyEW(dst,TranslateW(descr));

-  if show then

-  begin

-    dst^    :=' ';

-    (dst+1)^:='(';

-    dst:=StrCopyEW(dst+2,filter);

-    dst^:=')';

-    inc(dst);

-    dst^:=#0;

-  end;

-  inc(dst);

-  result:=StrCopyEW(dst,filter)+1;

-end;

-

-function ConstructFilter:pointer;

-var

-  pc:pWideChar;

-  ph:PDWord;

-  Info:PBASS_PLUGININFO;

-  i:integer;

-  full:array [0..511] of WideChar;

-  tmpbuf1,tmpbuf2:array [0..127] of WideChar;

-begin

-  mGetMem(pc,4096);

-//  FillChar(pc^,4096,0);

-  result:=pc;

-  full[0]:=#0;

-  pc:=MakeFilter(pc,'All files'     ,nil ,'*.*',false);

-  pc:=MakeFilter(pc,'Playlist files',full,'*.pls;*.m3u;*.m3u8;*.asx');

-  pc:=MakeFilter(pc,'BASS built-in' ,full,'*.mp3;*.mp2;*.mp1;*.ogg;*.wav;*.aif');

-

-  ph:=pointer(BASS_PluginGetInfo(0));

-  if ph<>nil then

-  begin

-    while ph^<>0 do

-    begin

-      Info:=BASS_PluginGetInfo(ph^);

-      for i:=0 to Info^.formatc-1 do

-//!! need to translate Ansi -> wide

-        with Info^.Formats[i] do

-        begin

-          pc:=MakeFilter(pc,FastAnsiToWideBuf(name,tmpbuf1),full,FastAnsiToWideBuf(exts,tmpbuf2));

-        end;

-      inc(ph);

-    end;

-  end;

-  pc:=MakeFilter(pc,'All supported formats',nil,full,false);

-  pc^:=#0;

-end;

-

-procedure SetButtonIcons(Dialog:HWND);

-var

-  ti:TTOOLINFOW;

-  hwndTooltip:HWND;

-begin

-  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     :=GetDlgItem(Dialog,IDC_EQ_ADD);

-  ti.lpszText:=TranslateW('Add');

-

-  SetButtonIcon(ti.uId,IcoBtnAdd);

-

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

-  

-  ti.uId     :=GetDlgItem(Dialog,IDC_EQ_DEL);

-  ti.lpszText:=TranslateW('Delete');

-  SetButtonIcon(ti.uId,IcoBtnDel);

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

-end;

-

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

-const

-  DlgInit:integer=1;

-var

-  buf:array [0..MAX_PATH-1] of WideChar;

-  psr:TPROTOSEARCHRESULT;

-  dst:pWideChar;

-  i:dword;

-//  info:BASS_CHANNELINFO;

-  vhi:TVARHELPINFO;

-  wnd:HWND;

-  p:pWideChar;

-begin

-  result:=0;

-  case hMessage of

-    WM_DESTROY: begin

-      DBWriteByte(0,PluginName,optLoop     ,doLoop);

-      DBWriteByte(0,PluginName,optShuffle  ,doShuffle);

-      DBWriteByte(0,PluginName,optContRec  ,doContRec);

-      DBWriteByte(0,PluginName,optPlayFirst,PlayFirst);

-      DBWriteByte(0,PluginName,optConnect  ,AuConnect);

-      DBWriteByte(0,PluginName,optAutoMute ,AuMute);

-      DBWriteByte(0,PluginName,optOffline  ,AsOffline);

-

-      DBWriteUnicode(0,PluginName,optStatusTmpl,StatusTmpl);

-    end;

-

-    WM_INITDIALOG: begin

-      DlgInit:=1;

-      TranslateDialogDefault(Dialog);

-

-      wnd:=GetDlgItem(Dialog,IDC_HLP_VARS);

-      if isVarsInstalled then

-      begin

-        SendMessage(wnd,BM_SETIMAGE,IMAGE_ICON,

-            CallService(MS_VARS_GETSKINITEM,0,VSI_HELPICON));

-      end

-      else

-        ShowWindow(wnd,SW_HIDE);

-

-      if recpath<>nil then

-        p:=recpath

-      else

-      begin

-        buf[0]:=#0;

-        p:=@buf;

-      end;

-      SetDlgItemTextW(Dialog,IDC_ED_RECPATH,p);

-

-      CheckDlgButton(Dialog,IDC_LOOP     ,doLoop);

-      CheckDlgButton(Dialog,IDC_SHUFFLE  ,doShuffle);

-      CheckDlgButton(Dialog,IDC_CONTREC  ,doContRec);

-      CheckDlgButton(Dialog,IDC_PLAYFIRST,PlayFirst);

-      CheckDlgButton(Dialog,IDC_CONNECT  ,AuConnect);

-      CheckDlgButton(Dialog,IDC_AUTOMUTE ,AuMute);

-      CheckDlgButton(Dialog,IDC_OFFLINE  ,AsOffline);

-

-      SetDlgItemTextW(Dialog,IDC_STATUS,StatusTmpl);

-      

-      DlgInit:=0;

-    end;

-

-    WM_COMMAND: begin

-      case wParam shr 16 of

-        EN_CHANGE: begin

-          if DlgInit=0 then

-            case loword(wParam) of

-              IDC_STATION,IDC_STATIONURL,IDC_GENRE,IDC_BITRATE: ;

-            else

-              SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

-            end;

-        end;

-

-        BN_CLICKED: begin

-          case loword(wParam) of

-

-            IDC_IMPORT: begin

-              ImportAll(0,0);

-            end;

-

-            IDC_EXPORT: begin

-              ExportAll(0,0);

-            end;

-

-            IDC_HLP_VARS: begin

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

-              with vhi do

-              begin

-                cbSize       :=SizeOf(vhi);

-                flags        :=VHF_FULLDLG or VHF_SETLASTSUBJECT;

-                hwndCtrl     :=GetDlgItem(Dialog,IDC_STATUS);

-                szSubjectDesc:='test your variables';

-              end;

-              CallService(MS_VARS_SHOWHELPEX,Dialog,tlparam(@vhi));

-            end;

-

-            IDC_BN_URLPATH: begin

-   

-              dst:=ConstructFilter;

-              if ShowDlgW(@buf,nil,dst) then

-                SetDlgItemTextW(Dialog,IDC_STATIONURL,@buf);

-              mFreeMem(dst);

-            end;

-

-            IDC_BN_RECPATH: begin

-              dst:=nil;

-              if SelectDirectory(pWideChar(nil),dst,Dialog) then

-              begin

-                CallService(MS_UTILS_PATHTORELATIVEW,twparam(dst),tlparam(@buf));

-                SetDlgItemTextW(Dialog,IDC_ED_RECPATH,pWideChar(@buf));

-                mFreeMem(dst);

-              end;

-            end;

-

-            IDC_LOOP,IDC_SHUFFLE,IDC_CONTREC,IDC_CONNECT,IDC_OFFLINE,IDC_AUTOMUTE:

-              SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

-

-            IDC_ADD_LIST,IDC_ADD_INI: begin

-              if GetWindowTextLength(GetDlgItem(Dialog,IDC_STATIONURL))>0 then

-              begin

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

-                with psr do

-                begin

-                  if loword(wParam)=IDC_ADD_LIST then

-                  begin

-                    GetDlgItemTextW(Dialog,IDC_STATIONURL,@buf,MAX_PATH);

-                    StrDupW(firstname.w,@buf);

-                    buf[0]:=#0;

-

-                    GetDlgItemTextW(Dialog,IDC_STATION,@buf,MAX_PATH);

-                    if buf[0]<>#0 then

-                      StrDupW(nick.w,@buf)

-                    else

-                      StrDupW(nick.w,firstname.w);

-                    buf[0]:=#0;

-

-                    GetDlgItemTextW(Dialog,IDC_GENRE,@buf,MAX_PATH);

-                    StrDupW(lastname.w,@buf);

-                    buf[0]:=#0;

-

-                    GetDlgItemTextW(Dialog,IDC_BITRATE,@buf,MAX_PATH);

-                    StrDupW(email.w,@buf);

-

-                    i:=Service_AddToList(0,tlparam(@psr));

-{

-                    GetDlgItemTextW(Dialog,IDC_STATION,@buf,SizeOf(buf));

-                    DBWriteUnicode(i,strCList,optMyHandle,@buf);

-

-                    GetDlgItemTextW(Dialog,IDC_STATIONURL,@buf,SizeOf(buf));

-                    DBWriteUnicode(i,PluginName,optStationURL,@buf);

-}

-                    // "changing" station group

-                    dst:=GetNewGroupName(Dialog);

-                    if dst<>nil then

-                      DBWriteUnicode(i,strCList,optGroup,dst)

-                    else

-                      DBDeleteSetting(i,strCList,optGroup);

-                      

-                  end

-                  else if loword(wParam)=IDC_ADD_INI then

-                  begin

-                    GetDlgItemTextA(Dialog,IDC_STATIONURL,PAnsiChar(@buf),SizeOf(buf));

-                    StrDup(firstname.a,PAnsiChar(@buf));

-                    PAnsiChar(@buf)^:=#0;

-

-                    GetDlgItemTextA(Dialog,IDC_STATION,PAnsiChar(@buf),SizeOf(buf));

-                    if PAnsiChar(@buf)^<>#0 then

-                      StrDup(nick.a,@buf)

-                    else

-                      StrDup(nick.a,firstname.a);

-                    PAnsiChar(@buf)^:=#0;

-

-                    GetDlgItemTextA(Dialog,IDC_GENRE,PAnsiChar(@buf),SizeOf(buf));

-                    StrDup(lastname.a,@buf);

-                    PAnsiChar(@buf)^:=#0;

-

-                    GetDlgItemTextA(Dialog,IDC_BITRATE,PAnsiChar(@buf),SizeOf(buf));

-                    StrDup(email.a,@buf);

-

-                    if WritePrivateProfileStringA(firstname.a,'URL',firstname.a,storage) then

-                    begin

-                      WritePrivateProfileStringA(firstname.a,'Name'    ,nick.a     ,storage);

-                      WritePrivateProfileStringA(firstname.a,optGenre  ,lastname.a ,storage);

-                      WritePrivateProfileStringA(firstname.a,optBitrate,email.a    ,storage);

-                    end

-                    else

-                    begin

-                      WritePrivateProfileStringA(firstname.a,'URL'     ,firstname.a,storagep);

-                      WritePrivateProfileStringA(firstname.a,'Name'    ,nick.a     ,storagep);

-                      WritePrivateProfileStringA(firstname.a,optGenre  ,lastname.a ,storagep);

-                      WritePrivateProfileStringA(firstname.a,optBitrate,email.a    ,storagep);

-                    end;

-

-                  end;

-                  mFreeMem(nick);

-                  mFreeMem(firstname);

-                  mFreeMem(lastname);

-                  mFreeMem(email);

-                end;

-              end;

-            end;

-

-          end;

-        end;

-

-      end;

-    end;

-

-    WM_NOTIFY: begin

-      if integer(PNMHdr(lParam)^.code)=PSN_APPLY then

-      begin

-

-        doShuffle:=IsDlgButtonChecked(Dialog,IDC_SHUFFLE);

-        doContRec:=IsDlgButtonChecked(Dialog,IDC_CONTREC);

-        PlayFirst:=IsDlgButtonChecked(Dialog,IDC_PLAYFIRST);

-        AuConnect:=IsDlgButtonChecked(Dialog,IDC_CONNECT);

-        AuMute   :=IsDlgButtonChecked(Dialog,IDC_AUTOMUTE);

-        AsOffline:=IsDlgButtonChecked(Dialog,IDC_OFFLINE);

-

-        mFreeMem(StatusTmpl);

-        StatusTmpl:=GetDlgText(Dialog,IDC_STATUS);

-

-        doLoop:=IsDlgButtonChecked(Dialog,IDC_LOOP);

-        if chan<>0 then

-        begin

-{

-          BASS_ChannelGetInfo(chan,info);

-          if doLoop<>BST_UNCHECKED then

-            info.flags:=info.flags or BASS_SAMPLE_LOOP

-          else

-            info.flags:=info.flags and not BASS_SAMPLE_LOOP;

-}

-          BASS_ChannelFlags(chan,ord(doLoop<>BST_UNCHECKED),BASS_SAMPLE_LOOP);

-        end;

-

-        mFreeMem(recpath);

-        buf[0]:=#0;

-        GetDlgItemTextW(Dialog,IDC_ED_RECPATH,@buf,SizeOf(buf) div SizeOf(WideChar));

-        if buf[0]<>#0 then

-        begin

-          mGetMem(recpath,MAX_PATH*SizeOf(WideChar));

-          recpath^:=#0;

-          CallService(MS_UTILS_PATHTORELATIVEW,twparam(@buf),tlparam(recpath));

-        end;

-        DBWriteUnicode(0,PluginName,optRecPath,recpath);

-      end;

-    end;

-

-//  else

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

-  end;

-end;

-

-function DlgProcOptTech(Dialog:HWnd;hMessage:uint;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

-const

-  DlgInit:integer=1;

-var

-  i:integer;

-  hEAXCombo:THANDLE;

-  ltmp:longbool;

-//  info:BASS_CHANNELINFO;

-  buf1:array [0..4] of AnsiChar;

-  wnd:HWND;

-  buf:array [0..MAX_PATH-1] of WideChar;

-  dst:pWideChar;

-begin

-  result:=0;

-  case hMessage of

-    WM_DESTROY: begin

-      hVolCtrl:=0;

-

-      buf1[0]:='E';

-      buf1[1]:='Q';

-      buf1[2]:='_';

-      buf1[4]:=#0;

-      for i:=0 to 9 do

-      begin

-        buf1[3]:=AnsiChar(ORD('0')+i);

-        DBWriteByte(0,PluginName,buf1,trunc(eq[i].param.fGain)+15);

-        eq[i].wnd:=0;

-      end;

-      DBWriteByte(0,PluginName,optEQ_OFF ,isEQ_OFF);

-    end;

-

-    WM_INITDIALOG: begin

-      DlgInit:=1;

-      TranslateDialogDefault(Dialog);

-

-      SetButtonIcons(Dialog);

-      hVolCtrl:=GetDlgItem(Dialog,IDC_VOLUME);

-      SendMessage(hVolCtrl,TBM_SETRANGE,0,(100 shl 16)+0);

-      SendMessage(hVolCtrl,TBM_SETPOS,1,ABS(gVolume));

-

-      SetDlgItemInt(Dialog,IDC_BUFFER ,sBuffer ,false);

-      SetDlgItemInt(Dialog,IDC_PREBUF ,sPreBuf ,false);

-      SetDlgItemInt(Dialog,IDC_TIMEOUT,sTimeout,false);

-      SetDlgItemInt(Dialog,IDC_TRIES  ,NumTries,false);

-

-      CheckDlgButton(Dialog,IDC_MONO,ForcedMono);

-

-      hEAXCombo:=GetDlgItem(Dialog,IDC_EAXTYPE);

-      for i:=0 to EAX_ENVIRONMENT_COUNT do

-        SendMessageW(hEAXCombo,CB_ADDSTRING,0,tlparam(TranslateW(EAXItems[i].name)));

-      SendMessage(hEAXCombo,CB_SETCURSEL,DBReadByte(0,PluginName,optEAXType,0),0);

-

-      wnd:=GetDlgItem(Dialog,IDC_PRESET);

-      for i:=0 to HIGH(Presets) do

-        SendMessageW(wnd,CB_ADDSTRING,0,tlparam(Presets[i].name));

-      SendMessage(wnd,CB_SETCURSEL,OldEQPreset,0);

-

-      for i:=0 to 9 do

-      begin

-        eq[i].wnd:=GetDlgItem(Dialog,IDC_EQ00+i);

-        SendMessage(eq[i].wnd,TBM_SETRANGE,1,(16 shl 16)-15);

-        SendMessage(eq[i].wnd,TBM_SETTIC,0,0);

-        SendMessage(eq[i].wnd,TBM_SETPOS,1,-trunc(eq[i].param.fGain));

-        SendDlgItemMessageA(Dialog,IDC_0+i,WM_SETTEXT,0,tlparam(eq[i].text));

-        EnableWindow(eq[i].wnd,isEQ_OFF=BST_UNCHECKED);

-      end;

-      

-      CheckDlgButton(Dialog,IDC_EQOFF,isEQ_OFF);

-

-      dst:=DBReadUnicode(0,PluginName,optBASSPath,nil);

-      SetDlgItemTextW(Dialog,IDC_BASSPATH,dst);

-      mFreeMem(dst);

-

-      DlgInit:=0;

-    end;

-

-    WM_COMMAND: begin

-      case wParam shr 16 of

-        EN_CHANGE: begin

-          if DlgInit=0 then

-            SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

-        end;

-

-        BN_CLICKED: begin

-          case loword(wParam) of

-

-            IDC_BASSPTHBTN: begin

-              dst:=nil;

-              if SelectDirectory(pWideChar(nil),dst,Dialog) then

-              begin

-                CallService(MS_UTILS_PATHTORELATIVEW,twparam(dst),tlparam(@buf));

-                SetDlgItemTextW(Dialog,IDC_BASSPATH,pWideChar(@buf));

-                mFreeMem(dst);

-              end;

-            end;

-

-            IDC_EQOFF: begin

-              isEQ_OFF:=IsDlgButtonChecked(Dialog,IDC_EQOFF);

-              if isEQ_OFF=BST_UNCHECKED then

-                EQ_ON

-              else

-                EQ_OFF;

-

-              for i:=0 to 9 do

-                EnableWindow(eq[i].wnd,isEQ_OFF=BST_UNCHECKED);

-            end;

-

-            IDC_ZERO: begin

-              OldEQPreset:=-1;

-              for i:=0 to 9 do

-              begin

-                eq[i].param.fGain:=0;

-                SendMessage(eq[i].wnd,TBM_SETPOS,1,0);

-                if (chan<>0) and (isEQ_OFF=BST_UNCHECKED) then

-                  BASS_FXSetParameters(eq[i].fx,@eq[i].param);

-              end;

-            end;

-

-            IDC_EQ_ADD: begin

-              SetLength(Presets,Length(Presets)+1);

-

-              for i:=0 to 9 do

-                Presets[HIGH(Presets)].preset[i]:=-SendMessage(eq[i].wnd,TBM_GETPOS,0,0);

-

-              wnd:=GetDlgItem(Dialog,IDC_PRESET);

-              Presets[HIGH(Presets)].name:=GetDlgText(wnd,false);

-              if Presets[HIGH(Presets)].name=nil then

-                StrDupW(Presets[HIGH(Presets)].name,'New');

-              OldEQPreset:=SendMessage(wnd,CB_SETCURSEL,

-                SendMessageW(wnd,CB_ADDSTRING,0,tlparam(Presets[HIGH(Presets)].name)),0);

-            end;

-

-            IDC_EQ_DEL: begin

-              wnd:=GetDlgItem(Dialog,IDC_PRESET);

-              i:=SendMessage(wnd,CB_GETCURSEL,0,0);

-              if (i>=0) and (i<=HIGH(Presets)) then

-              begin

-                SendMessage(wnd,CB_DELETESTRING,i,0);

-                mFreeMem(Presets[i].name);

-                move(Presets[i+1],Presets[i],(HIGH(Presets)-i)*SizeOf(tPreset));

-                SetLength(Presets,Length(Presets)-1);

-                OldEQPreset:=-1;

-                SendMessage(wnd,CB_SETCURSEL,-1,0);

-              end;

-            end;

-

-          end;

-        end;

-

-        CBN_SELCHANGE: begin

-          SendMessage(GetParent(Dialog),PSM_CHANGED,0,0);

-          case loword(wParam) of

-            IDC_PRESET: begin

-              OldEQPreset:=SendDlgItemMessage(Dialog,IDC_PRESET,CB_GETCURSEL,0,0);

-              for i:=0 to 9 do

-              begin

-                SendMessage(eq[i].wnd,TBM_SETPOS,1,-Presets[OldEQPreset].preset[i]);

-                eq[i].param.fGain:=Presets[OldEQPreset].preset[i];

-                if (chan<>0) and (isEQ_OFF=BST_UNCHECKED) then

-                  BASS_FXSetParameters(eq[i].fx,@eq[i].param);

-              end;

-            end;

-            IDC_EAXTYPE: begin

-{

-              i:=SendDlgItemMessage(Dialog,IDC_EAXTYPE,CB_GETCURSEL,0,0);

-              DBWriteByte(0,PluginName,optEAXType,i);

-              if i=0 then

-                BASS_SetEAXParameters(-1,0,-1,-1)

-              else

-                BASS_SetEAXPreset(EAXItems[i].code);

-}

-            end;

-          end;

-        end;

-      end;

-    end;

-

-    WM_VSCROLL: begin

-      for i:=0 to 9 do

-      begin

-        if HWND(lParam)=eq[i].wnd then

-        begin

-          eq[i].param.fGain:=-SendMessage(lParam,TBM_GETPOS,0,0);

-          if (chan<>0) and (isEQ_OFF=BST_UNCHECKED) then

-            BASS_FXSetParameters(eq[i].fx,@eq[i].param);

-          OldEQPreset:=-1;

-          break;

-        end;

-      end;

-    end;

-

-    WM_HSCROLL: begin

-       Service_RadioSetVolume(SendMessage(lParam,TBM_GETPOS,0,0),1)

-    end;

-

-    WM_NOTIFY: begin

-      if integer(PNMHdr(lParam)^.code)=PSN_APPLY then

-      begin

-        SavePresets;

-

-//!!  bass path saving here

-        dst:=GetDlgText(Dialog,IDC_BASSPATH);

-        DBWriteUnicode(0,PluginName,optBASSPath,dst);

-        mFreeMem(dst);

-

-        ForcedMono:=IsDlgButtonChecked(Dialog,IDC_MONO);

-        DBWriteByte(0,PluginName,optForcedMono,ForcedMono);

-

-        i:=SendDlgItemMessage(Dialog,IDC_EAXTYPE,CB_GETCURSEL,0,0);

-        DBWriteByte(0,PluginName,optEAXType,i);

-        if i=0 then

-          BASS_SetEAXParameters(-1,0,-1,-1)

-        else

-          BASS_SetEAXPreset(EAXItems[i].code);

-

-        NumTries:=GetDlgItemInt(Dialog,IDC_TRIES,ltmp,false);

-        if NumTries<1 then NumTries:=1;

-        DBWriteByte(0,PluginName,optNumTries,NumTries);

-

-        i:=GetDlgItemInt(Dialog,IDC_PREBUF,ltmp,false);

-        if i>100 then i:=100;

-        if cardinal(i)<>sPreBuf then

-        begin

-          sPreBuf:=i;

-          BASS_SetConfig(BASS_CONFIG_NET_PREBUF,i);

-          DBWriteWord(0,PluginName,optPreBuf,sPreBuf);

-        end;

-

-        i:=GetDlgItemInt(Dialog,IDC_BUFFER,ltmp,false);

-        if i>20000 then i:=20000;

-        if cardinal(i)<>sBuffer then

-        begin

-          sBuffer:=i;

-          BASS_SetConfig(BASS_CONFIG_NET_BUFFER,i);

-          DBWriteWord(0,PluginName,optBuffer,sBuffer);

-        end;

-

-        i:=GetDlgItemInt(Dialog,IDC_TIMEOUT,ltmp,false);

-        if i>30000 then i:=30000;

-        if cardinal(i)<>sTimeout then

-        begin

-          sTimeout:=i;

-          BASS_SetConfig(BASS_CONFIG_NET_TIMEOUT,i);

-          DBWriteWord(0,PluginName,optTimeout,sTimeout);

-        end;

-

-      end;

-    end;

-

-//  else

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

-  end;

-end;

-

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

-var

-  odp:TOPTIONSDIALOGPAGE;

-begin

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

-  odp.cbSize     :=SizeOf(odp);

-  odp.flags      :=ODPF_BOLDGROUPS;

-  odp.Position   :=900003000;

-  odp.hInstance  :=hInstance;

-  odp.szGroup.a  :='Network';

-  odp.szTitle.a  :=PluginName;

-

-  odp.pszTemplate:=MAKEINTRESOURCEA(IDD_SETTING);

-  odp.pfnDlgProc :=@DlgProcOpt;

-  odp.szTab.a    :='Common';

-  CallService(MS_OPT_ADDPAGE,wParam,tlparam(@odp));

-

-  odp.pszTemplate:=MAKEINTRESOURCEA(IDD_SETTING_TECH);

-  odp.pfnDlgProc :=@DlgProcOptTech;//!!

-  odp.szTab.a    :=Translate('Advanced');

-  CallService(MS_OPT_ADDPAGE,wParam,tlparam(@odp));

-

-  result:=0;

-end;

-

-// checking proto in several places for speed, not size economy

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

-var

-  buf:array [0..MAX_PATH-1] of AnsiChar;

-  i:integer;

-  pc:PAnsiChar;

-begin

-  result:=0;

-

-  with PDBCONTACTWRITESETTING(lParam)^ do

-  begin

-

-    if AuMute<>BST_UNCHECKED then

-    begin

-      if StrCmp(szModule,'Skin')=0 then

-      begin

-        if StrCmp(szSetting,'UseSound')=0 then

-        begin

-          // Mute

-          if value.bVal=0 then

-          begin

-            if gVolume>=0 then

-              Service_RadioMute(0,0);

-          end

-          // Unmute

-          else

-          begin

-            if gVolume<0 then

-              Service_RadioMute(0,0);

-          end;

-        end;

-

-        exit;

-      end

-    end;

-

-    // works only if called AFTER changes

-    if StrCmp(szModule,strCList)=0 then

-    begin

-      if StrCmp(szSetting,optMyHandle)=0 then

-      begin

-        if value._type=DBVT_DELETED then

-        begin

-          if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,wParam,0)),

-             PluginName)<>0 then exit;

-

-          pc:=DBReadString(wParam,PluginName,optNick);

-          DBWriteString(wParam,strCList,optMyHandle,pc);

-          mFreeMem(pc);

-        end;

-      end;

-      exit;

-    end;

-

-    if StrCmp(szModule,'UserInfo')<>0 then exit;

-

-    if StrCmp(szSetting,optAge)=0 then

-    begin

-      if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,wParam,0)),

-         PluginName)<>0 then exit;

-      if value._type=DBVT_DELETED then

-        i:=DBReadWord(wParam,PluginName,optAge)

-      else

-        i:=value.wVal;

-      DBWriteString(wParam,PluginName,optBitrate,IntToStr(buf,i));

-      exit;

-    end;

-    

-    case value._type of

-      DBVT_DELETED,

-      DBVT_ASCIIZ ,

-      DBVT_WCHAR  ,

-      DBVT_UTF8   :

-      if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,wParam,0)),

-         PluginName)<>0 then exit;

-    else

-      exit;

-    end;

-

-    case value._type of

-      DBVT_DELETED: pc:=DBReadString(wParam,PluginName,szSetting);

-      DBVT_ASCIIZ : pc:=value.szVal.a;

-      DBVT_WCHAR  : WideToAnsi(value.szVal.w,pc,MirandaCP);

-      DBVT_UTF8   : UTF8ToAnsi(value.szVal.a,pc,MirandaCP);

-    end;

-

-    if      StrCmp(szSetting,optFirstName)=0 then DBWriteString(wParam,PluginName,optStationURL,pc)

-    else if StrCmp(szSetting,optNick     )=0 then DBWriteString(wParam,strCList,optMyHandle,pc)

-    else if StrCmp(szSetting,optLastName )=0 then DBWriteString(wParam,PluginName,optGenre,pc);

-

-    if value._type<>DBVT_ASCIIZ then

-      mFreeMem(pc);

-  end;

-end;

-

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

-begin

-  result:=0;

-  if ActiveContact<>THANDLE(wParam) then exit;

-  ControlCenter(MRC_STOP,wParam);

-

-{  if StrCmp(PAnsiChar(CallService(MS_PROTO_GETCONTACTBASEPROTO,wParam,0)),

-             PluginName)<>0 then exit;

-}

-end;