New map dialog improved

Author: alexvins

forms/new_map.lfm

@@ -1,21 +1,22 @@
 object NewMapForm: TNewMapForm
   Left = 445
-  Height = 200
+  Height = 224
   Top = 193
   Width = 300
   BorderStyle = bsDialog
   Caption = 'New map'
-  ClientHeight = 200
+  ClientHeight = 224
   ClientWidth = 300
   Constraints.MinHeight = 200
   Constraints.MinWidth = 300
+  OnCreate = FormCreate
   Position = poMainFormCenter
   ShowInTaskBar = stNever
-  LCLVersion = '1.6.3.0'
+  LCLVersion = '1.8.1.0'
   object pnButtons: TPanel
     Left = 0
     Height = 43
-    Top = 157
+    Top = 181
     Width = 300
     Align = alBottom
     BevelOuter = bvNone
@@ -42,7 +43,7 @@ object NewMapForm: TNewMapForm
   object edWidth: TSpinEdit
     Left = 16
     Height = 23
-    Top = 24
+    Top = 72
     Width = 110
     Increment = 8
     MaxValue = 1024
@@ -54,34 +55,35 @@ object NewMapForm: TNewMapForm
   object edHeight: TSpinEdit
     Left = 152
     Height = 23
-    Top = 24
+    Top = 72
     Width = 110
     Increment = 8
     MaxValue = 1024
     MinValue = 8
+    OnChange = edHeightChange
     TabOrder = 2
     Value = 32
   end
   object lbWidth: TLabel
     Left = 17
     Height = 15
-    Top = 8
+    Top = 56
     Width = 32
     Caption = 'Width'
     ParentColor = False
   end
   object lbHeight: TLabel
     Left = 152
     Height = 15
-    Top = 8
+    Top = 56
     Width = 36
     Caption = 'Height'
     ParentColor = False
   end
   object edLevels: TSpinEdit
     Left = 16
     Height = 23
-    Top = 104
+    Top = 144
     Width = 112
     MaxValue = 2
     MinValue = 1
@@ -91,20 +93,39 @@ object NewMapForm: TNewMapForm
   object lbLevels: TLabel
     Left = 16
     Height = 15
-    Top = 88
+    Top = 128
     Width = 32
     Caption = 'Levels'
     ParentColor = False
   end
   object cbSquare: TCheckBox
     Left = 16
     Height = 19
-    Top = 56
+    Top = 104
     Width = 83
     Caption = 'Square map'
     OnChange = cbSquareChange
     TabOrder = 4
   end
+  object Label1: TLabel
+    Left = 17
+    Height = 15
+    Top = 11
+    Width = 72
+    Caption = 'Standard size:'
+    ParentColor = False
+  end
+  object StandardSize: TComboBox
+    Left = 17
+    Height = 23
+    Top = 32
+    Width = 245
+    Anchors = [akTop, akLeft, akRight]
+    ItemHeight = 15
+    OnChange = StandardSizeChange
+    Style = csDropDownList
+    TabOrder = 5
+  end
   object act: TActionList
     left = 208
     top = 96

forms/new_map.pas

@@ -35,6 +35,8 @@   TNewMapForm = class(TForm)
     btOk: TButton;
     btCancel: TButton;
     cbSquare: TCheckBox;
+    StandardSize: TComboBox;
+    Label1: TLabel;
     lbWidth: TLabel;
     lbHeight: TLabel;
     lbLevels: TLabel;
@@ -45,9 +47,14 @@   TNewMapForm = class(TForm)
     procedure actCancelExecute(Sender: TObject);
     procedure actCreateExecute(Sender: TObject);
     procedure cbSquareChange(Sender: TObject);
+    procedure edHeightChange(Sender: TObject);
     procedure edWidthChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure StandardSizeChange(Sender: TObject);
   private
     procedure UpdateControls;
+
+    procedure CheckStandardSize;
   public
     { public declarations }
 
@@ -59,6 +66,10 @@ 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');
+
 {$R *.lfm}
 
 { TNewMapForm }
@@ -68,6 +79,11 @@ procedure TNewMapForm.cbSquareChange(Sender: TObject);
   UpdateControls;
 end;
 
+procedure TNewMapForm.edHeightChange(Sender: TObject);
+begin
+  CheckStandardSize;
+end;
+
 procedure TNewMapForm.actCreateExecute(Sender: TObject);
 begin
   ModalResult:=mrOK;
@@ -83,6 +99,31 @@ procedure TNewMapForm.edWidthChange(Sender: TObject);
   if cbSquare.Checked then
   begin
     edHeight.Value := edWidth.Value;
+  end
+  else
+  begin
+    CheckStandardSize;
+  end;
+end;
+
+procedure TNewMapForm.FormCreate(Sender: TObject);
+var
+  idx: Integer;
+begin
+  StandardSize.Items.Clear;
+
+  for idx := Low(STANDARD_SIZES) to High(STANDARD_SIZES) do
+  begin
+    StandardSize.Items.Add(STANDARD_SIZES_NAMES[idx]);
+  end;
+end;
+
+procedure TNewMapForm.StandardSizeChange(Sender: TObject);
+begin
+  if StandardSize.ItemIndex >= 0 then
+  begin
+    cbSquare.Checked := true;
+    edWidth.Value:=STANDARD_SIZES[StandardSize.ItemIndex];
   end;
 end;
 
@@ -100,6 +141,34 @@ procedure TNewMapForm.UpdateControls;
   end;
 end;
 
+procedure TNewMapForm.CheckStandardSize;
+var
+  idx: Integer;
+  found: Boolean;
+begin
+  if edWidth.Value <> edHeight.Value then
+  begin
+    StandardSize.ItemIndex:=-1;
+    Exit;
+  end;
+
+  found := false;
+
+  for idx := Low(STANDARD_SIZES) to High(STANDARD_SIZES) do
+  begin
+    if edWidth.Value = STANDARD_SIZES[idx] then
+    begin
+      found := true;
+      Break;
+    end;
+  end;
+
+  if not found then
+  begin
+    StandardSize.ItemIndex:=-1;
+  end;
+end;
+
 function TNewMapForm.Execute(out AParams: TMapCreateParams): boolean;
 begin
   Result := ShowModal() = mrOK;