Changeset 15 for trunk/UOptionsForm.pas

Timestamp:

Feb 11, 2012, 6:45:36 PM (13 years ago)

Author:

chronos

Message:

• Added: Support for multiple interface languages.
• Added: Used packages as zip archives.

File:

• trunk/UOptionsForm.pas (modified) (2 diffs)

trunk/UOptionsForm.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ComboBoxLanguage: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     SpinEditCellSize: TSpinEdit;
     SpinEditMemorySize: TSpinEdit;
+    procedure ButtonOkClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -34 +38 @@
 {$R *.lfm}
 
+uses
+  UMainForm, ULanguages;
+
 { TOptionsForm }
+
+procedure TOptionsForm.FormShow(Sender: TObject);
+begin
+  MainForm.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := MainForm.CoolTranslator1.Languages.IndexOf(MainForm.CoolTranslator1.Language);
+  if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
+end;
+
+procedure TOptionsForm.ButtonOkClick(Sender: TObject);
+begin
+  if ComboBoxLanguage.ItemIndex <> -1 then
+    MainForm.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+end;
 
 procedure TOptionsForm.LoadFromInterpretter(Interpretter: TBrainFuckInterpretter