More new map dialog tweaks

* Changed dimension bounds for new maps to 18x18 : 1008:1008
* added more standard sizes (like in HotA)

Author: alexvins

forms/new_map.lfm

@@ -45,24 +45,24 @@ object NewMapForm: TNewMapForm
     Height = 23
     Top = 72
     Width = 110
-    Increment = 8
-    MaxValue = 1024
-    MinValue = 8
+    Increment = 9
+    MaxValue = 1008
+    MinValue = 18
     OnChange = edWidthChange
     TabOrder = 1
-    Value = 32
+    Value = 36
   end
   object edHeight: TSpinEdit
     Left = 152
     Height = 23
     Top = 72
     Width = 110
-    Increment = 8
-    MaxValue = 1024
-    MinValue = 8
+    Increment = 9
+    MaxValue = 1008
+    MinValue = 18
     OnChange = edHeightChange
     TabOrder = 2
-    Value = 32
+    Value = 36
   end
   object lbWidth: TLabel
     Left = 17

forms/new_map.pas

@@ -67,8 +67,22 @@ implementation
 uses math;
 
 const
-  STANDARD_SIZES : array[0..6] of Integer = (16, 36, 72, 108, 144, 252, 1024);
-  STANDARD_SIZES_NAMES : array[0..6] of String = ('Min 16x16', 'S 36x36', 'M 72x72', 'L 108x108', 'XL 144x144', 'XXL 252x252', 'Max 1024x1024');
+  STANDARD_SIZES : array[0..8] of Integer =
+  (
+    18, 36, 72, 108, 144, 180, 216, 252, 1008
+  );
+  STANDARD_SIZES_NAMES : array[0..8] of String =
+  (
+    'Min 18x18',
+    'S 36x36',
+    'M 72x72',
+    'L 108x108',
+    'XL 144x144',
+    'H 180x180',
+    'XH 216x216',
+    'G 252x252',
+    'Max 1008x1008'
+  );
 
 {$R *.lfm}