Changeset 178 for branches/highdpi/Back.pas

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

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

branches/highdpi/Back.pas

@@ -5 +5 @@
 
 uses
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms, Controls;
+  LCLIntf, LCLType, SysUtils, Classes, Graphics, Forms, Controls, UDpiControls;
 
 type
@@ -18 +18 @@
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
-    Img: TBitmap;
+    Img: TDpiBitmap;
   end;
 
@@ -44 +44 @@
       FileName := HomeDir + 'Graphics' + DirectorySeparator + 'Background.png';
       if FileExists(FileName) then begin
-        Img := TBitmap.Create;
+        Img := TDpiBitmap.Create;
         LoadGraphicFile(img, FileName);
       end;