Changeset 491

Timestamp:

Dec 11, 2023, 1:07:49 PM (11 months ago)

Author:

chronos

Message:

• Modified: Disable fractional scaling for release mode.

File:

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

trunk/Settings.pas

@@ -60 +60 @@
   SettingsDlg: TSettingsDlg;
 
+const
+  DpiMin = 100;
+  DpiMax = 500;
+  {$IFDEF DEBUG}
+  DpiStep = 25;
+  {$ELSE}
+  DpiStep = 100;
+  {$ENDIF}
+
 
 implementation
@@ -168 +177 @@
 procedure TSettingsDlg.ButtonDpiDownClick(Sender: TObject);
 begin
-  if LocalDpi >= 105 then
-  begin
-    Dec(LocalDpi, 5);
-    Invalidate;
-  end;
+  Dec(LocalDpi, DpiStep);
+  if LocalDpi < DpiMin then LocalDpi := DpiMin;
+  Invalidate;
 end;
 
@@ -182 +189 @@
 procedure TSettingsDlg.ButtonDpiUpClick(Sender: TObject);
 begin
-  if LocalDpi <= 495 then begin
-    Inc(LocalDpi, 5);
-    Invalidate;
-  end;
+  Inc(LocalDpi, DpiStep);
+  if LocalDpi > DpiMax then LocalDpi := DpiMax;
+  Invalidate;
 end;