From f45ed26f105ce9cccf19c54690695fb304ca7c57 Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Wed, 19 Apr 2023 21:28:10 +0300
Subject: fixes #3491 (History++:  crash on event removal)

---
 include/delphi/m_database.inc           | 2 +-
 plugins/HistoryPlusPlus/historypp.dproj | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/include/delphi/m_database.inc b/include/delphi/m_database.inc
index 4c41eac938..97d31909ec 100644
--- a/include/delphi/m_database.inc
+++ b/include/delphi/m_database.inc
@@ -83,7 +83,7 @@ hDbEvent should have been returned by db_event_add/first/last/next/prev()
 Returns 0 on success, or nonzero if hDbEvent was invalid
 Triggers a db/event/deleted event just *before* the event is deleted
 }
-function db_event_delete(hDbEvent:TMEVENT):int; stdcall; external CoreDLL;
+function db_event_delete(hDbEvent:TMEVENT; flags:int=0):int; stdcall; external CoreDLL;
 
 {
 Retrieves a handle to the first event in the chain for hContact
diff --git a/plugins/HistoryPlusPlus/historypp.dproj b/plugins/HistoryPlusPlus/historypp.dproj
index dad4c3f3c1..dac7decafd 100644
--- a/plugins/HistoryPlusPlus/historypp.dproj
+++ b/plugins/HistoryPlusPlus/historypp.dproj
@@ -8,7 +8,7 @@
 			<AppType>Library</AppType>
 			<FrameworkType>VCL</FrameworkType>
 			<ProjectVersion>13.4</ProjectVersion>
-			<Platform Condition="'$(Platform)'==''">Win64</Platform>
+			<Platform Condition="'$(Platform)'==''">Win32</Platform>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
 			<Base>true</Base>
@@ -98,6 +98,8 @@
 			<VerInfo_Locale>1033</VerInfo_Locale>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+			<Debugger_HostApplication>W:\miranda-ng\bin17\Debug\Miranda32.exe</Debugger_HostApplication>
+			<Debugger_CWD>W:\miranda-ng\bin17\Debug</Debugger_CWD>
 			<DCC_UnitSearchPath>..\..\include\delphi;..\..\plugins\ExternalAPI\delphi;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
 			<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
 			<DCC_BplOutput>..\..\bin15\Release\Plugins\</DCC_BplOutput>
@@ -123,9 +125,9 @@
 			<DCC_DcuOutput>..\..\bin17\Debug\Obj\hpp\</DCC_DcuOutput>
 		</PropertyGroup>
 		<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
-			<Debugger_CWD>D:\Myranda\bin17\Debug64</Debugger_CWD>
+			<Debugger_CWD>W:\miranda-ng\bin17\Debug64</Debugger_CWD>
 			<DCC_DebugDCUs>true</DCC_DebugDCUs>
-			<Debugger_HostApplication>D:\Myranda\bin17\Debug64\Miranda64.exe</Debugger_HostApplication>
+			<Debugger_HostApplication>W:\miranda-ng\bin17\Debug64\Miranda64.exe</Debugger_HostApplication>
 			<BRCC_OutputDir>..\..\bin15\temp\res\</BRCC_OutputDir>
 			<DCC_ExeOutput>..\..\bin17\Debug64\Plugins\</DCC_ExeOutput>
 			<DCC_BplOutput>..\..\bin17\Debug64\Plugins\</DCC_BplOutput>
-- 
cgit v1.2.3