Changeset 265 for branches/highdpi/LocalPlayer/Select.pas

Timestamp:

Jun 25, 2020, 10:24:44 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Scaling IsoEngine ForgOfWar sprites.
• Fixed: PopupMenu position calculated using not scaled GetSystemMetrics.
• Fixed: Scale TDpiBitmaps using normal scaling functions to get pixels on valid expected possition.
• Fixed: DpiBitBlt needs to be executed as StretchDraw for non-integer pixel scaling. This leads to slower drawing.

File:

• branches/highdpi/LocalPlayer/Select.pas (modified) (5 diffs)

branches/highdpi/LocalPlayer/Select.pas

@@ -684 +684 @@
       kTribe, kMission: // center text
         if Lines[0] > MaxLines then
-          x := (InnerWidth - GetSystemMetrics(SM_CXVSCROLL)) div 2 -
+          x := (InnerWidth - DpiGetSystemMetrics(SM_CXVSCROLL)) div 2 -
             BiColorTextWidth(ca, s) div 2
         else
@@ -1575 +1575 @@
     kTribe:
       if Lines[0] > MaxLines then
-        InnerWidth := 280 + GetSystemMetrics(SM_CXVSCROLL)
+        InnerWidth := 280 + DpiGetSystemMetrics(SM_CXVSCROLL)
       else
         InnerWidth := 280;
@@ -1581 +1581 @@
       begin
         InnerWidth := 104 - 33 + 15 + 8 + TechNameSpace + 24 * nColumn +
-          GetSystemMetrics(SM_CXVSCROLL);
+          DpiGetSystemMetrics(SM_CXVSCROLL);
         if InnerWidth + 2 * SideFrame > 640 then
         begin
@@ -1590 +1590 @@
     kAdvance, kFarAdvance:
       InnerWidth := 104 - 33 + 15 + 8 + TechNameSpace + 24 +
-        GetSystemMetrics(SM_CXVSCROLL);
+        DpiGetSystemMetrics(SM_CXVSCROLL);
     kChooseTech, kChooseETech, kStealTech:
       InnerWidth := 104 - 33 + 15 + 8 + TechNameSpace +
-        GetSystemMetrics(SM_CXVSCROLL);
+        DpiGetSystemMetrics(SM_CXVSCROLL);
   else
     InnerWidth := 363;
@@ -1604 +1604 @@
   { TODO:
   SetWindowPos(sb.ScrollBar.Handle, 0, SideFrame + InnerWidth - GetSystemMetrics(SM_CXVSCROLL),
-    TitleHeight, GetSystemMetrics(SM_CXVSCROLL), LineDistance * DispLines + 48,
+    TitleHeight, DpiGetSystemMetrics(SM_CXVSCROLL), LineDistance * DispLines + 48,
     SWP_NOZORDER or SWP_NOREDRAW);
   }