From 617cc8e1277692d32197163a7a377aba4a8f2805 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Wed, 19 Apr 2023 19:14:25 +0300 Subject: =?UTF-8?q?fixes=20#3483=20(History++:=20=D0=BD=D0=B5=D0=B2=D0=BE?= =?UTF-8?q?=D0=B7=D0=BC=D0=BE=D0=B6=D0=BD=D0=BE=20=D1=83=D0=B4=D0=B0=D0=BB?= =?UTF-8?q?=D0=B8=D1=82=D1=8C=20=D0=B8=D0=B7=20=D0=B1=D0=B0=D0=B7=D1=8B=20?= =?UTF-8?q?=D1=81=D0=BE=D0=BE=D0=B1=D1=89=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=B3?= =?UTF-8?q?=D1=80=D1=83=D0=BF=D1=87=D0=B0=D1=82=D0=B0)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- plugins/HistoryPlusPlus/hpp_external.pas | 1 + plugins/HistoryPlusPlus/hpp_externalgrid.pas | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) (limited to 'plugins/HistoryPlusPlus') diff --git a/plugins/HistoryPlusPlus/hpp_external.pas b/plugins/HistoryPlusPlus/hpp_external.pas index 53843d277f..cb81d72363 100644 --- a/plugins/HistoryPlusPlus/hpp_external.pas +++ b/plugins/HistoryPlusPlus/hpp_external.pas @@ -189,6 +189,7 @@ begin CustomItem.Nick := AnsiToWideString(AnsiString(customEvent.Nick.a),UsedCodepage); CustomItem.Sent := boolean(customEvent.bIsMe); CustomItem.Time := customEvent.time; + CustomItem.hEvent := customEvent.hEvent; ExtGrid.AddCustomEvent(event.hContact, CustomItem, UsedCodepage, boolean(event.dwFlags and IEEF_RTL), not boolean(event.dwFlags and IEEF_NO_SCROLLING)); diff --git a/plugins/HistoryPlusPlus/hpp_externalgrid.pas b/plugins/HistoryPlusPlus/hpp_externalgrid.pas index c19a755f76..f21422393d 100644 --- a/plugins/HistoryPlusPlus/hpp_externalgrid.pas +++ b/plugins/HistoryPlusPlus/hpp_externalgrid.pas @@ -36,6 +36,7 @@ type Text: String; Sent: Boolean; Time: DWord; + HEvent: TMEVENT; end; TExtItem = record @@ -957,7 +958,7 @@ end; procedure TExternalGrid.GridItemDelete(Sender: TObject; Index: Integer); begin - if (FGridState = gsDelete) and (Items[Index].hDBEvent <> 0) and (not Items[Index].Custom) then + if (FGridState = gsDelete) and (Items[Index].hDBEvent <> 0) then db_event_delete(Items[Index].hDBEvent); if Index <> High(Items) then begin -- cgit v1.2.3