From 473874d83a356ea7ec78588c96fb47ff0115e5f0 Mon Sep 17 00:00:00 2001 From: George Hazan 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.pas | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'plugins/HistoryPlusPlus/EmptyHistoryForm.pas') 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