Changeset 55 for trunk/Forms/UFormSettings.pas
- Timestamp:
- Aug 18, 2014, 9:34:15 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormSettings.pas
r33 r55 15 15 ButtonOk: TButton; 16 16 ButtonCancel: TButton; 17 CheckBoxDevelMode: TCheckBox; 17 18 ComboBoxLanguage: TComboBox; 18 19 Label1: TLabel; … … 41 42 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language); 42 43 if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0; 44 CheckBoxDevelMode.Checked := Core.DevelMode; 43 45 end; 44 46 … … 47 49 if ComboBoxLanguage.ItemIndex <> -1 then 48 50 Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]); 51 Core.DevelMode := CheckBoxDevelMode.Checked; 49 52 end; 50 53
Note:
See TracChangeset
for help on using the changeset viewer.