Changeset 210 for branches/highdpi/Packages/CevoComponents/BaseWin.pas

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

• branches/highdpi/Packages/CevoComponents/BaseWin.pas (modified) (5 diffs)

branches/highdpi/Packages/CevoComponents/BaseWin.pas

@@ -4 +4 @@
 
 uses
-  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
-  DrawDlg, UDpiControls;
+  UDpiControls, ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
+  DrawDlg;
 
 type
@@ -100 +100 @@
   TitleHeight := WideFrame;
   ModalFrameIndent := 45;
-  UserLeft := (Screen.Width - Width) div 2;
-  UserTop := (Screen.Height - Height) div 2;
+  UserLeft := (DpiScreen.Width - Width) div 2;
+  UserTop := (DpiScreen.Height - Height) div 2;
 end;
 
@@ -165 +165 @@
 procedure TBufferedDrawDlg.VPaint;
 begin
-  DpiBitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
-    Offscreen.Canvas.Handle, 0, 0, SRCCOPY);
+  DpiBitCanvas(Canvas, 0, 0, ClientWidth, ClientHeight, Offscreen.Canvas, 0, 0);
 end;
 
@@ -238 +237 @@
   SaveOnShow, SaveOnPaint: TNotifyEvent;
 begin
-  Top := Screen.Height;
+  Top := DpiScreen.Height;
   SaveOnShow := OnShow;
   OnShow := nil;
@@ -454 +453 @@
     end;
 
-  DpiBitBlt(Canvas.Handle, SideFrame, TitleHeight, ClientWidth - 2 * SideFrame,
-    InnerBottom - TitleHeight, Offscreen.Canvas.Handle, 0, 0, SRCCOPY);
+  DpiBitCanvas(Canvas, SideFrame, TitleHeight, ClientWidth - 2 * SideFrame,
+    InnerBottom - TitleHeight, Offscreen.Canvas, 0, 0);
 end;