Changeset 265 for branches/highdpi/LocalPlayer/Help.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/Help.pas (modified) (4 diffs)

branches/highdpi/LocalPlayer/Help.pas

@@ -993 +993 @@
     Name: string;
   begin
-    RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL);
+    RightMargin := InnerWidth - 16 - DpiGetSystemMetrics(SM_CXVSCROLL);
     FollowFormat := pkNormal;
     while s <> '' do
@@ -1255 +1255 @@
       s := List[i];
       while BiColorTextWidth(OffScreen.Canvas, s) > InnerWidth - 16 -
-        GetSystemMetrics(SM_CXVSCROLL) do
+        DpiGetSystemMetrics(SM_CXVSCROLL) do
         Delete(s, length(s), 1);
       MainText.AddLine(s);
@@ -1273 +1273 @@
       s := List[i];
       while BiColorTextWidth(OffScreen.Canvas, s) > InnerWidth - 16 -
-        GetSystemMetrics(SM_CXVSCROLL) do
+        DpiGetSystemMetrics(SM_CXVSCROLL) do
         Delete(s, length(s), 1);
       MainText.AddLine(s);
@@ -2248 +2248 @@
 
     // cut lines to fit to window
-    RightMargin := InnerWidth - 16 - GetSystemMetrics(SM_CXVSCROLL);
+    RightMargin := InnerWidth - 16 - DpiGetSystemMetrics(SM_CXVSCROLL);
     OffScreen.Canvas.Font.Assign(UniFont[ftNormal]);
     for i := 0 to SearchResult.Count - 1 do