Changeset 12 for trunk/Forms/USettingForm.pas

Timestamp:

Jun 9, 2011, 1:04:45 PM (13 years ago)

Author:

george

Message:

• Fixed: Display edit controls according property type.
• Added: Interface language translation.

File:

• trunk/Forms/USettingForm.pas (modified) (3 diffs)

trunk/Forms/USettingForm.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  CoolTranslator, ULanguages;
 
 type
@@ -15 +16 @@
     ButtonSave: TButton;
     ButtonCancel: TButton;
+    ComboBoxLanguage: TComboBox;
     Edit1: TEdit;
     Label1: TLabel;
+    Label2: TLabel;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormShow(Sender: TObject);
   private
-    { private declarations }
+    procedure Save;
+    procedure Load;
   public
     { public declarations }
@@ -30 +36 @@
 {$R *.lfm}
 
+uses
+  UCore, UMainForm;
+
+{ TSettingForm }
+
+procedure TSettingForm.FormShow(Sender: TObject);
+begin
+  MainForm.PersistentForm.Load(Self);
+
+  Load;
+end;
+
+procedure TSettingForm.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  if ModalResult = mrOK then Save;
+  MainForm.PersistentForm.Save(Self);
+end;
+
+procedure TSettingForm.Save;
+begin
+  with Core.CoolTranslator1 do
+    Language := TLanguage(Languages[ComboBoxLanguage.ItemIndex]);
+end;
+
+procedure TSettingForm.Load;
+begin
+  with Core.CoolTranslator1 do begin
+    LanguageListToStrings(ComboBoxLanguage.Items);
+    if Assigned(Language) then begin
+      ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Language);
+      // Select automatic if no other match
+      if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
+    end else ComboBoxLanguage.ItemIndex := 0;
+  end;
+end;
+
 end.