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

Timestamp:

May 7, 2020, 7:05:57 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved code in HighDPI branch.

File:

• branches/highdpi/Packages/CevoComponents/BaseWin.pas (modified) (1 diff)

branches/highdpi/Packages/CevoComponents/BaseWin.pas

@@ -500 +500 @@
   Offscreen := TDpiBitmap.Create;
   Offscreen.PixelFormat := pf24bit;
-  if Screen.Height - yUnused < 480 then
-    Offscreen.SetSize(Screen.Width, 480)
+  if DpiScreen.Height - yUnused < 480 then
+    Offscreen.SetSize(DpiScreen.Width, 480)
   else
-    Offscreen.SetSize(Screen.Width, Screen.Height - yUnused);
+    Offscreen.SetSize(DpiScreen.Width, DpiScreen.Height - yUnused);
   Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
   Offscreen.Canvas.Brush.Style := bsClear;