Changeset 44 for trunk/UEngine.pas

Timestamp:

Nov 19, 2017, 10:59:54 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Removed compilation warnings.
• Modified: Preparation for 1.0.0 version release.

File:

• trunk/UEngine.pas (modified) (5 diffs)

trunk/UEngine.pas

@@ -1306 +1306 @@
 procedure TEngine.ResizeView;
 var
-  StationRect: TRect;
   NewPoint: TPoint;
 begin
@@ -1533 +1532 @@
 var
   I: Integer;
-  L: Integer;
   S: TStationShape;
 begin
@@ -2093 +2091 @@
 var
   Station: TMapStation;
-  Line: TMetroLine;
-  I: Integer;
   NewLine: TMetroLine;
   Track: TTrackLink;
@@ -2390 +2386 @@
     end;
 
-    if ShowDistances then begin
+{    if ShowDistances then begin
       Canvas.Brush.Style := bsClear;
       Text := '';
@@ -2397 +2393 @@
       Canvas.TextOut(Position.X + StationSize div 2, Position.Y + StationSize div 2, Text);
     end;
+    }
   end;