From e5e7c0e4be9da790796cb4d16cda1962ab004cdf Mon Sep 17 00:00:00 2001
From: George Hazan <ghazan@miranda.im>
Date: Thu, 10 Jun 2021 17:00:10 +0300
Subject: this module isn't needed anymore

---
 plugins/HistoryPlusPlus/EmptyHistoryForm.dfm |  75 ---------
 plugins/HistoryPlusPlus/EmptyHistoryForm.pas | 228 ---------------------------
 plugins/HistoryPlusPlus/historypp.dpr        |   1 -
 plugins/HistoryPlusPlus/historypp.dproj      |   3 -
 plugins/HistoryPlusPlus/hpp_services.pas     |   5 +-
 5 files changed, 2 insertions(+), 310 deletions(-)
 delete mode 100644 plugins/HistoryPlusPlus/EmptyHistoryForm.dfm
 delete mode 100644 plugins/HistoryPlusPlus/EmptyHistoryForm.pas

(limited to 'plugins/HistoryPlusPlus')

diff --git a/plugins/HistoryPlusPlus/EmptyHistoryForm.dfm b/plugins/HistoryPlusPlus/EmptyHistoryForm.dfm
deleted file mode 100644
index 559f5cf366..0000000000
--- a/plugins/HistoryPlusPlus/EmptyHistoryForm.dfm
+++ /dev/null
@@ -1,75 +0,0 @@
-object EmptyHistoryFrm: TEmptyHistoryFrm
-  Left = 346
-  Top = 283
-  BorderStyle = bsDialog
-  BorderWidth = 8
-  Caption = 'Empty History'
-  ClientHeight = 65
-  ClientWidth = 274
-  Color = clBtnFace
-  DefaultMonitor = dmDesktop
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  FormStyle = fsStayOnTop
-  KeyPreview = True
-  OldCreateOrder = True
-  Position = poScreenCenter
-  OnCreate = FormCreate
-  OnKeyDown = FormKeyDown
-  OnShow = FormShow
-  DesignSize = (
-    274
-    65)
-  PixelsPerInch = 96
-  TextHeight = 13
-  object Image: TImage
-    Left = 0
-    Top = 0
-    Width = 32
-    Height = 32
-  end
-  object Text: TLabel
-    Left = 42
-    Top = 0
-    Width = 232
-    Height = 32
-    Anchors = [akLeft, akTop, akRight]
-    AutoSize = False
-    Layout = tlCenter
-    WordWrap = True
-  end
-  object paButtons: TPanel
-    Left = 0
-    Top = 40
-    Width = 274
-    Height = 25
-    Align = alBottom
-    AutoSize = True
-    BevelOuter = bvNone
-    TabOrder = 0
-    ExplicitTop = 54
-    object btYes: TButton
-      Left = 0
-      Top = 0
-      Width = 75
-      Height = 25
-      Caption = 'Yes'
-      ModalResult = 6
-      TabOrder = 0
-      OnClick = btYesClick
-    end
-    object btNo: TButton
-      Left = 85
-      Top = 0
-      Width = 75
-      Height = 25
-      Cancel = True
-      Caption = 'No'
-      ModalResult = 7
-      TabOrder = 1
-    end
-  end
-end
diff --git a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
deleted file mode 100644
index 08335d3d0b..0000000000
--- a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
+++ /dev/null
@@ -1,228 +0,0 @@
-(*
-    History++ plugin for Miranda IM: the free IM client for Microsoft* Windows*
-
-    Copyright (C) 2006-2009 theMIROn, 2003-2006 Art Fedorov.
-    History+ parts (C) 2001 Christian Kastner
-
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-*)
-
-{-----------------------------------------------------------------------------
- EmptyHistoryForm (historypp project)
-
- Version:   1.0
- Created:   15.03.2008
- Author:    theMIROn
-
- [ Description ]
-
-  Empty history dialog
-
- [ History ]
-
- 1.0 (15.04.08) First version.
-
- [ Modifications ]
-
- [ Known Issues ]
-
- Contributors: theMIROn, Art Fedorov
------------------------------------------------------------------------------}
-
-unit EmptyHistoryForm;
-
-interface
-
-uses Windows, Classes, Controls, Graphics,
-  Forms, Buttons, StdCtrls, ExtCtrls,
-//  HistoryControls,
-  m_api;
-
-type
-  TEmptyHistoryFrm = class(TForm)
-    btYes: TButton;
-    btNo: TButton;
-    paButtons: TPanel;
-    Image: TImage;
-    Text: TLabel;
-    procedure FormCreate(Sender: TObject);
-    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-    procedure FormShow(Sender: TObject);
-    procedure btYesClick(Sender: TObject);
-  private
-    FContact: TMCONTACT;
-    procedure TranslateForm;
-    procedure PrepareForm;
-    procedure SetContact(const Value: TMCONTACT);
-    procedure EmptyHistory(hContact: TMCONTACT);
-  protected
-    function GetFormText: String;
-  public
-    property Contact: TMCONTACT read FContact write SetContact;
-  end;
-
-implementation
-
-uses
-  Math, SysUtils, HistoryForm,
-  hpp_global, hpp_forms, hpp_contacts, hpp_database, hpp_bookmarks;
-
-{$R *.dfm}
-
-function GetAveCharSize(Canvas: TCanvas): TPoint;
-var
-  I: Integer;
-  Buffer: array[0..51] of WideChar;
-  tm: TTextMetric;
-begin
-  for I := 0 to 25 do Buffer[I] := WideChar(I + Ord('A'));
-  for I := 0 to 25 do Buffer[I + 26] := WideChar(I + Ord('a'));
-  GetTextMetrics(Canvas.Handle, tm);
-  GetTextExtentPointW(Canvas.Handle, Buffer, 52, TSize(Result));
-  Result.X := (Result.X div 26 + 1) div 2;
-  Result.Y := tm.tmHeight;
-end;
-
-function TEmptyHistoryFrm.GetFormText: String;
-var
-  DividerLine, ButtonCaptions: String;
-  I: integer;
-begin
-  DividerLine := StringOfChar('-', 27) + sLineBreak;
-  for I := 0 to ComponentCount - 1 do
-    if Components[I] is TButton then
-      ButtonCaptions := ButtonCaptions +
-                        TButton(Components[I]).Caption + StringOfChar(' ', 3);
-  ButtonCaptions := StringReplace(ButtonCaptions,'&','', [rfReplaceAll]);
-  Result := DividerLine + Caption + sLineBreak +
-            DividerLine + Text.Caption + sLineBreak +
-            DividerLine + ButtonCaptions + sLineBreak +
-            DividerLine;
-end;
-
-procedure TEmptyHistoryFrm.TranslateForm;
-begin
-  Caption           := TranslateUnicodeString(Caption);
-  btYes.Caption     := TranslateUnicodeString(btYes.Caption);
-  btNo.Caption      := TranslateUnicodeString(btNo.Caption);
-end;
-
-procedure TEmptyHistoryFrm.PrepareForm;
-const
-  mcSpacing = 8;
-  mcButtonWidth = 50;
-  mcButtonHeight = 14;
-  mcButtonSpacing = 4;
-var
-  DialogUnits: TPoint;
-  HorzSpacing, VertSpacing,
-  ButtonWidth, ButtonHeight, ButtonSpacing, ButtonGroupWidth,
-  IconTextWidth, IconTextHeight: Integer;
-  TextRect: TRect;
-begin
-  DialogUnits := GetAveCharSize(Canvas);
-  HorzSpacing   := MulDiv(mcSpacing, DialogUnits.X, 8);
-  VertSpacing   := MulDiv(mcSpacing, DialogUnits.X, 4);
-  ButtonWidth   := MulDiv(mcButtonWidth, DialogUnits.X, 4);
-  ButtonHeight  := MulDiv(mcButtonHeight, DialogUnits.Y, 8);
-  ButtonSpacing := MulDiv(mcButtonSpacing, DialogUnits.X, 4);
-
-  SetRect(TextRect, 0, 0, Screen.Width div 2, 0);
-    DrawTextW(Canvas.Handle, PChar(Text.Caption),
-      Length(Text.Caption)+1, TextRect,
-      DT_EXPANDTABS or DT_CALCRECT or DT_WORDBREAK or
-      DrawTextBiDiModeFlagsReadingOnly);
-
-  IconTextWidth := Image.Width + HorzSpacing + TextRect.Right;
-  IconTextHeight := Max(Image.Height,TextRect.Bottom);
-
-  ButtonGroupWidth := ButtonWidth*2 + ButtonSpacing;
-
-  BorderWidth := VertSpacing;
-  ClientWidth := Max(IconTextWidth, ButtonGroupWidth);
-  ClientHeight := IconTextHeight + VertSpacing + paButtons.Height;
-  Text.SetBounds(Image.Width + HorzSpacing, 0,
-    TextRect.Right, TextRect.Bottom);
-
-  btYes.SetBounds((ClientWidth - ButtonGroupWidth) div 2,0, ButtonWidth, ButtonHeight);
-  btNo.SetBounds(btYes.Left + btYes.Width + ButtonSpacing,0, ButtonWidth, ButtonHeight);
-end;
-
-procedure TEmptyHistoryFrm.FormShow(Sender: TObject);
-begin
-  TranslateForm;
-  PrepareForm;
-end;
-
-procedure TEmptyHistoryFrm.FormCreate(Sender: TObject);
-var
-  NonClientMetrics: TNonClientMetrics;
-begin
-  NonClientMetrics.cbSize := sizeof(NonClientMetrics);
-  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @NonClientMetrics, 0) then
-    Font.Handle := CreateFontIndirect(NonClientMetrics.lfMessageFont);
-  MakeFontsParent(Self);
-  Canvas.Font := Font;
-  DoubleBuffered := True;
-  MakeDoubleBufferedParent(Self);
-end;
-
-procedure TEmptyHistoryFrm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
-begin
-  if (Shift = [ssCtrl]) and (Key = Word('C')) then
-  begin
-    CopyToClip(GetFormText,CP_ACP);
-    Key := 0;
-  end;
-end;
-
-procedure TEmptyHistoryFrm.SetContact(const Value: TMCONTACT);
-begin
-  FContact := Value;
-  Image.Picture.Icon.Handle := LoadIcon(0, IDI_QUESTION);
-  Text.Caption :=
-    TranslateW('Do you really want to delete ALL items for this contact?')+#10#13+
-    #10#13+
-    TranslateW('Note: It can take several minutes for large histories');
-  btYes.Default := true;
-end;
-
-procedure TEmptyHistoryFrm.EmptyHistory(hContact: TMCONTACT);
-var
-  hDBEvent,prevhDbEvent: THandle;
-begin
-  BookmarkServer.Contacts[hContact].Clear;
-  hDBEvent := db_event_last(hContact);
-  SetSafetyMode(False);
-  while hDBEvent <> 0 do
-  begin
-    prevhDbEvent := db_event_prev(hContact,hDBEvent);
-    if db_event_delete(hDBEvent) = 0 then
-      hDBEvent := prevhDbEvent
-    else
-      hDBEvent := 0;
-  end;
-  SetSafetyMode(True);
-end;
-
-procedure TEmptyHistoryFrm.btYesClick(Sender: TObject);
-begin
-  if Assigned(Owner) and (Owner is THistoryFrm) then
-    THistoryFrm(Owner).EmptyHistory
-  else
-    EmptyHistory(FContact);
-end;
-
-end.
diff --git a/plugins/HistoryPlusPlus/historypp.dpr b/plugins/HistoryPlusPlus/historypp.dpr
index e0c8c3add6..a7b5d36f14 100644
--- a/plugins/HistoryPlusPlus/historypp.dpr
+++ b/plugins/HistoryPlusPlus/historypp.dpr
@@ -45,7 +45,6 @@ uses
   VertSB in 'VertSB.pas',
   HistoryForm in 'HistoryForm.pas' {HistoryFrm},
   EventDetailForm in 'EventDetailForm.pas' {EventDetailsFrm},
