From 02f53972b1806473e55b1164a70f5d8ddccc1450 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Thu, 26 Feb 2015 14:30:30 +0000
Subject: Delphi: Service and parameters API reworked QS: adapted for new
 service API Actman: updated for new service API

git-svn-id: http://svn.miranda-ng.org/main/trunk@12274 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/QuickSearch/sr_optdialog.pas | 30 +++++++++---------------------
 1 file changed, 9 insertions(+), 21 deletions(-)

(limited to 'plugins/QuickSearch/sr_optdialog.pas')

diff --git a/plugins/QuickSearch/sr_optdialog.pas b/plugins/QuickSearch/sr_optdialog.pas
index c73843677d..727f19bbb6 100644
--- a/plugins/QuickSearch/sr_optdialog.pas
+++ b/plugins/QuickSearch/sr_optdialog.pas
@@ -11,7 +11,8 @@ uses
   messages,commctrl,
   m_api,common,mirutils,wrapper,dbsettings,
   sr_global,sr_window,
-  sparam,editwrapper,srvblock;
+  editwrapper,
+  awkservices;
 
 var
   OldListProc:pointer;
@@ -305,8 +306,8 @@ begin
 //      LV_SetItemW(list,column.script,item,3);
     end;
     QST_SERVICE: begin
-      LV_SetItemW(list,TranslateW('Service'),item,2);
-      LV_SetItem (list,column.service       ,item,3);
+      LV_SetItemW(list,TranslateW('Service') ,item,2);
+      LV_SetItem (list,column.service.service,item,3);
     end;
     QST_CONTACTINFO: begin
       LV_SetItemW(list,TranslateW('Contact info')    ,item,2);
@@ -325,7 +326,6 @@ end;
 function savecuritem(Dialog:HWND):integer;
 var
   list:HWND;
-  srvalue:tServiceValue;
   i:integer;
   idx,lwidth:integer;
 begin
@@ -364,13 +364,8 @@ begin
       end;
 
       QST_SERVICE: begin
-        GetSrvBlockValue(ServiceBlock,srvalue);
-        service     :=srvalue.service;
-        wparam.value:=srvalue.wparam;
-        wparam._type:=srvalue.w_flag;
-        lparam.value:=srvalue.lparam;
-        lparam._type:=srvalue.l_flag;
-        restype     :=srvalue.flags;
+        ClearServiceValue(service);
+        GetSrvBlockValue(ServiceBlock,service);
       end;
 
       QST_OTHER: begin
@@ -382,8 +377,6 @@ begin
 end;
 
 procedure displcurinfo(Dialog:HWND;const column:tcolumnitem);
-var
-  srvalue:tServiceValue;
 begin
   ClearScreen(Dialog);
   SetupScreen(Dialog,column.setting_type);
@@ -403,13 +396,7 @@ begin
     end;
 
     QST_SERVICE: begin
-      srvalue.service:=column.service;
-      srvalue.wparam :=pointer(column.wparam.value);
-      srvalue.w_flag :=column.wparam._type;
-      srvalue.lparam :=pointer(column.lparam.value);
-      srvalue.l_flag :=column.lparam._type;
-      srvalue.flags  :=column.restype;
-      SetSrvBlockValue(ServiceBlock,srvalue);
+      SetSrvBlockValue(ServiceBlock,column.service);
     end;
 
     QST_CONTACTINFO: begin
@@ -703,7 +690,8 @@ begin
   ScreenToClient(Dialog,pt1);
 
   height:=pt1.y-pt.y-2;
-  ServiceBlock:=CreateServiceBlock(Dialog,pt.x,pt.y,width,height,ACF_NOSTRUCT);
+  ServiceBlock:=CreateServiceBlock(Dialog,pt.x,pt.y,width,height,
+      ACF_BLOCK_NOSTRUCT+ACF_BLOCK_NOCURRENT);
 
   // Contact info
   // Other
-- 
cgit v1.2.3