Changeset 316 for trunk/UMapType.pas

Timestamp:

Jun 19, 2024, 11:53:06 PM (3 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/UMapType.pas (modified) (10 diffs)

trunk/UMapType.pas

@@ -1 +1 @@
 unit UMapType;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, XMLRead, XMLWrite, DOM, UGeometry, fgl, UMap;
+  Classes, SysUtils, XMLRead, XMLWrite, DOM, UGeometry, UMap;
 
 type
@@ -83 +81 @@
 
   TVoronoiMap = class(TMap)
-  private
   public
     procedure Generate; override;
@@ -189 +186 @@
   Angle: Double;
 begin
-  Result := inherited CalculatePixelRect;
+  Result := inherited;
   Angle := 60 / 180 * Pi;
   Shift := TPointF.Create(0.5, 0.5) * TPointF.Create(Cos(Angle), Sin(Angle));
@@ -209 +206 @@
     Doc.Free;
   end;
-  inherited LoadFromFile(FileName);
+  inherited;
 end;
 
@@ -225 +222 @@
     Doc.Free;
   end;
-  inherited SaveToFile(FileName);
+  inherited;
 end;
 
@@ -346 +343 @@
 function TIsometricMap.CalculatePixelRect: TRect;
 begin
-  Result := inherited CalculatePixelRect;
+  Result := inherited;
   Result.P2 := Result.P2 - TPoint.Create(
     Trunc(0.5 * DefaultCellSize.X / CellMulX),
@@ -383 +380 @@
   Angle: Double;
 begin
-  Result := inherited CalculatePixelRect;
+  Result := inherited;
   Angle := 30 / 180 * Pi;
   Shift := TPointF.Create(0.5, 0.5) * TPointF.Create(Cos(Angle), Sin(Angle));
@@ -423 +420 @@
     Doc.Free;
   end;
-  inherited LoadFromFile(FileName);
+  inherited;
 end;
 
@@ -439 +436 @@
     Doc.Free;
   end;
-  inherited SaveToFile(FileName);
+  inherited;
 end;
 
@@ -766 +763 @@
 function TTriangleMap.CalculatePixelRect: TRect;
 begin
-  Result := inherited CalculatePixelRect;
+  Result := inherited;
   Result.P2 := Result.P2 + TPoint.Create(
     Trunc(- 0.25 * DefaultCellSize.X / CellMulX),