-  EmptyHistoryForm in 'EmptyHistoryForm.pas' {EmptyHistoryFrm},
   GlobalSearch in 'GlobalSearch.pas' {fmGlobalSearch},
   hpp_searchthread in 'hpp_searchthread.pas',
   hpp_bookmarks in 'hpp_bookmarks.pas',
diff --git a/plugins/HistoryPlusPlus/historypp.dproj b/plugins/HistoryPlusPlus/historypp.dproj
index 4387bf178e..5e74de2dbc 100644
--- a/plugins/HistoryPlusPlus/historypp.dproj
+++ b/plugins/HistoryPlusPlus/historypp.dproj
@@ -167,9 +167,6 @@
 			<DCCReference Include="EventDetailForm.pas">
 				<Form>EventDetailsFrm</Form>
 			</DCCReference>
-			<DCCReference Include="EmptyHistoryForm.pas">
-				<Form>EmptyHistoryFrm</Form>
-			</DCCReference>
 			<DCCReference Include="GlobalSearch.pas">
 				<Form>fmGlobalSearch</Form>
 			</DCCReference>
diff --git a/plugins/HistoryPlusPlus/hpp_services.pas b/plugins/HistoryPlusPlus/hpp_services.pas
index ba4be43229..d6ad65f367 100644
--- a/plugins/HistoryPlusPlus/hpp_services.pas
+++ b/plugins/HistoryPlusPlus/hpp_services.pas
@@ -70,9 +70,8 @@ function AllHistoryRichEditProcess(wParam: WPARAM; lParam: LPARAM): Int; cdecl;
 implementation
 
 uses
-  SysUtils, GlobalSearch, EmptyHistoryForm,
-  hpp_global, {hpp_database,} hpp_itemprocess, hpp_forms,
-  hpp_options{, hpp_mescatcher, hpp_bookmarks};
+  SysUtils, GlobalSearch,
+  hpp_global, hpp_itemprocess, hpp_forms, hpp_options;
 
 // our own processing of RichEdit for all history windows
 function AllHistoryRichEditProcess(wParam { hRichEdit } : WPARAM; lParam { PItemRenderDetails } : LPARAM): Int; cdecl;
-- 
cgit v1.2.3