Changeset 546

Timestamp:

Apr 20, 2024, 6:20:48 PM (7 months ago)

Author:

chronos

Message:

• Modified: Optimized scaling functions.

Location:

trunk/Packages/DpiControls

Files:

• Dpi.Common.pas (modified) (3 diffs)
• Dpi.Graphics.pas (modified) (2 diffs)

trunk/Packages/DpiControls/Dpi.Common.pas

@@ -248 +248 @@
 function ScaleToNative(Value: Integer): Integer;
 begin
-  Result := Ceil(Value * ScreenInfo.Dpi / 96);
+  Result := Ceil(Value * ScreenInfo.ToNative);
 end;
 
@@ -258 +258 @@
 function ScaleFromNative(Value: Integer): Integer;
 begin
-  Result := Floor(Value * 96 / ScreenInfo.Dpi);
+  Result := Floor(Value * ScreenInfo.FromNative);
 end;
 
@@ -303 +303 @@
 function ScaleFloatToNative(Value: Double): Double;
 begin
-  Result := Value * ScreenInfo.Dpi / 96;
+  Result := Value * ScreenInfo.ToNative;
 end;
 
 function ScaleFloatFromNative(Value: Double): Double;
 begin
-  Result := Value * 96 / ScreenInfo.Dpi;
+  Result := Value * ScreenInfo.FromNative;
 end;
 

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -340 +340 @@
   end;
 
+  { TScreenInfo }
+
   TScreenInfo = record
-    Dpi: Integer;
+  private
+    FDpi: Integer;
+    procedure SetDpi(AValue: Integer);
+  public
+    ToNative: Double;
+    FromNative: Double;
+    property Dpi: Integer read FDpi write SetDpi;
   end;
 
@@ -1325 +1333 @@
 end;
 
+{ TScreenInfo }
+
+procedure TScreenInfo.SetDpi(AValue: Integer);
+begin
+  if FDpi = AValue then Exit;
+  FDpi := AValue;
+  ToNative := ScreenInfo.Dpi / 96;
+  FromNative := 96 / ScreenInfo.Dpi;
+end;
+
 { TPortableNetworkGraphic }