tweak

Author: alexvins

forms/new_map.lfm

@@ -104,7 +104,9 @@ object NewMapForm: TNewMapForm
     Top = 104
     Width = 83
     Caption = 'Square map'
+    Checked = True
     OnChange = cbSquareChange
+    State = cbChecked
     TabOrder = 4
   end
   object Label1: TLabel
@@ -121,6 +123,7 @@ object NewMapForm: TNewMapForm
     Top = 32
     Width = 245
     Anchors = [akTop, akLeft, akRight]
+    DropDownCount = 9
     ItemHeight = 15
     OnChange = StandardSizeChange
     Style = csDropDownList

forms/new_map.pas

@@ -130,6 +130,8 @@ procedure TNewMapForm.FormCreate(Sender: TObject);
   begin
     StandardSize.Items.Add(STANDARD_SIZES_NAMES[idx]);
   end;
+
+  UpdateControls;
 end;
 
 procedure TNewMapForm.StandardSizeChange(Sender: TObject);