fix for the history eraser form in h++

git-svn-id: http://svn.miranda-ng.org/main/trunk@7000 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

2 files changed, 6 insertions, 13 deletions

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);