this module isn't needed anymore

5 files changed, 2 insertions, 310 deletions

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;