Changeset 435
- Timestamp:
- Nov 19, 2012, 2:31:58 PM (12 years ago)
- Location:
- ConfirmationDialog
- Files:
-
- 1 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
ConfirmationDialog/Languages
-
Property svn:ignore
set to
*.mo
-
Property svn:ignore
set to
-
ConfirmationDialog/Languages/UConfirmationForm.po
r403 r435 1 1 msgid "" 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 4 #: uconfirmationform.sabort 5 msgid "Abort" 6 msgstr "" 3 7 4 8 #: uconfirmationform.scancel … … 6 10 msgstr "" 7 11 8 #: uconfirmationform.sconfirmmessagenotfound 9 msgid "Confirm message id %s not found" 12 #: uconfirmationform.sclose 13 msgid "Close" 14 msgstr "" 15 16 #: uconfirmationform.sdosameactionnexttime 17 msgid "Do same action next time" 18 msgstr "" 19 20 #: uconfirmationform.signore 21 msgid "Ignore" 10 22 msgstr "" 11 23 … … 18 30 msgstr "" 19 31 32 #: uconfirmationform.sretry 33 msgid "Retry" 34 msgstr "" 35 20 36 #: uconfirmationform.syes 21 37 msgid "Yes" -
ConfirmationDialog/UConfirmationForm.lfm
r419 r435 9 9 OnCreate = FormCreate 10 10 OnDestroy = FormDestroy 11 OnShow = FormShow 11 12 Position = poMainFormCenter 12 LCLVersion = '1. 1'13 LCLVersion = '1.0.1.3' 13 14 object LabelDescription: TLabel 14 15 Left = 56 -
ConfirmationDialog/UConfirmationForm.pas
r419 r435 48 48 procedure FormCreate(Sender: TObject); 49 49 procedure FormDestroy(Sender: TObject); 50 procedure FormShow(Sender: TObject); 50 51 private 51 52 ModalResult: Integer; … … 72 73 SIgnore = 'Ignore'; 73 74 SClose = 'Close'; 74 SConfirmMessageNotFound = 'Confirm message id %s not found'; 75 SDoSameActionNextTime = 'Do same action next time'; 76 // SConfirmMessageNotFound = 'Confirm message id %s not found'; 75 77 76 78 … … 83 85 procedure TConfirmationForm.FormDestroy(Sender: TObject); 84 86 begin 85 ConfirmMessages.Free; 87 FreeAndNil(ConfirmMessages); 88 end; 89 90 procedure TConfirmationForm.FormShow(Sender: TObject); 91 begin 92 BitBtnOk.Caption := SOk; 93 BitBtnCancel.Caption := SCancel; 94 BitBtnNo.Caption := SNo; 95 BitBtnYes.Caption := SYes; 96 CheckBoxAutoEnabled.Caption := SDoSameActionNextTime; 86 97 end; 87 98
Note:
See TracChangeset
for help on using the changeset viewer.