Changeset 477 for trunk/Packages/DpiControls/Dpi.Graphics.pas

Timestamp:

Dec 4, 2023, 11:33:25 PM (6 months ago)

Author:

chronos

Message:

• Fixed: Scaling on Windows.

File:

• trunk/Packages/DpiControls/Dpi.Graphics.pas (modified) (1 diff)

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -733 +733 @@
   try
     Bitmap.LoadFromFile(FileName);
-    Width := Bitmap.Width;
-    Height := Bitmap.Height;
+    if Self is TRasterImage then begin
+      TRasterImage(Self).SetSize(Bitmap.Width, Bitmap.Height);
+    end else begin
+      Width := Bitmap.Width;
+      Height := Bitmap.Height;
+    end;
     if Self is TCustomBitmap then begin
       StretchDrawBitmap(Graphics.TRasterImage(Bitmap),