Changeset 103 for trunk/UCore.pas

Timestamp:

Dec 27, 2014, 12:01:08 PM (10 years ago)

Author:

chronos

Message:

• Fixed: CellLinks deallocation if map size changed and cells were regenerated.

File:

• trunk/UCore.pas (modified) (4 diffs)

trunk/UCore.pas

@@ -130 +130 @@
 
 procedure TCore.Delay(Time: Integer);
-var
-  I: Integer;
 const
   Slice = 50; // ms
@@ -226 +224 @@
 procedure TCore.AGameEndTurnExecute(Sender: TObject);
 var
-  I: Integer;
   Computer: TComputer;
 begin
@@ -355 +352 @@
   CommandLineParams;
 
-  with Core.ScaleDPI1 do
+  {$IFDEF DEBUG}
+  {with Core.ScaleDPI1 do
   if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
     //ApplyToAll(DesignDPI);
@@ -367 +365 @@
     ScaleImageList(Core.ImageListLarge, DesignDPI);
   end;
+  }
+  {$ENDIF}
 
   if Game.FileName = '' then begin