Changeset 435 for ConfirmationDialog

Timestamp:

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

Author:

chronos

Message:

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

Location:

ConfirmationDialog

Files:

• Languages (modified) (1 prop)
• Languages/UConfirmationForm.cs.po (added)
• Languages/UConfirmationForm.po (modified) (3 diffs)
• UConfirmationForm.lfm (modified) (1 diff)
• UConfirmationForm.pas (modified) (3 diffs)

ConfirmationDialog/Languages/UConfirmationForm.po

@@ -1 +1 @@
 msgid ""
 msgstr "Content-Type: text/plain; charset=UTF-8"
+
+#: uconfirmationform.sabort
+msgid "Abort"
+msgstr ""
 
 #: uconfirmationform.scancel
@@ -6 +10 @@
 msgstr ""
 
-#: uconfirmationform.sconfirmmessagenotfound
-msgid "Confirm message id %s not found"
+#: uconfirmationform.sclose
+msgid "Close"
+msgstr ""
+
+#: uconfirmationform.sdosameactionnexttime
+msgid "Do same action next time"
+msgstr ""
+
+#: uconfirmationform.signore
+msgid "Ignore"
 msgstr ""
 
@@ -18 +30 @@
 msgstr ""
 
+#: uconfirmationform.sretry
+msgid "Retry"
+msgstr ""
+
 #: uconfirmationform.syes
 msgid "Yes"

ConfirmationDialog/UConfirmationForm.lfm

@@ -9 +9 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.1'
+  LCLVersion = '1.0.1.3'
   object LabelDescription: TLabel
     Left = 56

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;