Changeset 178 for branches/highdpi/Packages/CevoComponents/BaseWin.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/Packages/CevoComponents/BaseWin.pas (modified) (4 diffs)

branches/highdpi/Packages/CevoComponents/BaseWin.pas

@@ -5 +5 @@
 uses
   ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
-  DrawDlg;
+  DrawDlg, UDpiControls;
 
 type
@@ -32 +32 @@
   public
     UsedOffscreenWidth, UsedOffscreenHeight: integer;
-    Offscreen: TBitmap;
-    OffscreenUser: TForm;
+    Offscreen: TDpiBitmap;
+    OffscreenUser: TDpiForm;
     property WindowMode: integer read FWindowMode;
   end;
@@ -72 +72 @@
   SideFrame = 9;
 
-procedure CreateOffscreen(var Offscreen: TBitmap);
+procedure CreateOffscreen(var Offscreen: TDpiBitmap);
 procedure Register;
 
@@ -494 +494 @@
 end;
 
-procedure CreateOffscreen(var Offscreen: TBitmap);
+procedure CreateOffscreen(var Offscreen: TDpiBitmap);
 begin
   if Offscreen <> nil then
     exit;
-  Offscreen := TBitmap.Create;
+  Offscreen := TDpiBitmap.Create;
   Offscreen.PixelFormat := pf24bit;
   if Screen.Height - yUnused < 480 then