diff options
| -rw-r--r-- | plugins/HistoryPlusPlus/EmptyHistoryForm.dfm | 11 | ||||
| -rw-r--r-- | plugins/HistoryPlusPlus/EmptyHistoryForm.pas | 8 |
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);
|