From a6b06e8fee136a38231c3c15a438fe5043ed82eb Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Tue, 13 Sep 2016 18:13:42 +0000
Subject: more useless helpers wiped out of pascal code

git-svn-id: http://svn.miranda-ng.org/main/trunk@17293 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/HistoryPlusPlus/hpp_events.pas | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'plugins/HistoryPlusPlus/hpp_events.pas')

diff --git a/plugins/HistoryPlusPlus/hpp_events.pas b/plugins/HistoryPlusPlus/hpp_events.pas
index 848008a37e..f3493adf03 100644
--- a/plugins/HistoryPlusPlus/hpp_events.pas
+++ b/plugins/HistoryPlusPlus/hpp_events.pas
@@ -298,8 +298,7 @@ begin
       exit;
     end;
   end;
-  etd := Pointer(CallService(MS_DB_EVENT_GETTYPE, WPARAM(PAnsiChar(Hi.Module)),
-    LPARAM(Hi.EventType)));
+  etd := DbEvent_GetType(PAnsiChar(Hi.Module), Hi.EventType);
   if etd = nil then
   begin
     Result := @EventRecords[mtOther];
@@ -525,16 +524,12 @@ end;
 
 function GetEventCoreText(EventInfo: TDBEventInfo; var Hi: THistoryItem): Boolean;
 var
-  dbegt: TDBEVENTGETTEXT;
-  msg: Pointer;
+  msg: PWideChar;
 begin
   Result := False;
-  dbegt.dbei := @EventInfo;
-  dbegt.datatype := DBVT_WCHAR;
-  dbegt.codepage := hi.Codepage;
   msg := nil;
   try
-    msg := Pointer(CallService(MS_DB_EVENT_GETTEXT,0,LPARAM(@dbegt)));
+    msg := DbEvent_GetTextW(@EventInfo, CP_ACP);
     Result := Assigned(msg);
   except
     if Assigned(msg) then mir_free(msg);
-- 
cgit v1.2.3