From 7bdb598e26e7e98788933af43090d34027166969 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Wed, 14 Sep 2016 18:01:49 +0000
Subject: second major wipeout of database services & structures: -
 DBCONTACTENUMSETTINGS removed; - all helpers moved to mir_core.dll

git-svn-id: http://svn.miranda-ng.org/main/trunk@17296 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/dbsettings.pas | 16 ++++------------
 1 file changed, 4 insertions(+), 12 deletions(-)

(limited to 'plugins/Utils.pas/dbsettings.pas')

diff --git a/plugins/Utils.pas/dbsettings.pas b/plugins/Utils.pas/dbsettings.pas
index c60220e3a2..32ba169808 100644
--- a/plugins/Utils.pas/dbsettings.pas
+++ b/plugins/Utils.pas/dbsettings.pas
@@ -217,7 +217,6 @@ end;
 
 function DBDeleteGroup(hContact:TMCONTACT;szModule:PAnsiChar;prefix:PAnsiChar=nil):int_ptr;
 var
-  ces:TDBCONTACTENUMSETTINGS;
   p:PAnsiChar;
   code,num:integer;
   ptr:PAnsiChar;
@@ -227,26 +226,19 @@ var
 begin
   if (prefix=nil) or (prefix^=#0) then
   begin
-    DbModule_Delete(hContact,szModule);
+    db_delete_module(hContact,szModule);
     result:=0;
     exit;
   end;
 
-  ces.szModule:=szModule;
-  num:=0;
   //calculate size for setting names buffer
-  ces.pfnEnumProc:=@EnumSettingsProcCalc;
-  ces.lParam     :=lParam(@num);
-  ces.ofsSettings:=0;
-  CallService(MS_DB_CONTACT_ENUMSETTINGS,hContact,lparam(@ces));
+  num:=0;
+  db_enum_settings(hContact,@EnumSettingsProcCalc,szModule,@num);
 
   //get setting names list
   GetMem(p,num+1);
   ptr:=p;
-  ces.pfnEnumProc:=@EnumSettingsProc;
-  ces.lParam     :=lparam(@ptr);
-  ces.ofsSettings:=0;
-  result:=CallService(MS_DB_CONTACT_ENUMSETTINGS,hContact,lparam(@ces));
+  result:=db_enum_settings(hContact,@EnumSettingsProc,szModule,@ptr);
   ptr^:=#0;
 
   ptr:=p;
-- 
cgit v1.2.3