From 473874d83a356ea7ec78588c96fb47ff0115e5f0 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Thu, 28 Nov 2013 11:25:09 +0000
Subject: fix for the history eraser form in h++

git-svn-id: http://svn.miranda-ng.org/main/trunk@7000 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/HistoryPlusPlus/EmptyHistoryForm.dfm | 11 -----------
 plugins/HistoryPlusPlus/EmptyHistoryForm.pas |  8 ++++++--
 2 files changed, 6 insertions(+), 13 deletions(-)

(limited to 'plugins/HistoryPlusPlus')

diff --git a/plugins/HistoryPlusPlus/EmptyHistoryForm.dfm b/plugins/HistoryPlusPlus/EmptyHistoryForm.dfm
index bac2a324d4..8bc9997da0 100644
--- a/plugins/HistoryPlusPlus/EmptyHistoryForm.dfm
+++ b/plugins/HistoryPlusPlus/EmptyHistoryForm.dfm
@@ -70,17 +70,6 @@ object EmptyHistoryFrm: TEmptyHistoryFrm
       ModalResult = 7
       TabOrder = 1
     end
-    object btCancel: TButton
-      Left = 168
-      Top = 0
-      Width = 75
-      Height = 25
-      Cancel = True
-      Caption = 'Cancel'
-      Default = True
-      ModalResult = 2
-      TabOrder = 2
-    end
   end
   object paContacts: TPanel
     Left = 0
diff --git a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
index 39dc70dcc6..39c3ce7ee8 100644
--- a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
+++ b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
@@ -59,7 +59,6 @@ type
     Image: TImage;
     Text: TLabel;
     cbInclude: TCheckBox;
-    btCancel: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
@@ -133,7 +132,6 @@ begin
   cbInclude.Caption := TranslateUnicodeString(cbInclude.Caption);
   btYes.Caption     := TranslateUnicodeString(btYes.Caption);
   btNo.Caption      := TranslateUnicodeString(btNo.Caption);
-  btCancel.Caption  := TranslateUnicodeString(btCancel.Caption);
 end;
 
 procedure TEmptyHistoryFrm.PrepareForm;
@@ -242,6 +240,12 @@ begin
     end;
   end;
   paContacts.Visible := (Length(FContacts) > 0);
+  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: THandle);
-- 
cgit v1.2.3