From e9df5cb26041817f3d06c7887ba534273dd0d99d Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Thu, 10 Oct 2013 19:32:39 +0000
Subject: - atavism with the alternative MS_DB_EVENT_GETTEXT implementation
 removed; - warning fix

git-svn-id: http://svn.miranda-ng.org/main/trunk@6433 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/HistoryPlusPlus/hpp_events.pas | 36 +---------------------------------
 1 file changed, 1 insertion(+), 35 deletions(-)

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

diff --git a/plugins/HistoryPlusPlus/hpp_events.pas b/plugins/HistoryPlusPlus/hpp_events.pas
index 0201e7b6b0..e178ee01ce 100644
--- a/plugins/HistoryPlusPlus/hpp_events.pas
+++ b/plugins/HistoryPlusPlus/hpp_events.pas
@@ -112,7 +112,6 @@ function GetEventRecord(const Hi: THistoryItem): PEventRecord;
 function GetMessageType(EventInfo: TDBEventInfo; var EventIndex: Integer): TMessageTypes;
 // global routines
 function GetEventCoreText(EventInfo: TDBEventInfo; var Hi: THistoryItem): Boolean;
-function GetEventModuleText(EventInfo: TDBEventInfo; var Hi: THistoryItem): Boolean;
 // specific routines
 procedure GetEventTextForMessage(EventInfo: TDBEventInfo; var Hi: THistoryItem);
 procedure GetEventTextForFile(EventInfo: TDBEventInfo; var Hi: THistoryItem);
@@ -489,9 +488,7 @@ begin
       Result.RTLMode := hppRTLEnable;
     Result.MessageType := GetMessageType(EventInfo, EventIndex);
     Result.CodePage := UseCP;
-    // Handled := true;
-    // if Handled then Handled := GetEventCoreText(EventInfo,Result);
-    { if Handled then } Handled := GetEventModuleText(EventInfo, Result);
+    Handled := GetEventCoreText(EventInfo,Result);
     if not Handled then
       EventTable[EventIndex].TextFunction(EventInfo, Result);
     Result.Text := AdjustLineBreaks(Result.Text);
@@ -550,37 +547,6 @@ begin
   end;
 end;
 
-function GetEventModuleText(EventInfo: TDBEventInfo; var Hi: THistoryItem): Boolean;
-const
-  maxServiceLength = 99;
-var
-  dbegt: TDBEVENTGETTEXT;
-  msg: Pointer;
-  szServiceName: array[0..maxServiceLength] of AnsiChar;
-begin
-  Result := False;
-  dbegt.dbei := @EventInfo;
-  dbegt.datatype := DBVT_WCHAR;
-  dbegt.codepage := hi.Codepage;
-  try
-    StrLFmt(szServiceName,maxServiceLength,'%s/GetEventText%u',[EventInfo.szModule,EventInfo.eventType]);
-    Result := Boolean(ServiceExists(szServiceName));
-  except
-  end;
-  if not Result then exit;
-  msg := nil;
-  try
-    msg := Pointer(CallService(szServiceName,0,LPARAM(@dbegt)));
-    Result := Assigned(msg);
-  except
-    if Assigned(msg) then mir_free(msg);
-  end;
-  if Result then begin
-    SetString(hi.Text,PChar(msg),StrLen(PChar(msg)));
-    mir_free(msg);
-  end;
-end;
-
 procedure GetEventTextForMessage(EventInfo: TDBEventInfo; var Hi: THistoryItem);
 var
   msgA: PAnsiChar;
-- 
cgit v1.2.3