Changeset 170 for trunk/Forms/UFormNew.pas

Timestamp:

Nov 23, 2017, 5:02:49 PM (7 years ago)

Author:

chronos

Message:

• Modified: UGeometry unit rewritten to use generics and define own TPoint and TRect types.

File:

• trunk/Forms/UFormNew.pas (modified) (2 diffs)

trunk/Forms/UFormNew.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, Spin, ExtCtrls, ActnList, ExtDlgs, Menus, UGame;
+  ComCtrls, Spin, ExtCtrls, ActnList, ExtDlgs, Menus, UGame, UGeometry;
 
 type
@@ -363 +363 @@
   Game.CityEnabled := CheckBoxCity.Checked;
   Game.CityPercentage := SpinEditCityPercent.Value;
-  Game.Map.Size := Point(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);
+  Game.Map.Size := TPoint.Create(SpinEditMapSizeX.Value, SpinEditMapSizeY.Value);
   Game.GrowAmount := TGrowAmount(RadioGroupGrowAmount.ItemIndex);
   Game.GrowCells := TGrowCells(RadioGroupGrowCells.ItemIndex);