summaryrefslogtreecommitdiff
path: root/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/HistoryPlusPlus/EmptyHistoryForm.pas')
-rw-r--r--plugins/HistoryPlusPlus/EmptyHistoryForm.pas6
1 files changed, 3 insertions, 3 deletions
diff --git a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
index 699e88df51..e6235fd9f9 100644
--- a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
+++ b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
@@ -290,12 +290,12 @@ var
hDBEvent,prevhDbEvent: THandle;
begin
BookmarkServer.Contacts[hContact].Clear;
- hDBEvent := CallService(MS_DB_EVENT_FINDLAST,hContact,0);
+ hDBEvent := db_event_last(hContact);
SetSafetyMode(False);
while hDBEvent <> 0 do
begin
- prevhDbEvent := CallService(MS_DB_EVENT_FINDPREV,hDBEvent,0);
- if CallService(MS_DB_EVENT_DELETE,hContact,hDBEvent) = 0 then
+ prevhDbEvent := db_event_prev(hDBEvent);
+ if db_event_delete(hContact,hDBEvent) = 0 then
hDBEvent := prevhDbEvent
else
hDBEvent := 0;