more useless helpers wiped out of pascal code

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

1 files changed, 3 insertions, 8 deletions

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);