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

Timestamp:

Jun 23, 2019, 11:57:39 PM (5 years ago)

Author:

chronos

Message:

• Modified: More scaling in CevoComponents.

File:

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

branches/highdpi/Packages/CevoComponents/BaseWin.pas

@@ -165 +165 @@
 procedure TBufferedDrawDlg.VPaint;
 begin
-  BitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
+  DpiBitBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
     Offscreen.Canvas.Handle, 0, 0, SRCCOPY);
 end;
@@ -278 +278 @@
   else
     BottomFrame := NarrowFrame;
-  r0 := CreateRectRgn(SideFrame, TitleHeight, ClientWidth - SideFrame,
+  r0 := DpiCreateRectRgn(SideFrame, TitleHeight, ClientWidth - SideFrame,
     ClientHeight - BottomFrame);
   for i := 0 to ControlCount - 1 do
@@ -284 +284 @@
     begin
       with Controls[i].BoundsRect do
-        r1 := CreateRectRgn(Left, Top, Right, Bottom);
+        r1 := DpiCreateRectRgn(Left, Top, Right, Bottom);
       CombineRgn(r0, r0, r1, RGN_DIFF);
       DeleteObject(r1);
@@ -454 +454 @@
     end;
 
-  BitBlt(Canvas.Handle, SideFrame, TitleHeight, ClientWidth - 2 * SideFrame,
+  DpiBitBlt(Canvas.Handle, SideFrame, TitleHeight, ClientWidth - 2 * SideFrame,
     InnerBottom - TitleHeight, Offscreen.Canvas.Handle, 0, 0, SRCCOPY);
 end;
@@ -464 +464 @@
   if FullCaption then
     exit;
-  r0 := CreateRectRgn(0, 0, ClientWidth, ClientHeight);
-  r1 := CreateRectRgn(0, 0, CaptionLeft, TitleHeight - NarrowFrame);
+  r0 := DpiCreateRectRgn(0, 0, ClientWidth, ClientHeight);
+  r1 := DpiCreateRectRgn(0, 0, CaptionLeft, TitleHeight - NarrowFrame);
   CombineRgn(r0, r0, r1, RGN_DIFF);
   // DeleteObject(r1);
-  r1 := CreateRectRgn(ClientWidth - CaptionLeft, 0, ClientWidth,
+  r1 := DpiCreateRectRgn(ClientWidth - CaptionLeft, 0, ClientWidth,
     TitleHeight - NarrowFrame);
   CombineRgn(r0, r0, r1, RGN_DIFF);
@@ -474 +474 @@
   if WideBottom then
   begin
-    r1 := CreateRectRgn(0, ClientHeight - (WideFrame - NarrowFrame),
+    r1 := DpiCreateRectRgn(0, ClientHeight - (WideFrame - NarrowFrame),
       CaptionLeft, ClientHeight);
     CombineRgn(r0, r0, r1, RGN_DIFF);
     // DeleteObject(r1);
-    r1 := CreateRectRgn(ClientWidth - CaptionLeft,
+    r1 := DpiCreateRectRgn(ClientWidth - CaptionLeft,
       ClientHeight - (WideFrame - NarrowFrame), ClientWidth, ClientHeight);
     CombineRgn(r0, r0, r1, RGN_DIFF);