MS_DB_EVENT_* services' calls removed from pascal sources

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

1 files changed, 4 insertions, 4 deletions

diff --git a/plugins/HistoryPlusPlus/hpp_searchthread.pas b/plugins/HistoryPlusPlus/hpp_searchthread.pas
index 7d1669a5e4..30effa8ae4 100644
--- a/plugins/HistoryPlusPlus/hpp_searchthread.pas
+++ b/plugins/HistoryPlusPlus/hpp_searchthread.pas
@@ -204,7 +204,7 @@ procedure TSearchThread.BuildContactsList;
     SetLength(Contacts, Length(Contacts) + 1);

     Contacts[High(Contacts)].hContact := Cont;

     Contacts[High(Contacts)].Timestamp := 0;

-    hDB := CallService(MS_DB_EVENT_FINDLAST, Cont, 0);

+    hDB := db_event_last(Cont);

     if hDB <> 0 then

     begin

       Contacts[High(Contacts)].Timestamp := GetEventTimestamp(hDB);

@@ -415,7 +415,7 @@ end;
 

 function TSearchThread.GetItemsCount(hContact: THandle): Integer;

 begin

-  Result := CallService(MS_DB_EVENT_GETCOUNT, hContact, 0);

+  Result := db_event_count(hContact);

 end;

 

 procedure TSearchThread.IncProgress;

@@ -432,12 +432,12 @@ begin
   CurContactCP := GetContactCodePage(Contact);

   CurContact := Contact;

   DoMessage(HM_STRD_NEXTCONTACT, wParam(Contact), lParam(GetContactsCount));

-  hDBEvent := CallService(MS_DB_EVENT_FINDLAST, Contact, 0);

+  hDBEvent := db_event_last(Contact);

   while (hDBEvent <> 0) and (not Terminated) do

   begin

     if SearchEvent(hDBEvent) then

       SendItem(hDBEvent);

-    hDBEvent := CallService(MS_DB_EVENT_FINDPREV, hDBEvent, 0);

+    hDBEvent := db_event_prev(hDBEvent);

   end;

   SendBatch;

 end;