Changeset 473 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Dec 4, 2023, 12:13:15 PM (12 months ago)

Author:

chronos

Message:

• Added: Custom DPI configuration in Settings dialog.
• Fixed: Better High DPI support.

File:

• trunk/LocalPlayer/MessgEx.pas (modified) (9 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -103 +103 @@
   else
     Button1.Left := 159;
-  RemoveBtn.Left := ClientWidth - 38;
+  RemoveBtn.Left := Width - 38;
   case Kind of
     mkYesNo, mkYesNoCancel:
@@ -151 +151 @@
 
   SplitText(True);
-  ClientHeight := 72 + Border + TopSpace + Lines * MessageLineSpacing;
+  Height := 72 + Border + TopSpace + Lines * MessageLineSpacing;
   if GameMode = cMovie then
-    ClientHeight := ClientHeight - 32;
+    Height := Height - 32;
   if Kind = mkModel then
-    ClientHeight := ClientHeight + 36;
+    Height := Height + 36;
   if IconKind in [mikMyArmy, mikEnemyArmy] then
   begin
     if nLostArmy > LostUnitsPerLine * 6 then
-      ClientHeight := ClientHeight + 6 * 48
+      Height := Height + 6 * 48
     else
-      ClientHeight := ClientHeight + ((nLostArmy - 1) div LostUnitsPerLine
+      Height := Height + ((nLostArmy - 1) div LostUnitsPerLine
         + 1) * 48;
   end;
@@ -167 +167 @@
     0:
       begin
-        Left := (Screen.Width - ClientWidth) div 2;
-        Top := (Screen.Height - ClientHeight) div 2 - MapCenterUp;
+        Left := (Screen.Width - Width) div 2;
+        Top := (Screen.Height - Height) div 2 - MapCenterUp;
       end;
     1:
       begin
-        Left := (Screen.Width - ClientWidth) div 4;
-        Top := (Screen.Height - ClientHeight) * 2 div 3 - MapCenterUp;
+        Left := (Screen.Width - Width) div 4;
+        Top := (Screen.Height - Height) * 2 div 3 - MapCenterUp;
       end;
     -1:
       begin
-        Left := (Screen.Width - ClientWidth) div 4;
-        Top := (Screen.Height - ClientHeight) div 3 - MapCenterUp;
+        Left := (Screen.Width - Width) div 4;
+        Top := (Screen.Height - Height) div 3 - MapCenterUp;
       end;
   end;
   for I := 0 to ControlCount - 1 do
-    Controls[I].Top := ClientHeight - (34 + Border);
+    Controls[I].Top := Height - (34 + Border);
   if Kind = mkModel then
-    EInput.Top := ClientHeight - (76 + Border);
+    EInput.Top := Height - (76 + Border);
 end;
 
@@ -321 +321 @@
     for count := 0 to LostArmy[emix] - 1 do
     begin
-      X := ClientWidth div 2 + ix * 64 - UnitsInLine * 32;
+      X := Width div 2 + ix * 64 - UnitsInLine * 32;
       Y := 26 + Border + TopSpace + Lines * MessageLineSpacing + iy * 48;
       with MyRO.EnemyModel[emix], Tribe[Owner].ModelPicture[mix] do
@@ -371 +371 @@
         BitBltCanvas(Buffer.Canvas, 0, 0, xSizeBig + 2 * GlowRange,
           ySizeBig + 2 * GlowRange, Canvas,
-          ClientWidth div 2 - (28 + GlowRange), 24 - GlowRange);
+          Width div 2 - (28 + GlowRange), 24 - GlowRange);
         BitBltCanvas(Buffer.Canvas, GlowRange, GlowRange, xSizeBig, ySizeBig,
           BigImp.Canvas, IconIndex mod 7 * xSizeBig,
@@ -380 +380 @@
           GlowFrame(Buffer, GlowRange, GlowRange, xSizeBig, ySizeBig,
             Tribe[p1].Color);
-        BitBltCanvas(Canvas, ClientWidth div 2 - (28 + GlowRange),
+        BitBltCanvas(Canvas, Width div 2 - (28 + GlowRange),
           24 - GlowRange, xSizeBig + 2 * GlowRange, ySizeBig + 2 * GlowRange,
           Buffer.Canvas, 0, 0);
       end
       else
-        ImpImage(Canvas, ClientWidth div 2 - 28, 24, IconIndex);
+        ImpImage(Canvas, Width div 2 - 28, 24, IconIndex);
     mikAge:
       begin
         if IconIndex = 0 then
-          ImpImage(Canvas, ClientWidth div 2 - 28, 24, -7)
+          ImpImage(Canvas, Width div 2 - 28, 24, -7)
         else
-          ImpImage(Canvas, ClientWidth div 2 - 28, 24, 24 + IconIndex)
+          ImpImage(Canvas, Width div 2 - 28, 24, 24 + IconIndex)
       end;
     mikModel:
       with Tribe[Me].ModelPicture[IconIndex] do
       begin
-        FrameImage(Canvas, BigImp, ClientWidth div 2 - 28, 24, xSizeBig,
+        FrameImage(Canvas, BigImp, Width div 2 - 28, 24, xSizeBig,
           ySizeBig, 0, 0);
-        BitBltCanvas(Canvas, ClientWidth div 2 - 32, 20, 64, 44,
+        BitBltCanvas(Canvas, Width div 2 - 32, 20, 64, 44,
           HGr.Mask.Canvas, pix mod 10 * 65 + 1,
           pix div 10 * 49 + 1, SRCAND);
-        BitBltCanvas(Canvas, ClientWidth div 2 - 32, 20, 64, 44,
+        BitBltCanvas(Canvas, Width div 2 - 32, 20, 64, 44,
           HGr.Data.Canvas, pix mod 10 * 65 + 1,
           pix div 10 * 49 + 1, SRCPAINT);
       end;
     mikBook:
-      PaintBook(Canvas, ClientWidth div 2, 24, MainTexture.ColorPage,
+      PaintBook(Canvas, Width div 2, 24, MainTexture.ColorPage,
         MainTexture.ColorCover);
     mikTribe:
       if Assigned(Tribe[IconIndex].faceHGr) then
       begin
-        Frame(Canvas, ClientWidth div 2 - 32 - 1, 24 - 1,
-          ClientWidth div 2 + 32, 24 + 48, $000000, $000000);
-        BitBltCanvas(Canvas, ClientWidth div 2 - 32, 24, 64, 48,
+        Frame(Canvas, Width div 2 - 32 - 1, 24 - 1,
+          Width div 2 + 32, 24 + 48, $000000, $000000);
+        BitBltCanvas(Canvas, Width div 2 - 32, 24, 64, 48,
           Tribe[IconIndex].faceHGr.Data.Canvas,
           1 + Tribe[IconIndex].facepix mod 10 * 65,
@@ -419 +419 @@
       end;
     mikPureIcon:
-      FrameImage(Canvas, BigImp, ClientWidth div 2 - 28, 24, xSizeBig, ySizeBig,
+      FrameImage(Canvas, BigImp, Width div 2 - 28, 24, xSizeBig, ySizeBig,
         IconIndex mod 7 * xSizeBig, IconIndex div 7 * ySizeBig);
     mikBigIcon:
-      FrameImage(Canvas, BigImp, ClientWidth div 2 - 3 * 28, 32, xSizeBig * 3,
+      FrameImage(Canvas, BigImp, Width div 2 - 3 * 28, 32, xSizeBig * 3,
         ySizeBig * 3, IconIndex mod 2 * 3 * xSizeBig,
         IconIndex div 2 * 3 * ySizeBig);
@@ -428 +428 @@
       begin
         BitBltCanvas(Buffer.Canvas, 0, 0, 140, 120, Canvas,
-          (ClientWidth - 140) div 2, 24);
+          (Width - 140) div 2, 24);
         ImageOp_BCC(Buffer, Templates.Data, Point(0, 0), StarshipDeparted.BoundsRect, 0, $FFFFFF);
-        BitBltCanvas(Canvas, (ClientWidth - 140) div 2, 24, 140, 120,
+        BitBltCanvas(Canvas, (Width - 140) div 2, 24, 140, 120,
           Buffer.Canvas, 0, 0);
       end;
@@ -438 +438 @@
       PaintEnemyArmy;
     mikFullControl:
-      Sprite(Canvas, HGrSystem2, ClientWidth div 2 - 31, 24, 63, 63, 1, 281);
+      Sprite(Canvas, HGrSystem2, Width div 2 - 31, 24, 63, 63, 1, 281);
     mikShip:
-      PaintColonyShip(Canvas, IconIndex, 17, ClientWidth - 34, 38);
+      PaintColonyShip(Canvas, IconIndex, 17, Width - 34, 38);
   end;