Changeset 47 for trunk/Forms

Timestamp:

Aug 17, 2014, 2:02:43 AM (10 years ago)

Author:

chronos

Message:

• Modified: Cell neightbors list is now attached to each cell as it will not be possible to easily calucalte it for generic mesh. Neighbour relation will be generated during map generation.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (modified) (1 diff)
• UFormAbout.pas (modified) (1 diff)
• UFormNew.lfm (modified) (21 diffs)

trunk/Forms/UFormAbout.lfm

@@ -26 +26 @@
     object Memo1: TMemo
       Left = 8
-      Height = 161
+      Height = 157
       Top = 8
-      Width = 281
+      Width = 277
       Anchors = [akTop, akLeft, akRight, akBottom]
       BorderStyle = bsNone

trunk/Forms/UFormAbout.pas

@@ -7 +7 @@
 uses
   SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
-  Buttons, ExtCtrls, UApplicationInfo;
+  Buttons, ExtCtrls;
 
 type

trunk/Forms/UFormNew.lfm

@@ -127 +127 @@
     object CheckBoxVoid: TCheckBox
       Left = 8
-      Height = 24
+      Height = 27
       Top = 101
-      Width = 175
+      Width = 198
       Caption = 'Inaccessible places'
       OnChange = CheckBoxVoidChange
@@ -136 +136 @@
     object Label1: TLabel
       Left = 8
-      Height = 22
+      Height = 25
       Top = 9
-      Width = 88
+      Width = 104
       Caption = 'Map width:'
       ParentColor = False
@@ -144 +144 @@
     object SpinEditMapSizeX: TSpinEdit
       Left = 128
-      Height = 32
+      Height = 35
       Top = 4
       Width = 98
@@ -154 +154 @@
     object SpinEditMapSizeY: TSpinEdit
       Left = 128
-      Height = 32
+      Height = 35
       Top = 55
       Width = 98
@@ -164 +164 @@
     object SpinEditVoidPercent: TSpinEdit
       Left = 216
-      Height = 32
+      Height = 35
       Top = 97
       Width = 106
@@ -173 +173 @@
     object Label3: TLabel
       Left = 331
-      Height = 22
+      Height = 25
       Top = 102
-      Width = 15
+      Width = 17
       Caption = '%'
       ParentColor = False
@@ -181 +181 @@
     object TrackBarSizeX: TTrackBar
       Left = 240
-      Height = 43
+      Height = 46
       Top = 1
       Width = 451
@@ -194 +194 @@
     object TrackBarSizeY: TTrackBar
       Left = 240
-      Height = 43
+      Height = 46
       Top = 49
       Width = 451
@@ -207 +207 @@
     object Label2: TLabel
       Left = 8
-      Height = 22
+      Height = 25
       Top = 57
-      Width = 94
+      Width = 110
       Caption = 'Map height:'
       ParentColor = False
@@ -215 +215 @@
     object CheckBoxCity: TCheckBox
       Left = 8
-      Height = 24
+      Height = 27
       Top = 141
-      Width = 68
+      Width = 73
       Caption = 'Cities'
       OnChange = CheckBoxCityChange
@@ -224 +224 @@
     object SpinEditCityPercent: TSpinEdit
       Left = 216
-      Height = 32
+      Height = 35
       Top = 137
       Width = 106
@@ -233 +233 @@
     object Label4: TLabel
       Left = 331
-      Height = 22
+      Height = 25
       Top = 142
-      Width = 15
+      Width = 17
       Caption = '%'
       ParentColor = False
@@ -253 +253 @@
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 52
+      ClientHeight = 49
       ClientWidth = 237
       Items.Strings = (
@@ -275 +275 @@
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 81
+      ClientHeight = 78
       ClientWidth = 181
       Items.Strings = (
@@ -286 +286 @@
     object ComboBoxGridType: TComboBox
       Left = 312
-      Height = 30
+      Height = 37
       Top = 201
       Width = 208
@@ -293 +293 @@
         'Hexagonal'
         'Square'
+        'Triangular'
       )
       Style = csDropDownList
@@ -299 +300 @@
     object Label5: TLabel
       Left = 216
-      Height = 22
+      Height = 25
       Top = 201
-      Width = 79
+      Width = 90
       Caption = 'Grid type:'
       ParentColor = False
@@ -307 +308 @@
     object Label6: TLabel
       Left = 8
-      Height = 22
+      Height = 25
       Top = 313
-      Width = 114
+      Width = 129
       Caption = 'Win objective:'
       ParentColor = False
@@ -315 +316 @@
     object ComboBoxWinObjective: TComboBox
       Left = 160
-      Height = 30
+      Height = 37
       Top = 305
       Width = 208
@@ -330 +331 @@
     object Label7: TLabel
       Left = 8
-      Height = 22
+      Height = 25
       Top = 348
-      Width = 211
+      Width = 245
       Caption = 'Max random neutral units:'
       ParentColor = False
@@ -338 +339 @@
     object SpinEditNeutralUnits: TSpinEdit
       Left = 272
-      Height = 32
+      Height = 35
       Top = 343
       Width = 98