Changeset 509 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Dec 26, 2023, 10:32:19 AM (11 months ago)

Author:

chronos

Message:

• Modified: Update message dialog height only once.

File:

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

trunk/LocalPlayer/MessgEx.pas

@@ -82 +82 @@
 var
   I: Integer;
+  NewHeight: Integer;
 begin
   if IconKind = mikEnemyArmy then
@@ -151 +152 @@
 
   SplitText(True);
-  Height := 72 + Border + TopSpace + Lines * MessageLineSpacing;
+  NewHeight := 72 + Border + TopSpace + Lines * MessageLineSpacing;
   if GameMode = cMovie then
-    Height := Height - 32;
+    NewHeight := NewHeight - 32;
   if Kind = mkModel then
-    Height := Height + 36;
+    NewHeight := NewHeight + 36;
   if IconKind in [mikMyArmy, mikEnemyArmy] then
   begin
     if nLostArmy > LostUnitsPerLine * 6 then
-      Height := Height + 6 * 48
+      NewHeight := NewHeight + 6 * 48
     else
-      Height := Height + ((nLostArmy - 1) div LostUnitsPerLine
-        + 1) * 48;
-  end;
+      NewHeight := NewHeight + ((nLostArmy - 1) div LostUnitsPerLine + 1) * 48;
+  end;
+  Height := NewHeight;
+
   case CenterTo of
     0:
@@ -391 +393 @@
           ImpImage(Canvas, Width div 2 - 28, 24, -7)
         else
-          ImpImage(Canvas, Width div 2 - 28, 24, 24 + IconIndex)
+          ImpImage(Canvas, Width div 2 - 28, 24, 24 + IconIndex);
       end;
     mikModel:
@@ -412 +414 @@
           Tribe[IconIndex].faceHGr.Data.Canvas,
           1 + Tribe[IconIndex].facepix mod 10 * 65,
-          1 + Tribe[IconIndex].facepix div 10 * 49)
+          1 + Tribe[IconIndex].facepix div 10 * 49);
       end;
     mikPureIcon: