Changeset 378 for branches/highdpi/LocalPlayer/Term.pas

Timestamp:

Apr 24, 2021, 11:41:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r377.

File:

• branches/highdpi/LocalPlayer/Term.pas (modified) (10 diffs)

branches/highdpi/LocalPlayer/Term.pas

@@ -2916 +2916 @@
         FormResize(nil); // calculate geometrics and paint all
         SetTroopLoc(-1);
-        idle := true
+        idle := true;
       end;
 
@@ -2949 +2949 @@
               DipMem[me].DeliveredPrices := [];
               DipMem[me].ReceivedPrices := [];
-              DipCall(scDipStart)
+              DipCall(scDipStart);
             end
             else
             begin
               DipCall(scReject);
-              EndNego
+              EndNego;
             end;
           end;
@@ -2993 +2993 @@
         end;
         NegoDlg.Start;
-        idle := true
+        idle := true;
       end;
 
@@ -3045 +3045 @@
             CurrentMoveInfo.DoShow := not mAlNoMoves.Checked
           else
-            CurrentMoveInfo.DoShow := not mEnNoMoves.Checked
+            CurrentMoveInfo.DoShow := not mEnNoMoves.Checked;
         end
         else if Command = cShowUnitChanged then
@@ -3057 +3057 @@
           else
             CurrentMoveInfo.DoShow :=
-              not(mEnNoMoves.Checked or mEnAttacks.Checked)
+              not(mEnNoMoves.Checked or mEnAttacks.Checked);
         end;
         // else keep DoShow from cShowMove/cShowAttack
@@ -3151 +3151 @@
                 ShowMoveDomain := Domain;
                 IsAlpine := Cap[mcAlpine] > 0;
-              end
-            end
+              end;
+            end;
           end
           else
@@ -3204 +3204 @@
                     CurrentMoveInfo.AfterMovePaintRadius := 2
                   else
-                    CurrentMoveInfo.AfterMovePaintRadius := 1
+                    CurrentMoveInfo.AfterMovePaintRadius := 1;
               end
               else
@@ -3271 +3271 @@
           else
             MapValid := false;
-        end
+        end;
       end;
 
@@ -3356 +3356 @@
           else
             MapValid := false;
-        end
+        end;
       end;
 
@@ -3368 +3368 @@
           if 3 shl (p1 * 2) and Cardinal(Data) <> 0 then
             s := s + '\' + Tribe[p1].TPhrase('SHORTNAME');
-        SoundMessageEx(s, '')
+        SoundMessageEx(s, '');
       end;