1 files changed, 11 insertions, 0 deletions
diff --git a/plugins/HistoryPlusPlus/hpp_global.pas b/plugins/HistoryPlusPlus/hpp_global.pas
index 6af8367813..018e233b3f 100644
--- a/plugins/HistoryPlusPlus/hpp_global.pas
+++ b/plugins/HistoryPlusPlus/hpp_global.pas
@@ -293,6 +293,8 @@ procedure OpenUrl(const URLText: String; NewWindow: Boolean);
 
 function HppMessageBox(Handle: THandle; const Text: String; const Caption: String; Flags: Integer): Integer;
 
+function my_event_get(hDbEvent:TMEVENT; dbei:PDBEVENTINFO):int;
+
 function MakeTextXMLedA(const Text: AnsiString): AnsiString;
 function MakeTextXMLedW(const Text: WideString): WideString;
 function FormatCString(const Text: WideString): WideString;
@@ -708,6 +710,15 @@ begin
          or (Pos(RTF_BEGIN_2, Value) = 1);
 end;
 
+function my_event_get(hDbEvent:TMEVENT; dbei:PDBEVENTINFO):int;
+begin
+  Result := db_event_get(hDbEvent, dbei);
+  if Result = 0 then begin
+    if (dbei.flags and DBEF_MSEC) <> 0 then
+        dbei.Timestamp := Trunc(dbei.Timestamp / 1000);
+  end;
+end;
+
 function _WideCharType(WC: WideChar; dwInfoType: Cardinal): Word;
 begin
   Win32Check(GetStringTypeExW(GetThreadLocale, dwInfoType, PWideChar(@WC), 1, Result))