Changeset 473 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Dec 4, 2023, 12:13:15 PM (5 months ago)

Author:

chronos

Message:

• Added: Custom DPI configuration in Settings dialog.
• Fixed: Better High DPI support.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (8 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -104 +104 @@
 procedure UnshareBitmap(Bitmap: TBitmap);
 procedure Gtk2Fix;
+procedure LoadConfig(Key: string);
+procedure SaveConfig(Key: string);
 
 const
@@ -193 +195 @@
   UniFont: array [TFontType] of TFont;
   Gamma: Integer; // global gamma correction (cent)
+  CustomDpiEnabled: Boolean;
+  CustomDpi: Integer;
 
 procedure LoadAssets;
@@ -204 +208 @@
 uses
   {$IFDEF DPI}Dpi.PixelPointer,{$ELSE}PixelPointer,{$ENDIF}
-  Directories, Sound;
+  Directories, Sound, Registry;
 
 var
@@ -1550 +1554 @@
 procedure PaintLogo(Canvas: TCanvas; X, Y, LightColor, ShadeColor: Integer);
 begin
+  if not Assigned(LogoBuffer) then Exit;
   UnshareBitmap(LogoBuffer);
   BitBltCanvas(LogoBuffer.Canvas, 0, 0, Logo.Width, Logo.Height, Canvas, X, Y);
@@ -1732 +1737 @@
 end;
 
+procedure LoadConfig(Key: string);
+var
+  Reg: TRegistry;
+begin
+  Reg := TRegistry.Create;
+  with Reg do try
+    OpenKey(Key, True);
+    if ValueExists('Gamma') then Gamma := ReadInteger('Gamma')
+      else Gamma := 100;
+    if Gamma <> 100 then InitGammaLookupTable;
+    if ValueExists('CustomDpiEnabled') then CustomDpiEnabled := Reg.ReadBool('CustomDpiEnabled')
+       else CustomDpiEnabled := False;
+    if ValueExists('CustomDpi') then CustomDpi := Reg.ReadInteger('CustomDpi')
+       else CustomDpi := 96;
+    {$IFDEF DPI}
+    if CustomDpiEnabled then Screen.Dpi := CustomDpi
+      else Screen.Dpi := Screen.GetSystemDpi;
+    {$ENDIF}
+  finally
+    Reg.Free;
+  end;
+end;
+
+procedure SaveConfig(Key: string);
+var
+  Reg: TRegistry;
+begin
+  Reg := TRegistry.Create;
+  with Reg do try
+    OpenKey(Key, True);
+    WriteInteger('Gamma', Gamma);
+    WriteBool('CustomDpiEnabled', CustomDpiEnabled);
+    WriteInteger('CustomDpi', CustomDpi);
+  finally
+    Free;
+  end;
+end;
+
 procedure LoadAssets;
 begin
@@ -1752 +1795 @@
   end;
 
+  LogoBuffer := TBitmap.Create;
+  LogoBuffer.PixelFormat := TPixelFormat.pf24bit;
+  LogoBuffer.SetSize(BigBook.Width, BigBook.Height);
+
   LoadGraphicFile(Colors, GetGraphicsDir + DirectorySeparator + 'Colors.png');
   LoadGraphicFile(Paper, GetGraphicsDir + DirectorySeparator + 'Paper.jpg');
@@ -1801 +1848 @@
 
   LoadAssets;
-
-  LogoBuffer := TBitmap.Create;
-  LogoBuffer.PixelFormat := TPixelFormat.pf24bit;
-  LogoBuffer.SetSize(BigBook.Width, BigBook.Height);
 end;
 
@@ -1814 +1857 @@
   FreeAndNil(Phrases);
   FreeAndNil(Phrases2);
-  FreeAndNil(LogoBuffer);
+  if Assigned(LogoBuffer) then FreeAndNil(LogoBuffer);
   FreeAndNil(BigImp);
   FreeAndNil(Paper);