Changeset 308 for branches/highdpi/Packages/DpiControls/UDpiControls.pas

Timestamp:

Mar 9, 2021, 9:13:07 PM (3 years ago)

Author:

chronos

Message:

• Modified: Better scaled bitmaps drawing.

File:

• branches/highdpi/Packages/DpiControls/UDpiControls.pas (modified) (3 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -9 +9 @@
   Controls, StdCtrls, fgl, Graphics, ComCtrls, ExtCtrls, LCLType, GraphType,
   Types, CustApp, LMessages, LCLIntf, Menus, Math, UPixelPointer2;
+
+const
+  FixedDpi = -1;
 
 type
@@ -1071 +1074 @@
 function ScaleToNative(Value: Integer): Integer;
 begin
-  Result := Round(Value * DpiScreen.Dpi / 96);
+  Result := Trunc(Value * DpiScreen.Dpi / 96);
 end;
 
@@ -3068 +3071 @@
 procedure TDpiScreen.UpdateScreen;
 begin
-  Dpi := Screen.PixelsPerInch;
+  if FixedDpi = -1 then Dpi := Screen.PixelsPerInch
+    else Dpi := FixedDpi;
 end;