Changeset 465 for branches/highdpi/Back.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (12 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

• branches/highdpi/Back.pas (modified) (2 diffs)

branches/highdpi/Back.pas

@@ -51 +51 @@
 begin
   if Assigned(Img) then
-    DpiBitCanvas(Canvas, DpiScreen.Width - Img.Width - (DpiScreen.Width - 800) *
+    DpiBitBltCanvas(Canvas, DpiScreen.Width - Img.Width - (DpiScreen.Width - 800) *
       3 div 8, (DpiScreen.Height - 600) div 3, Img.Width, Img.Height,
       Img.Canvas, 0, 0);
@@ -70 +70 @@
       if FileExists(FileName) then begin
         Img := TDpiBitmap.Create;
-        LoadGraphicFile(img, FileName);
+        LoadGraphicFile(Img, FileName);
+        Repaint;
       end;
     end;