fix for the history eraser form in h++

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

1 files changed, 6 insertions, 2 deletions

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