Changeset 98 for trunk/Forms/UFormNew.lfm

Timestamp:

Dec 26, 2014, 2:36:01 PM (10 years ago)

Author:

chronos

Message:

• Modified: Show dialog windows positioned to main form center.
• Modified: Show player color selection as pretty color names with possibility to choose custom color.

File:

• trunk/Forms/UFormNew.lfm (modified) (23 diffs)

trunk/Forms/UFormNew.lfm

@@ -10 +10 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
+  Position = poMainFormCenter
   LCLVersion = '1.3'
   object ButtonCancel: TButton
@@ -44 +45 @@
     object TabSheet1: TTabSheet
       Caption = 'Players'
-      ClientHeight = 414
+      ClientHeight = 417
       ClientWidth = 1215
       object ListView1: TListView
@@ -115 +116 @@
     object TabSheet2: TTabSheet
       Caption = 'Map'
-      ClientHeight = 414
+      ClientHeight = 417
       ClientWidth = 1215
       object Label1: TLabel
         Left = 8
-        Height = 25
+        Height = 22
         Top = 9
-        Width = 104
+        Width = 92
         Caption = 'Map width:'
         ParentColor = False
@@ -127 +128 @@
       object Label2: TLabel
         Left = 8
-        Height = 25
+        Height = 22
         Top = 57
-        Width = 110
+        Width = 99
         Caption = 'Map height:'
         ParentColor = False
@@ -135 +136 @@
       object SpinEditMapSizeX: TSpinEdit
         Left = 128
-        Height = 35
+        Height = 32
         Top = 4
         Width = 98
@@ -145 +146 @@
       object SpinEditMapSizeY: TSpinEdit
         Left = 128
-        Height = 35
+        Height = 32
         Top = 55
         Width = 98
@@ -181 +182 @@
       object Label5: TLabel
         Left = 8
-        Height = 25
+        Height = 22
         Top = 104
-        Width = 90
+        Width = 81
         Caption = 'Grid type:'
         ParentColor = False
@@ -189 +190 @@
       object ComboBoxGridType: TComboBox
         Left = 146
-        Height = 33
+        Height = 30
         Top = 104
         Width = 208
@@ -203 +204 @@
       object ComboBoxMapShape: TComboBox
         Left = 146
-        Height = 33
+        Height = 30
         Top = 144
         Width = 208
@@ -218 +219 @@
       object Label8: TLabel
         Left = 8
-        Height = 25
+        Height = 22
         Top = 144
-        Width = 107
+        Width = 97
         Caption = 'Map shape:'
         ParentColor = False
@@ -236 +237 @@
       object SpinEditVoidPercent: TSpinEdit
         Left = 216
-        Height = 35
+        Height = 32
         Top = 224
         Width = 106
@@ -245 +246 @@
       object CheckBoxVoid: TCheckBox
         Left = 8
-        Height = 27
+        Height = 24
         Top = 232
-        Width = 198
+        Width = 183
         Caption = 'Inaccessible places'
         OnChange = CheckBoxVoidChange
@@ -254 +255 @@
       object CheckBoxCity: TCheckBox
         Left = 8
-        Height = 27
+        Height = 24
         Top = 272
-        Width = 73
+        Width = 69
         Caption = 'Cities'
         OnChange = CheckBoxCityChange
@@ -263 +264 @@
       object SpinEditCityPercent: TSpinEdit
         Left = 216
-        Height = 35
+        Height = 32
         Top = 272
         Width = 106
@@ -272 +273 @@
       object Label4: TLabel
         Left = 331
-        Height = 25
+        Height = 22
         Top = 272
-        Width = 17
+        Width = 15
         Caption = '%'
         ParentColor = False
@@ -280 +281 @@
       object Label3: TLabel
         Left = 331
-        Height = 25
+        Height = 22
         Top = 232
-        Width = 17
+        Width = 15
         Caption = '%'
         ParentColor = False
@@ -288 +289 @@
       object SpinEditNeutralUnits: TSpinEdit
         Left = 408
-        Height = 35
+        Height = 32
         Top = 352
         Width = 98
@@ -298 +299 @@
       object Label7: TLabel
         Left = 8
-        Height = 25
+        Height = 22
         Top = 352
-        Width = 245
+        Width = 221
         Caption = 'Max random neutral units:'
         ParentColor = False
@@ -306 +307 @@
       object EditImageFile: TEdit
         Left = 144
-        Height = 35
+        Height = 32
         Top = 184
         Width = 948
@@ -324 +325 @@
       object Label9: TLabel
         Left = 8
-        Height = 25
+        Height = 22
         Top = 184
-        Width = 98
+        Width = 88
         Caption = 'Image file:'
         ParentColor = False
@@ -333 +334 @@
     object TabSheet3: TTabSheet
       Caption = 'Rules'
-      ClientHeight = 414
+      ClientHeight = 417
       ClientWidth = 1215
       object RadioGroupGrowCells: TRadioGroup
@@ -349 +350 @@
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 78
+        ClientHeight = 81
         ClientWidth = 308
         Items.Strings = (
@@ -395 +396 @@
         ChildSizing.Layout = cclLeftToRightThenTopToBottom
         ChildSizing.ControlsPerLine = 1
-        ClientHeight = 49
+        ClientHeight = 52
         ClientWidth = 301
         Items.Strings = (