pascal sources sync

git-svn-id: http://svn.miranda-ng.org/main/trunk@4435 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 5 insertions, 5 deletions

diff --git a/plugins/Watrack/proto/i_proto_dlg.inc b/plugins/Watrack/proto/i_proto_dlg.inc
index 3c467c79ac..ebfd6d31c9 100644
--- a/plugins/Watrack/proto/i_proto_dlg.inc
+++ b/plugins/Watrack/proto/i_proto_dlg.inc
@@ -4,7 +4,7 @@ procedure SetAllContactStat(hwndList:HWND);
 var

   hContact,hItem:THANDLE;

 begin

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

+  hContact:=db_find_first();

   while hContact<>0 do

   begin

     hItem:=SendMessage(hwndList,CLM_FINDCONTACT,hContact,0);

@@ -13,7 +13,7 @@ begin
       SendMessage(hwndList,CLM_SETCHECKMARK,hItem,

         DBReadByte(hContact,strCList,ShareOptText,0));

     end;

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

+    hContact:=db_find_next(hContact);

   end;

 end;

 

@@ -21,7 +21,7 @@ procedure SaveAllContactStat(hwndList:HWND);
 var

   hContact,hItem:THANDLE;

 begin

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

+  hContact:=db_find_first();

   while hContact<>0 do

   begin

     hItem:=SendMessage(hwndList,CLM_FINDCONTACT,hContact,0);

@@ -32,7 +32,7 @@ begin
       else

         DBDeleteSetting(hContact,strCList,ShareOptText);

     end;

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

+    hContact:=db_find_next(hContact);

   end;

 end;

 

@@ -100,7 +100,7 @@ begin
       cii.cbSize   :=SizeOf(cii);

       cii.flags    :=CLCIIF_GROUPFONT or CLCIIF_CHECKBOX;

       cii.pszText.w:=TranslateW('** All contacts **');

-      hItemAll:=SendMessage(hList,CLM_ADDINFOITEM,0,dword(@cii));

+      hItemAll:=SendMessage(hList,CLM_ADDINFOITEM,0,tlparam(@cii));

 }

       SetAllContactStat(hList);

       SetHistMask(Dialog);