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

1 files changed, 4 insertions, 12 deletions

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;