1 files changed, 488 insertions, 0 deletions
diff --git a/plugins/Utils.pas/srvblock.pas b/plugins/Utils.pas/srvblock.pas
new file mode 100644
index 0000000000..debd99cddf
--- /dev/null
+++ b/plugins/Utils.pas/srvblock.pas
@@ -0,0 +1,488 @@
+unit srvblock;
+
+interface
+
+uses
+  windows;
+
+const
+  ACF_SCRIPT_SERVICE = $01000000; // high byte of dword
+  ACF_SCRIPT_EXPAND  = $10000000; // all subblocks are visible
+
+type
+  pServiceValue = ^tServiceValue;
+  tServiceValue = record
+    service:pAnsiChar;
+    wparam,
+    lparam: pointer;
+    w_flag,
+    l_flag,
+    flags:dword; // result etc
+  end;
+
+function  CreateServiceBlock(parent:HWND;x,y,width,height:integer;flags:dword=0):HWND;
+procedure ClearServiceBlock(Dialog:HWND);
+procedure SetServiceListMode(Dialog:HWND;mode:integer);
+
+function SetSrvBlockValue(Dialog:HWND;const value:tServiceValue):boolean;
+function GetSrvBlockValue(Dialog:HWND;var   value:tServiceValue):boolean;
+
+// service setting will load templates
+procedure SetSrvBlockService(Dialog:HWND; service:pAnsiChar);
+function  GetSrvBlockService(Dialog:HWND):pAnsiChar;
+
+implementation
+
+uses
+  messages,
+  common, m_api,
+  wrapper,Editwrapper,
+  mApiCardM, sparam;
+
+const
+  IDC_S_SERVICE  = 2040;
+  IDC_C_SERVICE  = 2041;
+  IDC_CLOSE_WPAR = 2042;
+  IDC_CLOSE_LPAR = 2043;
+  IDC_CLOSE_RES  = 2044;
+
+function GetApiCard(Dialog:HWND):tmApiCard;
+begin
+  result:=tmApiCard(GetWindowLongPtrW(GetDlgItem(Dialog,IDC_S_SERVICE),GWLP_USERDATA));
+end;
+
+function GetWPar(Dialog:HWND):HWND;
+begin
+  result:=GetWindowLongPtrW(GetDlgItem(Dialog,IDC_CLOSE_WPAR),GWLP_USERDATA);
+end;
+
+function GetLPar(Dialog:HWND):HWND;
+begin
+  result:=GetWindowLongPtrW(GetDlgItem(Dialog,IDC_CLOSE_LPAR),GWLP_USERDATA);
+end;
+
+function GetRes(Dialog:HWND):HWND;
+begin
+  result:=GetWindowLongPtrW(GetDlgItem(Dialog,IDC_CLOSE_RES),GWLP_USERDATA);
+end;
+
+procedure ShowBlock(Dialog:HWND;id:integer);
+var
+  wpar ,lpar ,res:HWND;
+  wparb,lparb,resb:HWND;
+  wnd,wndb:HWND;
+  rc,rc1:TRECT;
+  pt:TPOINT;
+begin
+  // buttons
+  wpar:=GetDlgItem(Dialog,IDC_CLOSE_WPAR);
+  lpar:=GetDlgItem(Dialog,IDC_CLOSE_LPAR);
+  res :=GetDlgItem(Dialog,IDC_CLOSE_RES);
+
+  // blocks
+  wparb:=GetWindowLongPtrW(wpar,GWLP_USERDATA);
+  lparb:=GetWindowLongPtrW(lpar,GWLP_USERDATA);
+  resb :=GetWindowLongPtrW(res ,GWLP_USERDATA);
+
+  if id=0 then
+  begin
+    ShowWindow(wparb,SW_HIDE);
+    ShowWindow(lparb,SW_HIDE);
+    ShowWindow(resb ,SW_HIDE);
+    exit;
+  end;
+
+  // starting point of coords
+  GetWindowRect(wpar,rc);
+  pt.x:=rc.left;
+  pt.y:=rc.bottom;
+  ScreenToClient(Dialog,pt);
+  // show/hide blocks
+  // enable/disable buttons
+  // move buttons to new place
+  case id of
+    IDC_CLOSE_WPAR: begin
+      CheckDlgButton(Dialog,IDC_CLOSE_WPAR,BST_CHECKED);
+      CheckDlgButton(Dialog,IDC_CLOSE_LPAR,BST_UNCHECKED);
+      CheckDlgButton(Dialog,IDC_CLOSE_RES ,BST_UNCHECKED);
+      EnableWindow(lpar,true);
+      EnableWindow(res ,true);
+      ShowWindow(lparb,SW_HIDE);
+      ShowWindow(resb ,SW_HIDE);
+      wnd :=wpar;
+      wndb:=wparb;
+
+      GetClientRect(wparb,rc1);
+      SetWindowPos(lpar,HWND_TOP,pt.x,pt.y+rc1.bottom+5,0,0,SWP_NOZORDER or SWP_NOSIZE);
+      GetClientRect(lpar,rc);
+      SetWindowPos(res,HWND_TOP,pt.x,pt.y+rc1.bottom+rc.bottom+10,0,0,SWP_NOZORDER or SWP_NOSIZE);
+    end;
+
+    IDC_CLOSE_LPAR: begin
+      CheckDlgButton(Dialog,IDC_CLOSE_WPAR,BST_UNCHECKED);
+      CheckDlgButton(Dialog,IDC_CLOSE_LPAR,BST_CHECKED);
+      CheckDlgButton(Dialog,IDC_CLOSE_RES ,BST_UNCHECKED);
+      EnableWindow(wpar,true);
+      EnableWindow(res ,true);
+      ShowWindow(wparb,SW_HIDE);
+      ShowWindow(resb ,SW_HIDE);
+      wnd :=lpar;
+      wndb:=lparb;
+
+      SetWindowPos(lpar,HWND_TOP,pt.x,pt.y+5,0,0,SWP_NOZORDER or SWP_NOSIZE);
+      GetClientRect(lpar ,rc);
+      GetClientRect(lparb,rc1);
+      SetWindowPos(res,HWND_TOP,pt.x,pt.y+rc1.bottom+rc.bottom+10,0,0,SWP_NOZORDER or SWP_NOSIZE);
+    end;
+
+    IDC_CLOSE_RES: begin
+      CheckDlgButton(Dialog,IDC_CLOSE_WPAR,BST_UNCHECKED);
+      CheckDlgButton(Dialog,IDC_CLOSE_LPAR,BST_UNCHECKED);
+      CheckDlgButton(Dialog,IDC_CLOSE_RES ,BST_CHECKED);
+      EnableWindow(wpar,true);
+      EnableWindow(lpar,true);
+      ShowWindow(wparb,SW_HIDE);
+      ShowWindow(lparb,SW_HIDE);
+      wnd :=res;
+      wndb:=resb;
+
+      SetWindowPos(lpar,HWND_TOP,pt.x,pt.y+5,0,0,SWP_NOZORDER or SWP_NOSIZE);
+      GetClientRect(lpar,rc);
+      SetWindowPos(res,HWND_TOP,pt.x,pt.y+rc.bottom+10,0,0,SWP_NOZORDER or SWP_NOSIZE);
+    end;
+  end;
+  EnableWindow(wnd ,false);
+  ShowWindow  (wndb,SW_SHOW);
+end;
+
+procedure ReloadService(Dialog:HWND;srv:pAnsiChar;setvalue:boolean);
+var
+  pc:pAnsiChar;
+  ApiCard:tmApiCard;
+  flag:dword;
+begin
+  ApiCard:=GetApiCard(Dialog);
+  ApiCard.Service:=srv;
+
+  pc:=ApiCard.GetParam(true);
+  if pc<>nil then
+  begin
+    FillParam(GetWPar(Dialog),pc);
+(*
+    if GetDlgItemTextA(Dialog,IDC_EDIT_WPAR,buf1,SizeOf(buf1))>0 then
+      case FixParam(Dialog,@buf1,IDC_FLAG_WPAR) of
+        ptStruct: begin
+          if setvalue then
+          begin
+            struct:=pAnsiChar(SetWindowLongPtrW(GetDlgItem(Dialog,IDC_WSTRUCT),GWLP_USERDATA,
+            long_ptr(StrDup(struct,StrScan(pc,'|')+1))));
+            mFreeMem(struct);
+          end;
+
+{          struct:=pAnsiChar(GetWindowLongPtrW(GetDlgItem(Dialog,IDC_WSTRUCT),GWLP_USERDATA));
+          mFreeMem(struct);
+          StrDup(struct,StrScan(pc,'|')+1);
+          SetWindowLongPtrW(GetDlgItem(Dialog,IDC_WSTRUCT),GWLP_USERDATA,long_ptr(struct));
+//            AnsiToWide(StrScan(pc,'|')+1,wstruct,MirandaCP);
+}
+        end;
+      end;
+*)
+    mFreeMem(pc);
+  end;
+
+  pc:=ApiCard.GetParam(false);
+  if pc<>nil then
+  begin
+    FillParam(GetLPar(Dialog),pc);
+    mFreeMem(pc);
+  end;
+
+  pc:=ApiCard.ResultType;
+  flag:=ACF_RNUMBER;
+  if pc<>nil then
+  begin
+    if      lstrcmpia(pc,'struct')=0 then flag:=ACF_RSTRUCT
+    else if lstrcmpia(pc,'str')=0 then
+    begin
+      flag:=ACF_RSTRING;
+    end
+    else if lstrcmpia(pc,'wide')=0 then
+    begin
+      flag:=ACF_RUNICODE;
+    end;
+    mFreeMem(pc);
+  end;
+
+  SetResultValue(GetRes(Dialog),flag);
+end;
+
+procedure FillTemplate(Dialog:HWND);
+var
+  wnd:HWND;
+  buf:array [0..127] of AnsiChar;
+begin
+  wnd:=GetDlgItem(Dialog,IDC_C_SERVICE);
+  SendMessageA(wnd,CB_GETLBTEXT,SendMessage(wnd,CB_GETCURSEL,0,0),tlparam(@buf));
+  ReloadService(Dialog,@buf,true);
+end;
+
+function DlgServiceProc(Dialog:HWnd;hMessage:uint;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
+var
+  proc:pointer;
+  pc:pAnsiChar;
+  ApiCard:tmApiCard;
+begin
+  result:=0;
+
+  case hMessage of
+    WM_DESTROY: begin
+      ApiCard:=GetApiCard(Dialog);
+      if ApiCard<>nil then
+        ApiCard.Free;
+    end;
+
+    WM_HELP: begin
+      ApiCard:=GetApiCard(Dialog);
+      pc:=ApiCard.NameFromList(GetDlgItem(Dialog,IDC_C_SERVICE));
+      ApiCard.Service:=pc;
+      mFreeMem(pc);
+      ApiCard.Show;
+
+      result:=1;
+    end;
+
+    WM_COMMAND: begin
+      case wParam shr 16 of
+        CBN_EDITCHANGE,
+        EN_CHANGE: begin
+          SendMessage(GetParent(Dialog),WM_COMMAND,CBN_EDITCHANGE shl 16,Dialog);
+        end;
+
+        BN_CLICKED: begin
+          case loword(wParam) of
+            IDC_CLOSE_WPAR,
+            IDC_CLOSE_LPAR,
+            IDC_CLOSE_RES: ShowBlock(Dialog,loword(wParam));
+          end;
+        end;
+
+        CBN_SELCHANGE:  begin
+          case loword(wParam) of
+            IDC_C_SERVICE: FillTemplate(Dialog);
+          end;
+        end;
+      end;
+    end;
+  else
+    proc:=pointer(GetWindowLongPtrW(Dialog,GWLP_USERDATA));
+    result:=CallWindowProc(proc,Dialog,hMessage,wParam,lParam)
+  end;
+end;
+
+function CreateServiceBlock(parent:HWND;x,y,width,height:integer;flags:dword=0):HWND;
+var
+  hf:HFONT;
+  ctrl,wnd,srv,srvs:HWND;
+  proc:pointer;
+  ApiCard:tmApiCard;
+  rc,rc1:TRECT;
+  dx,dy:integer;
+  ux,uy:integer;
+  h,bs:integer;
+begin
+  hf:=SendMessageW(parent,WM_GETFONT,0,0);
+  GetUnitSize(parent,ux,uy);
+
+  // let think what x,y and width is dialog-related
+  if height=0 then
+    h:=100
+  else
+    h:=height;
+  SetRect(rc,x,y,x+width,y+h);
+  dx:=rc.right-rc.left;
+
+  result:=CreateWindowExW(WS_EX_CONTROLPARENT,'STATIC',nil,WS_CHILD+WS_VISIBLE,
+          x,y,dx,rc.bottom-rc.top, parent,0,hInstance,nil);
+  proc:=pointer(SetWindowLongPtrW(result,GWLP_WNDPROC,long_ptr(@DlgServiceProc)));
+  SetWindowLongPtrW(result,GWLP_USERDATA,long_ptr(proc));
+  SendMessageW(result,WM_SETFONT,hf,0);
+
+  dy:=0;
+  // Service label
+  rc.bottom:=12*uy div 8;
+  srvs:=CreateWindowW('STATIC','Service:',WS_CHILD+WS_VISIBLE+SS_CENTERIMAGE+SS_LEFT,
+        0,dy,dx,rc.bottom, result,IDC_S_SERVICE,hInstance,nil);
+  SendMessageW(srvs,WM_SETFONT,hf,0);
+  inc(dy,rc.bottom+2);
+
+  // Service name combobox
+  rc.bottom:=14*uy div 8;
+  srv:=CreateWindowW('COMBOBOX',nil,WS_CHILD+WS_VISIBLE+WS_VSCROLL+CBS_DROPDOWN+CBS_AUTOHSCROLL,
+        0,dy,dx,76, result,IDC_C_SERVICE,hInstance,nil);
+  SendMessageW(srv,WM_SETFONT,hf,0);
+  inc(dy,rc.bottom+2);
+  MakeEditField(result,IDC_C_SERVICE);
+
+  if (flags and ACF_SCRIPT_EXPAND)<>0 then
+    bs:=WS_CHILD+BS_AUTOCHECKBOX+BS_PUSHLIKE
+  else
+    bs:=WS_CHILD+WS_VISIBLE+BS_AUTOCHECKBOX+BS_PUSHLIKE;
+
+  // wParam button+block
+  rc.bottom:=11*uy div 8;
+  ctrl:=CreateWindowW('BUTTON','wParam',bs,
+        0,dy,dx,rc.bottom, result,IDC_CLOSE_WPAR,hInstance,nil);
+  SendMessageW(ctrl,WM_SETFONT,hf,0);
+  if (flags and ACF_SCRIPT_EXPAND)=0 then
+    inc(dy,rc.bottom+4);
+
+  wnd:=CreateParamBlock(result,0,dy,dx,flags);
+  SetWindowLongPtrW(ctrl,GWLP_USERDATA,wnd);
+  SetParamLabel(wnd,'wParam');
+  GetClientRect(wnd,rc1);
+  if (flags and ACF_SCRIPT_EXPAND)<>0 then
+    inc(dy,rc1.bottom+8);
+
+  // lParam button+block
+  ctrl:=CreateWindowW('BUTTON','lParam',bs,
+        0,dy,dx,rc.bottom, result,IDC_CLOSE_LPAR,hInstance,nil);
+  SendMessageW(ctrl,WM_SETFONT,hf,0);
+  if (flags and ACF_SCRIPT_EXPAND)=0 then
+    inc(dy,rc.bottom+4);
+
+  wnd:=CreateParamBlock(result,0,dy,dx,flags);
+  SetWindowLongPtrW(ctrl,GWLP_USERDATA,wnd);
+  SetParamLabel(wnd,'lParam');
+  if (flags and ACF_SCRIPT_EXPAND)<>0 then
+    inc(dy,rc1.bottom+8);
+
+  // result button+block
+  ctrl:=CreateWindowW('BUTTON','Result',bs,
+        0,dy,dx,rc.bottom, result,IDC_CLOSE_RES,hInstance,nil);
+  SendMessageW(ctrl,WM_SETFONT,hf,0);
+  if (flags and ACF_SCRIPT_EXPAND)=0 then
+    inc(dy,rc.bottom+4);
+
+  wnd:=CreateResultBlock(result,0,dy,dx,flags);
+  SetWindowLongPtrW(ctrl,GWLP_USERDATA,wnd);
+  GetClientRect(wnd,rc);
+
+  // autoresize panel
+  if height=0 then
+  begin
+    if (flags and ACF_SCRIPT_EXPAND)=0 then
+    begin
+      if rc1.bottom>rc.bottom then
+        h:=rc1.bottom
+      else
+        h:=rc.bottom;
+    end
+    else
+    begin
+      h:=rc.bottom;
+    end;
+    MoveWindow(result,x,y,dx,dy+h,false);
+  end;
+
+  // additional
+  ApiCard:=CreateServiceCard(result);
+  ApiCard.FillList(srv);
+  SetWindowLongPtrW(srvs,GWLP_USERDATA,long_ptr(ApiCard));
+
+  if (flags and ACF_SCRIPT_EXPAND)=0 then
+    ShowBlock(result,IDC_CLOSE_WPAR);
+end;
+
+procedure ClearServiceBlock(Dialog:HWND);
+begin
+  if Dialog=0 then
+    exit;
+
+  SetDlgItemTextA(Dialog,IDC_C_SERVICE,'');
+  SetEditFlags(GetDlgItem(Dialog,IDC_C_SERVICE),EF_SCRIPT,0);
+
+  SetParamValue (GetWPar(Dialog),ACF_NUMBER,nil);
+  SetParamValue (GetLPar(Dialog),ACF_NUMBER,nil);
+  SetResultValue(GetRes (Dialog),ACF_RNUMBER);
+end;
+
+procedure SetServiceListMode(Dialog:HWND;mode:integer);
+var
+  ApiCard:tmApiCard;
+begin
+  if Dialog=0 then
+    exit;
+
+  ApiCard:=GetApiCard(Dialog);
+  ApiCard.FillList(GetDlgItem(Dialog,IDC_C_SERVICE),mode);
+end;
+
+function SetSrvBlockValue(Dialog:HWND;const value:tServiceValue):boolean;
+begin
+  if Dialog=0 then
+  begin
+    result:=false;
+    exit;
+  end;
+
+  result:=true;
+
+  if CB_SelectData(Dialog,IDC_C_SERVICE,Hash(value.service,StrLen(value.service)))<>CB_ERR then
+;{
+    ReloadService(Dialog,value.service,false)
+  else
+}
+    SetDlgItemTextA(Dialog,IDC_C_SERVICE,value.service);
+
+  SetEditFlags(GetDlgItem(Dialog,IDC_C_SERVICE),EF_SCRIPT,
+        ord((value.flags and ACF_SCRIPT_SERVICE)<>0));
+
+  SetParamValue (GetWPar(Dialog),value.w_flag,value.wparam);
+  SetParamValue (GetLPar(Dialog),value.l_flag,value.lparam);
+  SetResultValue(GetRes (Dialog),value.flags and ACF_RTYPE);
+end;
+
+function GetSrvBlockValue(Dialog:HWND;var value:tServiceValue):boolean;
+var
+  ApiCard:tmApiCard;
+begin
+  if Dialog=0 then
+  begin
+    result:=false;
+    exit;
+  end;
+
+  result:=true;
+
+  ApiCard:=GetApiCard(Dialog);
+  value.service:=ApiCard.NameFromList(GetDlgItem(Dialog,IDC_C_SERVICE));
+
+  GetParamValue(GetWPar(Dialog),value.w_flag,value.wparam);
+  GetParamValue(GetLPar(Dialog),value.l_flag,value.lparam);
+  value.flags:=GetResultValue(GetRes(Dialog));
+
+  if (GetEditFlags(Dialog,IDC_C_SERVICE) and EF_SCRIPT)<>0 then
+    value.flags:=value.flags or ACF_SCRIPT_SERVICE;
+end;
+
+procedure SetSrvBlockService(Dialog:HWND; service:pAnsiChar);
+begin
+  if Dialog=0 then
+    exit;
+
+  ReloadService(Dialog,service,true);
+end;
+
+function GetSrvBlockService(Dialog:HWND):pAnsiChar;
+begin
+  if Dialog=0 then
+  begin
+    result:=nil;
+    exit;
+  end;
+
+  result:=GetDlgText(Dialog,IDC_C_SERVICE);
+end;
+
+end.