Changeset 303 for branches/highdpi/NoTerm.pas

Timestamp:

Mar 9, 2021, 9:19:49 AM (4 years ago)

Author:

chronos

Message:

• Modified: Synced code with current trunk version.

File:

• branches/highdpi/NoTerm.pas (modified) (7 diffs)

branches/highdpi/NoTerm.pas

@@ -25 +25 @@
     G: TNewGameData;
     Server: TServerCall;
-    Shade, State: TDpiBitmap;
+    Shade: TDpiBitmap;
+    State: TDpiBitmap;
     WinStat, ExtStat, AloneStat: array [0 .. nPl - 1] of integer;
     DisallowShowActive: array [0 .. nPl - 1] of boolean;
@@ -163 +164 @@
     cReleaseModule:
       begin
-        Shade.Free;
-        State.Free;
+        FreeAndNil(Shade);
+        FreeAndNil(State);
       end;
 
@@ -245 +246 @@
                     ShipComplete := false;
                 if ShipComplete then
-                  inc(WinStat[p])
+                  inc(WinStat[p]);
               end;
           if Mode = Running then
@@ -255 +256 @@
         begin
           GoBtn.ButtonIndex := 22;
-          Mode := Stopped
-        end
+          Mode := Stopped;
+        end;
       end;
 
@@ -277 +278 @@
         if (Active >= 0) and not DisallowShowActive[Active] then
           ShowActive(Active, true);
-      end
-
-  end
+      end;
+  end;
 end;
 
@@ -292 +292 @@
     GoBtn.Update;
     Server(sTurn, me, 0, nil^);
-  end
+  end;
 end;
 
@@ -300 +300 @@
     EndPlaying
   else
-    Mode := Quit
+    Mode := Quit;
 end;