Changeset 303 for branches/highdpi/Settings.pas

Timestamp:

Mar 9, 2021, 9:19:49 AM (4 years ago)

Author:

chronos

Message:

• Modified: Synced code with current trunk version.

File:

• branches/highdpi/Settings.pas (moved) (moved from branches/highdpi/Locale.pas ) (6 diffs)

branches/highdpi/Settings.pas

@@ -1 @@
-unit Locale;
+unit Settings;
 
 {$mode delphi}
@@ -24 +24 @@
   end;
 
-  { TLocaleDlg }
+  { TSettingsDlg }
 
-  TLocaleDlg = class(TDrawDlg)
+  TSettingsDlg = class(TDrawDlg)
     ButtonFullscreen: TButtonC;
     List: TDpiListBox;
@@ -42 +42 @@
   public
     Languages: TLanguages;
+    procedure LoadData;
+    procedure SaveData;
   end;
 
 var
-  LocaleDlg: TLocaleDlg;
+  SettingsDlg: TSettingsDlg;
 
 implementation
@@ -82 +84 @@
 end;
 
-{ TLocaleDlg }
+{ TSettingsDlg }
 
-procedure TLocaleDlg.FormCreate(Sender: TObject);
+procedure TSettingsDlg.FormCreate(Sender: TObject);
 begin
   Canvas.Font.Assign(UniFont[ftNormal]);
@@ -105 +107 @@
 
   ButtonFullscreen.Graphic := GrExt[HGrSystem].Data;
-  if FullScreen then ButtonFullscreen.ButtonIndex := 3
-    else ButtonFullscreen.ButtonIndex := 2;
 end;
 
-procedure TLocaleDlg.CancelBtnClick(Sender: TObject);
+procedure TSettingsDlg.CancelBtnClick(Sender: TObject);
 begin
   ModalResult := mrCancel;
 end;
 
-procedure TLocaleDlg.ButtonFullscreenClick(Sender: TObject);
+procedure TSettingsDlg.ButtonFullscreenClick(Sender: TObject);
 begin
-  FullScreen := not FullScreen;
   ButtonFullscreen.ButtonIndex := ButtonFullscreen.ButtonIndex xor 1;
 end;
 
-procedure TLocaleDlg.FormDestroy(Sender: TObject);
+procedure TSettingsDlg.FormDestroy(Sender: TObject);
 begin
   FreeAndNil(Languages);
 end;
 
-procedure TLocaleDlg.FormPaint(Sender: TObject);
+procedure TSettingsDlg.FormPaint(Sender: TObject);
 var
   S: string;
@@ -148 +147 @@
 end;
 
-procedure TLocaleDlg.FormShow(Sender: TObject);
+procedure TSettingsDlg.FormShow(Sender: TObject);
 begin
   Languages.LoadToStrings(List.Items);
+  List.Font.Color := MainTexture.clMark;
+  LoadData;
+end;
+
+procedure TSettingsDlg.OKBtnClick(Sender: TObject);
+begin
+  SaveData;
+  ModalResult := mrOk;
+end;
+
+procedure TSettingsDlg.LoadData;
+begin
   List.ItemIndex := Languages.Search(LocaleCode);
   if (List.ItemIndex = -1) and (Languages.Count > 0) then
     List.ItemIndex := 0;
-  List.Font.Color := MainTexture.clMark;
+  if FullScreen then ButtonFullscreen.ButtonIndex := 3
+    else ButtonFullscreen.ButtonIndex := 2;
 end;
 
-procedure TLocaleDlg.OKBtnClick(Sender: TObject);
+procedure TSettingsDlg.SaveData;
 begin
   LocaleCode := Languages[List.ItemIndex].ShortName;
-  ModalResult := mrOk;
+  FullScreen := (ButtonFullscreen.ButtonIndex and 1) = 1;
 end;