Changeset 143 for trunk/Engine.pas

Timestamp:

May 29, 2023, 7:30:31 PM (11 months ago)

Author:

chronos

Message:

Removed U prefix from all units.

File:

• trunk/Engine.pas (moved) (moved from trunk/UEngine.pas ) (6 diffs)

trunk/Engine.pas

@@ -1 @@
-unit UEngine;
+unit Engine;
 
 {$IFDEF DARWIN}{$modeswitch Objectivec1}{$ENDIF}
@@ -8 +8 @@
   {$IFDEF DARWIN}MacOSAll, CocoaAll, CocoaUtils,{$ENDIF}
   Classes, SysUtils, Graphics, Controls, ExtCtrls, Math, DateUtils, Types,
-  URegistry, UMetaCanvas, Generics.Collections, Generics.Defaults, UMenu,
-  UControls, UMetroPassenger, UColors, UView, URiver, UTrack, UCity, UGeometric,
-  UTranslator, DOM, XMLRead, XMLWrite, UXMLUtils, UItems, FileUtil;
+  RegistryEx, MetaCanvas, Generics.Collections, Generics.Defaults, Menu,
+  BasicControls, MetroPassenger, Colors, View, River, Track, City, Geometric,
+  Translator, DOM, XMLRead, XMLWrite, XML, Items, FileUtil;
 
 type
@@ -432 +432 @@
 
 uses
-  ULanguages;
+  Languages;
 
 resourcestring
@@ -1578 +1578 @@
   case Shape of
     ssSquare: begin
+      Points := nil;
       SetLength(Points, 4);
       Points[0] := Point(Position.X - Size div 2, Position.Y - Size div 2);
@@ -2760 +2761 @@
       Angle := Vector.GetAngle;
 
+      Points := nil;
       SetLength(Points, 4);
       Points[0] := RotatePoint(Pos, Point(Pos.X - TrainSize div 2, Pos.Y - TrainSize div 3), Angle);
@@ -4360 +4362 @@
   FreeAndNil(Cities);
   FreeAndNil(ButtonBack);
+  FreeAndNil(Colors);
   inherited;
 end;