Changeset 524

Timestamp:

Jan 8, 2024, 11:31:20 PM (10 months ago)

Author:

chronos

Message:

• Fixed: Reset custom DPI settings in Settings dialog by clicking on Defaults button.

File:

• trunk/Settings.pas (modified) (6 diffs)

trunk/Settings.pas

@@ -52 +52 @@
     procedure UpdateShortCutItem;
     function GetLocalCustomDpiEnabled: Boolean;
+    procedure UpdateInterface;
   public
     procedure LoadData;
@@ -113 +114 @@
 procedure TSettingsDlg.ButtonResetClick(Sender: TObject);
 begin
+  // TODO: Better to have default values on single place
   ListLanguages.ItemIndex := 0;
   ButtonFullscreen.ButtonIndex := 3;
+  ButtonCustomDpi.ButtonIndex := 2;
+  LocalDpi := 100;
   LocalGamma := 100;
   ListKeyBindings.ItemIndex := -1;
@@ -120 +124 @@
   LocalKeyBindings.ResetToDefault;
   LocalKeyBindings.LoadToStrings(ListKeyBindings.Items);
+  UpdateInterface;
   Repaint;
 end;
@@ -181 +186 @@
 begin
   ButtonCustomDpi.ButtonIndex := ButtonCustomDpi.ButtonIndex xor 1;
-  ButtonDpiUp.Enabled := GetLocalCustomDpiEnabled;
-  ButtonDpiDown.Enabled := GetLocalCustomDpiEnabled;
+  UpdateInterface;
 end;
 
@@ -258 +262 @@
   ButtonDpiUp.Visible := False;
   {$ENDIF}
+  UpdateInterface;
 end;
 
@@ -321 +326 @@
 end;
 
+procedure TSettingsDlg.UpdateInterface;
+begin
+  ButtonDpiUp.Enabled := GetLocalCustomDpiEnabled;
+  ButtonDpiDown.Enabled := GetLocalCustomDpiEnabled;
+end;
+
 procedure TSettingsDlg.LoadData;
 begin