Changeset 435 for ConfirmationDialog/UConfirmationForm.pas

Timestamp:

Nov 19, 2012, 2:31:58 PM (12 years ago)

Author:

chronos

Message:

• Fixed: ConfirmationDialog some text was not translated on dialog display.

File:

• ConfirmationDialog/UConfirmationForm.pas (modified) (3 diffs)

ConfirmationDialog/UConfirmationForm.pas

@@ -48 +48 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     ModalResult: Integer;
@@ -72 +73 @@
   SIgnore = 'Ignore';
   SClose = 'Close';
-  SConfirmMessageNotFound = 'Confirm message id %s not found';
+  SDoSameActionNextTime = 'Do same action next time';
+//  SConfirmMessageNotFound = 'Confirm message id %s not found';
 
 
@@ -83 +85 @@
 procedure TConfirmationForm.FormDestroy(Sender: TObject);
 begin
-  ConfirmMessages.Free;
+  FreeAndNil(ConfirmMessages);
+end;
+
+procedure TConfirmationForm.FormShow(Sender: TObject);
+begin
+  BitBtnOk.Caption := SOk;
+  BitBtnCancel.Caption := SCancel;
+  BitBtnNo.Caption := SNo;
+  BitBtnYes.Caption := SYes;
+  CheckBoxAutoEnabled.Caption := SDoSameActionNextTime;
 end;