Changeset 243 for trunk/Forms/UFormNew.lfm
- Timestamp:
- Sep 21, 2018, 2:09:10 PM (6 years ago)
- File:
-
- 1 edited
-
trunk/Forms/UFormNew.lfm (modified) (8 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormNew.lfm
r229 r243 21 21 Top = 4 22 22 Width = 749 23 ActivePage = TabSheet Map23 ActivePage = TabSheetRules 24 24 Align = alClient 25 25 BorderSpacing.Around = 4 26 TabIndex = 226 TabIndex = 3 27 27 TabOrder = 0 28 28 object TabSheetMode: TTabSheet … … 30 30 ClientHeight = 662 31 31 ClientWidth = 741 32 object RadioButtonModeLocal: TRadioButton 33 Left = 10 34 Height = 24 35 Top = 14 36 Width = 59 37 Caption = 'Local' 38 Checked = True 39 OnChange = RadioButtonModeLocalChange 32 object Panel3: TPanel 33 Left = 0 34 Height = 662 35 Top = 0 36 Width = 741 37 Align = alClient 38 BevelOuter = bvNone 39 ClientHeight = 662 40 ClientWidth = 741 40 41 TabOrder = 0 41 TabStop = True 42 end 43 object RadioButtonModeNetworkServer: TRadioButton 44 Left = 10 45 Height = 24 46 Top = 48 47 Width = 123 48 Caption = 'Network server' 49 OnChange = RadioButtonModeLocalChange 50 TabOrder = 1 51 end 52 object RadioButtonModeNetworkClient: TRadioButton 53 Left = 10 54 Height = 24 55 Top = 152 56 Width = 120 57 Caption = 'Network client' 58 OnChange = RadioButtonModeLocalChange 59 TabOrder = 2 60 end 61 object EditServerAddress: TEdit 62 Left = 24 63 Height = 28 64 Top = 112 65 Width = 220 66 TabOrder = 3 67 end 68 object SpinEditServerPort: TSpinEdit 69 Left = 256 70 Height = 28 71 Top = 112 72 Width = 79 73 MaxValue = 65535 74 TabOrder = 4 75 end 76 object Label11: TLabel 77 Left = 256 78 Height = 20 79 Top = 88 80 Width = 30 81 Caption = 'Port:' 82 ParentColor = False 83 end 84 object Label12: TLabel 85 Left = 24 86 Height = 20 87 Top = 88 88 Width = 56 89 Caption = 'Address:' 90 ParentColor = False 91 end 92 object ListViewServers: TListView 93 Left = 26 94 Height = 430 95 Top = 181 96 Width = 334 97 Anchors = [akTop, akLeft, akBottom] 98 Columns = < 99 item 100 Caption = 'Name' 101 Width = 100 102 end 103 item 104 Caption = 'Address' 105 Width = 214 106 end> 107 MultiSelect = True 108 OwnerData = True 109 PopupMenu = PopupMenuServers 110 ReadOnly = True 111 RowSelect = True 112 TabOrder = 5 113 ViewStyle = vsReport 114 OnData = ListViewServersData 115 OnDblClick = AServerModifyExecute 116 OnKeyPress = ListViewServersKeyPress 117 OnSelectItem = ListViewServersSelectItem 118 end 119 object Button1: TButton 120 Left = 27 121 Height = 31 122 Top = 623 123 Width = 94 124 Action = AServerAdd 125 Anchors = [akLeft, akBottom] 126 TabOrder = 6 127 end 128 object Button2: TButton 129 Left = 240 130 Height = 31 131 Top = 623 132 Width = 94 133 Action = AServerRemove 134 Anchors = [akLeft, akBottom] 135 TabOrder = 7 136 end 137 object Button3: TButton 138 Left = 136 139 Height = 30 140 Top = 623 141 Width = 94 142 Action = AServerModify 143 Anchors = [akLeft, akBottom] 144 TabOrder = 8 42 object RadioButtonModeLocal: TRadioButton 43 Left = 10 44 Height = 24 45 Top = 14 46 Width = 59 47 Caption = 'Local' 48 Checked = True 49 OnChange = RadioButtonModeLocalChange 50 TabOrder = 0 51 TabStop = True 52 end 53 object RadioButtonModeNetworkServer: TRadioButton 54 Left = 10 55 Height = 24 56 Top = 48 57 Width = 123 58 Caption = 'Network server' 59 OnChange = RadioButtonModeLocalChange 60 TabOrder = 1 61 end 62 object RadioButtonModeNetworkClient: TRadioButton 63 Left = 10 64 Height = 24 65 Top = 152 66 Width = 120 67 Caption = 'Network client' 68 OnChange = RadioButtonModeLocalChange 69 TabOrder = 2 70 end 71 object EditServerAddress: TEdit 72 Left = 24 73 Height = 28 74 Top = 112 75 Width = 220 76 TabOrder = 3 77 end 78 object SpinEditServerPort: TSpinEdit 79 Left = 256 80 Height = 28 81 Top = 112 82 Width = 79 83 MaxValue = 65535 84 TabOrder = 4 85 end 86 object Label11: TLabel 87 Left = 256 88 Height = 20 89 Top = 88 90 Width = 30 91 Caption = 'Port:' 92 ParentColor = False 93 end 94 object Label12: TLabel 95 Left = 24 96 Height = 20 97 Top = 88 98 Width = 56 99 Caption = 'Address:' 100 ParentColor = False 101 end 102 object ListViewServers: TListView 103 Left = 26 104 Height = 430 105 Top = 181 106 Width = 334 107 Anchors = [akTop, akLeft, akBottom] 108 Columns = < 109 item 110 Caption = 'Name' 111 Width = 100 112 end 113 item 114 Caption = 'Address' 115 Width = 214 116 end> 117 MultiSelect = True 118 OwnerData = True 119 ReadOnly = True 120 RowSelect = True 121 TabOrder = 5 122 ViewStyle = vsReport 123 OnData = ListViewServersData 124 OnDblClick = AServerModifyExecute 125 OnKeyPress = ListViewServersKeyPress 126 OnSelectItem = ListViewServersSelectItem 127 end 128 object Button1: TButton 129 Left = 27 130 Height = 31 131 Top = 623 132 Width = 94 133 Anchors = [akLeft, akBottom] 134 Caption = 'Add' 135 TabOrder = 6 136 end 137 object Button2: TButton 138 Left = 240 139 Height = 31 140 Top = 623 141 Width = 94 142 Anchors = [akLeft, akBottom] 143 Caption = 'Remove' 144 TabOrder = 7 145 end 146 object Button3: TButton 147 Left = 136 148 Height = 30 149 Top = 623 150 Width = 94 151 Anchors = [akLeft, akBottom] 152 Caption = 'Modify' 153 TabOrder = 8 154 end 145 155 end 146 156 end … … 149 159 ClientHeight = 662 150 160 ClientWidth = 741 151 object ListViewPlayers: TListView 152 Left = 4 153 Height = 612 154 Top = 4 155 Width = 733 156 Align = alTop 157 Anchors = [akTop, akLeft, akRight, akBottom] 158 BorderSpacing.Around = 4 159 Columns = < 160 item 161 Caption = 'Name' 162 Width = 200 163 end 164 item 165 Caption = 'Type' 166 Width = 100 167 end 168 item 169 Caption = 'Color' 170 Width = 100 171 end 172 item 173 Caption = 'Start units' 174 Width = 790 175 end> 176 MultiSelect = True 177 OwnerData = True 178 PopupMenu = PopupMenuPlayers 179 ReadOnly = True 180 RowSelect = True 161 object Panel2: TPanel 162 Left = 0 163 Height = 662 164 Top = 0 165 Width = 741 166 Align = alClient 167 BevelOuter = bvNone 168 ClientHeight = 662 169 ClientWidth = 741 181 170 TabOrder = 0 182 ViewStyle = vsReport 183 OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem 184 OnData = ListViewPlayersData 185 OnDblClick = ListViewPlayersDblClick 186 OnKeyPress = ListViewPlayersKeyPress 187 OnKeyUp = ListViewPlayersKeyUp 188 OnSelectItem = ListViewPlayersSelectItem 189 end 190 object ButtonPlayerRemove: TButton 191 Left = 224 192 Height = 25 193 Top = 624 194 Width = 83 195 Action = APlayerRemove 196 Anchors = [akLeft, akBottom] 197 TabOrder = 1 198 end 199 object ButtonPlayerAdd: TButton 200 Left = 16 201 Height = 25 202 Top = 624 203 Width = 83 204 Action = APlayerAdd 205 Anchors = [akLeft, akBottom] 206 TabOrder = 2 207 end 208 object ButtonPlayerModify: TButton 209 Left = 120 210 Height = 25 211 Top = 624 212 Width = 83 213 Action = APlayerModify 214 Anchors = [akLeft, akBottom] 215 Caption = 'Modify' 216 TabOrder = 3 171 object ListViewPlayers: TListView 172 Left = 4 173 Height = 612 174 Top = 4 175 Width = 733 176 Align = alTop 177 Anchors = [akTop, akLeft, akRight, akBottom] 178 BorderSpacing.Around = 4 179 Columns = < 180 item 181 Caption = 'Name' 182 Width = 200 183 end 184 item 185 Caption = 'Type' 186 Width = 100 187 end 188 item 189 Caption = 'Color' 190 Width = 100 191 end 192 item 193 Caption = 'Start units' 194 Width = 790 195 end> 196 MultiSelect = True 197 OwnerData = True 198 ReadOnly = True 199 RowSelect = True 200 TabOrder = 0 201 ViewStyle = vsReport 202 OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem 203 OnData = ListViewPlayersData 204 OnDblClick = ListViewPlayersDblClick 205 OnKeyPress = ListViewPlayersKeyPress 206 OnKeyUp = ListViewPlayersKeyUp 207 OnSelectItem = ListViewPlayersSelectItem 208 end 209 object ButtonPlayerAdd: TButton 210 Left = 16 211 Height = 25 212 Top = 624 213 Width = 83 214 Anchors = [akLeft, akBottom] 215 Caption = 'Add' 216 TabOrder = 1 217 end 218 object ButtonPlayerModify: TButton 219 Left = 120 220 Height = 25 221 Top = 624 222 Width = 83 223 Anchors = [akLeft, akBottom] 224 Caption = 'Modify' 225 TabOrder = 2 226 end 227 object ButtonPlayerRemove: TButton 228 Left = 224 229 Height = 25 230 Top = 624 231 Width = 83 232 Anchors = [akLeft, akBottom] 233 Caption = 'Remove' 234 TabOrder = 3 235 end 217 236 end 218 237 end … … 221 240 ClientHeight = 662 222 241 ClientWidth = 741 223 object Label1: TLabel 224 Left = 8 225 Height = 20 226 Top = 9 227 Width = 74 228 Caption = 'Map width:' 229 ParentColor = False 230 end 231 object Label2: TLabel 232 Left = 8 233 Height = 20 234 Top = 57 235 Width = 79 236 Caption = 'Map height:' 237 ParentColor = False 238 end 239 object SpinEditMapSizeX: TSpinEdit 240 Left = 128 241 Height = 28 242 Top = 4 243 Width = 98 244 MinValue = 2 245 OnChange = SpinEditMapSizeXChange 242 object Panel1: TPanel 243 Left = 0 244 Height = 662 245 Top = 0 246 Width = 741 247 Align = alClient 248 BevelOuter = bvNone 249 ClientHeight = 662 250 ClientWidth = 741 246 251 TabOrder = 0 247 Value = 2 248 end 249 object SpinEditMapSizeY: TSpinEdit 250 Left = 128 251 Height = 28 252 Top = 55 253 Width = 98 254 MinValue = 2 255 OnChange = SpinEditMapSizeYChange 256 TabOrder = 1 257 Value = 2 258 end 259 object TrackBarSizeX: TTrackBar 260 Left = 240 261 Height = 47 262 Top = 8 263 Width = 490 264 Max = 100 265 Min = 2 266 OnChange = TrackBarSizeXChange 267 Position = 2 268 TickStyle = tsNone 269 Anchors = [akTop, akLeft, akRight] 270 TabOrder = 2 271 end 272 object TrackBarSizeY: TTrackBar 273 Left = 240 274 Height = 47 275 Top = 49 276 Width = 490 277 Max = 100 278 Min = 2 279 OnChange = TrackBarSizeYChange 280 Position = 2 281 TickStyle = tsNone 282 Anchors = [akTop, akLeft, akRight] 283 TabOrder = 3 284 end 285 object Label5: TLabel 286 Left = 8 287 Height = 20 288 Top = 104 289 Width = 64 290 Caption = 'Grid type:' 291 ParentColor = False 292 end 293 object ComboBoxGridType: TComboBox 294 Left = 146 295 Height = 28 296 Top = 104 297 Width = 208 298 ItemHeight = 20 299 Items.Strings = ( 300 'Hexagonal' 301 'Square' 302 'Triangular' 303 ) 304 Style = csDropDownList 305 TabOrder = 4 306 end 307 object ComboBoxMapShape: TComboBox 308 Left = 146 309 Height = 28 310 Top = 144 311 Width = 208 312 ItemHeight = 20 313 Items.Strings = ( 314 'Hexagonal' 315 'Square' 316 'Triangular' 317 ) 318 OnChange = ComboBoxMapShapeChange 319 Style = csDropDownList 320 TabOrder = 5 321 end 322 object Label8: TLabel 323 Left = 8 324 Height = 20 325 Top = 144 326 Width = 76 327 Caption = 'Map shape:' 328 ParentColor = False 329 end 330 object CheckBoxSymetricMap: TCheckBox 331 Left = 472 332 Height = 27 333 Top = 110 334 Width = 253 335 Anchors = [akTop, akLeft, akRight] 336 AutoSize = False 337 Caption = 'Symetric map' 338 TabOrder = 6 339 end 340 object SpinEditVoidPercent: TSpinEdit 341 Left = 216 342 Height = 28 343 Top = 224 344 Width = 106 345 MinValue = 1 346 TabOrder = 7 347 Value = 1 348 end 349 object CheckBoxVoid: TCheckBox 350 Left = 8 351 Height = 24 352 Top = 232 353 Width = 149 354 Caption = 'Inaccessible places' 355 OnChange = CheckBoxVoidChange 356 TabOrder = 8 357 end 358 object CheckBoxCity: TCheckBox 359 Left = 8 360 Height = 24 361 Top = 272 362 Width = 60 363 Caption = 'Cities' 364 OnChange = CheckBoxCityChange 365 TabOrder = 9 366 end 367 object SpinEditCityPercent: TSpinEdit 368 Left = 216 369 Height = 28 370 Top = 272 371 Width = 106 372 MinValue = 1 373 TabOrder = 10 374 Value = 1 375 end 376 object Label4: TLabel 377 Left = 331 378 Height = 20 379 Top = 272 380 Width = 12 381 Caption = '%' 382 ParentColor = False 383 end 384 object Label3: TLabel 385 Left = 331 386 Height = 20 387 Top = 232 388 Width = 12 389 Caption = '%' 390 ParentColor = False 391 end 392 object SpinEditNeutralUnits: TSpinEdit 393 Left = 408 394 Height = 28 395 Top = 384 396 Width = 98 397 MaxValue = 99 398 TabOrder = 11 399 Value = 12 400 end 401 object Label7: TLabel 402 Left = 8 403 Height = 20 404 Top = 384 405 Width = 172 406 Caption = 'Max random neutral units:' 407 ParentColor = False 408 end 409 object EditImageFile: TEdit 410 Left = 144 411 Height = 28 412 Top = 184 413 Width = 474 414 Anchors = [akTop, akLeft, akRight] 415 TabOrder = 12 416 end 417 object ButtonImageBrowse: TButton 418 Left = 626 419 Height = 25 420 Top = 192 421 Width = 99 422 Anchors = [akTop, akRight] 423 Caption = 'Browse' 424 OnClick = ButtonImageBrowseClick 425 TabOrder = 13 426 end 427 object Label9: TLabel 428 Left = 8 429 Height = 20 430 Top = 184 431 Width = 70 432 Caption = 'Image file:' 433 ParentColor = False 434 end 435 object CheckBoxBridges: TCheckBox 436 Left = 8 437 Height = 24 438 Top = 310 439 Width = 168 440 Caption = 'Bridges between cells' 441 TabOrder = 14 442 end 443 object SpinEditMaxPower: TSpinEdit 444 Left = 408 445 Height = 28 446 Top = 344 447 Width = 98 448 MaxValue = 1000000 449 MinValue = 1 450 OnChange = SpinEditMaxPowerChange 451 TabOrder = 15 452 Value = 99 453 end 454 object Label10: TLabel 455 Left = 8 456 Height = 20 457 Top = 344 458 Width = 119 459 Caption = 'Max units per cell:' 460 ParentColor = False 461 end 462 object CheckBoxCyclicMap: TCheckBox 463 Left = 472 464 Height = 27 465 Top = 137 466 Width = 253 467 Anchors = [akTop, akLeft, akRight] 468 AutoSize = False 469 Caption = 'Cyclic map' 470 TabOrder = 16 252 object Label1: TLabel 253 Left = 8 254 Height = 20 255 Top = 9 256 Width = 74 257 Caption = 'Map width:' 258 ParentColor = False 259 end 260 object Label2: TLabel 261 Left = 8 262 Height = 20 263 Top = 57 264 Width = 79 265 Caption = 'Map height:' 266 ParentColor = False 267 end 268 object SpinEditMapSizeX: TSpinEdit 269 Left = 128 270 Height = 28 271 Top = 4 272 Width = 98 273 MinValue = 2 274 OnChange = SpinEditMapSizeXChange 275 TabOrder = 0 276 Value = 2 277 end 278 object SpinEditMapSizeY: TSpinEdit 279 Left = 128 280 Height = 28 281 Top = 55 282 Width = 98 283 MinValue = 2 284 OnChange = SpinEditMapSizeYChange 285 TabOrder = 1 286 Value = 2 287 end 288 object TrackBarSizeX: TTrackBar 289 Left = 240 290 Height = 47 291 Top = 8 292 Width = 490 293 Max = 100 294 Min = 2 295 OnChange = TrackBarSizeXChange 296 Position = 2 297 TickStyle = tsNone 298 Anchors = [akTop, akLeft, akRight] 299 TabOrder = 2 300 end 301 object TrackBarSizeY: TTrackBar 302 Left = 240 303 Height = 47 304 Top = 49 305 Width = 490 306 Max = 100 307 Min = 2 308 OnChange = TrackBarSizeYChange 309 Position = 2 310 TickStyle = tsNone 311 Anchors = [akTop, akLeft, akRight] 312 TabOrder = 3 313 end 314 object Label5: TLabel 315 Left = 8 316 Height = 20 317 Top = 104 318 Width = 64 319 Caption = 'Grid type:' 320 ParentColor = False 321 end 322 object ComboBoxGridType: TComboBox 323 Left = 146 324 Height = 28 325 Top = 104 326 Width = 208 327 ItemHeight = 20 328 Items.Strings = ( 329 'Hexagonal' 330 'Square' 331 'Triangular' 332 ) 333 Style = csDropDownList 334 TabOrder = 4 335 end 336 object ComboBoxMapShape: TComboBox 337 Left = 146 338 Height = 28 339 Top = 144 340 Width = 208 341 ItemHeight = 20 342 Items.Strings = ( 343 'Hexagonal' 344 'Square' 345 'Triangular' 346 ) 347 OnChange = ComboBoxMapShapeChange 348 Style = csDropDownList 349 TabOrder = 5 350 end 351 object Label8: TLabel 352 Left = 8 353 Height = 20 354 Top = 144 355 Width = 76 356 Caption = 'Map shape:' 357 ParentColor = False 358 end 359 object CheckBoxSymetricMap: TCheckBox 360 Left = 472 361 Height = 27 362 Top = 110 363 Width = 253 364 Anchors = [akTop, akLeft, akRight] 365 AutoSize = False 366 Caption = 'Symetric map' 367 TabOrder = 6 368 end 369 object SpinEditVoidPercent: TSpinEdit 370 Left = 216 371 Height = 28 372 Top = 224 373 Width = 106 374 MinValue = 1 375 TabOrder = 7 376 Value = 1 377 end 378 object CheckBoxVoid: TCheckBox 379 Left = 8 380 Height = 24 381 Top = 232 382 Width = 149 383 Caption = 'Inaccessible places' 384 OnChange = CheckBoxVoidChange 385 TabOrder = 8 386 end 387 object CheckBoxCity: TCheckBox 388 Left = 8 389 Height = 24 390 Top = 272 391 Width = 60 392 Caption = 'Cities' 393 OnChange = CheckBoxCityChange 394 TabOrder = 9 395 end 396 object SpinEditCityPercent: TSpinEdit 397 Left = 216 398 Height = 28 399 Top = 272 400 Width = 106 401 MinValue = 1 402 TabOrder = 10 403 Value = 1 404 end 405 object Label4: TLabel 406 Left = 331 407 Height = 20 408 Top = 272 409 Width = 12 410 Caption = '%' 411 ParentColor = False 412 end 413 object Label3: TLabel 414 Left = 331 415 Height = 20 416 Top = 232 417 Width = 12 418 Caption = '%' 419 ParentColor = False 420 end 421 object SpinEditNeutralUnits: TSpinEdit 422 Left = 408 423 Height = 28 424 Top = 384 425 Width = 98 426 MaxValue = 99 427 TabOrder = 11 428 Value = 12 429 end 430 object Label7: TLabel 431 Left = 8 432 Height = 20 433 Top = 384 434 Width = 172 435 Caption = 'Max random neutral units:' 436 ParentColor = False 437 end 438 object EditImageFile: TEdit 439 Left = 144 440 Height = 28 441 Top = 184 442 Width = 474 443 Anchors = [akTop, akLeft, akRight] 444 TabOrder = 12 445 end 446 object ButtonImageBrowse: TButton 447 Left = 626 448 Height = 25 449 Top = 192 450 Width = 99 451 Anchors = [akTop, akRight] 452 Caption = 'Browse' 453 OnClick = ButtonImageBrowseClick 454 TabOrder = 13 455 end 456 object Label9: TLabel 457 Left = 8 458 Height = 20 459 Top = 184 460 Width = 70 461 Caption = 'Image file:' 462 ParentColor = False 463 end 464 object CheckBoxBridges: TCheckBox 465 Left = 8 466 Height = 24 467 Top = 310 468 Width = 168 469 Caption = 'Bridges between cells' 470 TabOrder = 14 471 end 472 object SpinEditMaxPower: TSpinEdit 473 Left = 408 474 Height = 28 475 Top = 344 476 Width = 98 477 MaxValue = 1000000 478 MinValue = 1 479 OnChange = SpinEditMaxPowerChange 480 TabOrder = 15 481 Value = 99 482 end 483 object Label10: TLabel 484 Left = 8 485 Height = 20 486 Top = 344 487 Width = 119 488 Caption = 'Max units per cell:' 489 ParentColor = False 490 end 491 object CheckBoxCyclicMap: TCheckBox 492 Left = 472 493 Height = 27 494 Top = 137 495 Width = 253 496 Anchors = [akTop, akLeft, akRight] 497 AutoSize = False 498 Caption = 'Cyclic map' 499 TabOrder = 16 500 end 471 501 end 472 502 end … … 475 505 ClientHeight = 662 476 506 ClientWidth = 741 477 object RadioGroupGrowCells: TRadioGroup 478 Left = 15 479 Height = 105 480 Top = 104 481 Width = 312 482 AutoFill = True 483 Caption = 'Growing cells' 484 ChildSizing.LeftRightSpacing = 6 485 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 486 ChildSizing.EnlargeVertical = crsHomogenousChildResize 487 ChildSizing.ShrinkHorizontal = crsScaleChilds 488 ChildSizing.ShrinkVertical = crsScaleChilds 489 ChildSizing.Layout = cclLeftToRightThenTopToBottom 490 ChildSizing.ControlsPerLine = 1 491 ClientHeight = 80 492 ClientWidth = 308 493 Items.Strings = ( 494 'None' 495 'Player cities' 496 'Player all' 497 ) 507 object Panel4: TPanel 508 Left = 0 509 Height = 662 510 Top = 0 511 Width = 741 512 Align = alClient 513 BevelOuter = bvNone 514 ClientHeight = 662 515 ClientWidth = 741 498 516 TabOrder = 0 499 end 500 object Label6: TLabel 501 Left = 8 502 Height = 20 503 Top = 248 504 Width = 94 505 Caption = 'Win objective:' 506 ParentColor = False 507 end 508 object ComboBoxWinObjective: TComboBox 509 Left = 224 510 Height = 28 511 Top = 244 512 Width = 328 513 ItemHeight = 20 514 Items.Strings = ( 515 'Defeat all oponents' 516 'Defeat all oponents cities' 517 'Capture position' 518 'Stay alive for number of turns' 519 ) 520 OnChange = ComboBoxWinObjectiveChange 521 Style = csDropDownList 522 TabOrder = 1 523 end 524 object RadioGroupGrowAmount: TRadioGroup 525 Left = 15 526 Height = 76 527 Top = 16 528 Width = 305 529 AutoFill = True 530 Caption = 'Per turn grow amount' 531 ChildSizing.LeftRightSpacing = 6 532 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 533 ChildSizing.EnlargeVertical = crsHomogenousChildResize 534 ChildSizing.ShrinkHorizontal = crsScaleChilds 535 ChildSizing.ShrinkVertical = crsScaleChilds 536 ChildSizing.Layout = cclLeftToRightThenTopToBottom 537 ChildSizing.ControlsPerLine = 1 538 ClientHeight = 51 539 ClientWidth = 301 540 Items.Strings = ( 541 'By one' 542 'By square root' 543 ) 544 TabOrder = 2 545 end 546 object CheckBoxFogOfWar: TCheckBox 547 Left = 336 548 Height = 27 549 Top = 24 550 Width = 581 551 Anchors = [akTop, akLeft, akRight] 552 AutoSize = False 553 Caption = 'Fog of war' 554 TabOrder = 3 555 end 556 object PageControl2: TPageControl 557 Left = 12 558 Height = 78 559 Top = 290 560 Width = 718 561 ActivePage = TabSheetCaptureCities 562 Anchors = [akTop, akLeft, akRight] 563 ShowTabs = False 564 TabIndex = 1 565 TabOrder = 4 566 object TabSheetDefeatEnemies: TTabSheet 567 end 568 object TabSheetCaptureCities: TTabSheet 569 end 570 object TabSheetCaptureCells: TTabSheet 571 ClientHeight = 74 572 ClientWidth = 716 573 object Label14: TLabel 574 Left = 8 575 Height = 20 576 Top = 16 577 Width = 125 578 Caption = 'Special cells count:' 579 ParentColor = False 517 object RadioGroupGrowCells: TRadioGroup 518 Left = 15 519 Height = 105 520 Top = 104 521 Width = 312 522 AutoFill = True 523 Caption = 'Growing cells' 524 ChildSizing.LeftRightSpacing = 6 525 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 526 ChildSizing.EnlargeVertical = crsHomogenousChildResize 527 ChildSizing.ShrinkHorizontal = crsScaleChilds 528 ChildSizing.ShrinkVertical = crsScaleChilds 529 ChildSizing.Layout = cclLeftToRightThenTopToBottom 530 ChildSizing.ControlsPerLine = 1 531 ClientHeight = 80 532 ClientWidth = 308 533 Items.Strings = ( 534 'None' 535 'Player cities' 536 'Player all' 537 ) 538 TabOrder = 0 539 end 540 object Label6: TLabel 541 Left = 8 542 Height = 20 543 Top = 248 544 Width = 94 545 Caption = 'Win objective:' 546 ParentColor = False 547 end 548 object ComboBoxWinObjective: TComboBox 549 Left = 224 550 Height = 28 551 Top = 244 552 Width = 328 553 ItemHeight = 20 554 Items.Strings = ( 555 'Defeat all oponents' 556 'Defeat all oponents cities' 557 'Capture position' 558 'Stay alive for number of turns' 559 ) 560 OnChange = ComboBoxWinObjectiveChange 561 Style = csDropDownList 562 TabOrder = 1 563 end 564 object RadioGroupGrowAmount: TRadioGroup 565 Left = 15 566 Height = 76 567 Top = 16 568 Width = 305 569 AutoFill = True 570 Caption = 'Per turn grow amount' 571 ChildSizing.LeftRightSpacing = 6 572 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 573 ChildSizing.EnlargeVertical = crsHomogenousChildResize 574 ChildSizing.ShrinkHorizontal = crsScaleChilds 575 ChildSizing.ShrinkVertical = crsScaleChilds 576 ChildSizing.Layout = cclLeftToRightThenTopToBottom 577 ChildSizing.ControlsPerLine = 1 578 ClientHeight = 51 579 ClientWidth = 301 580 Items.Strings = ( 581 'By one' 582 'By square root' 583 ) 584 TabOrder = 2 585 end 586 object CheckBoxFogOfWar: TCheckBox 587 Left = 336 588 Height = 24 589 Top = 24 590 Width = 95 591 Caption = 'Fog of war' 592 TabOrder = 3 593 end 594 object PageControl2: TPageControl 595 Left = 12 596 Height = 78 597 Top = 290 598 Width = 718 599 ActivePage = TabSheetCaptureCities 600 Anchors = [akTop, akLeft, akRight] 601 ShowTabs = False 602 TabIndex = 1 603 TabOrder = 4 604 object TabSheetDefeatEnemies: TTabSheet 580 605 end 581 object SpinEditSpecialCells: TSpinEdit 582 Left = 236 583 Height = 28 584 Top = 8 585 Width = 159 586 MaxValue = 1000 587 MinValue = 1 588 TabOrder = 0 589 Value = 1 606 object TabSheetCaptureCities: TTabSheet 590 607 end 591 end 592 object TabSheetStayAliveTurns: TTabSheet 593 ClientHeight = 74 594 ClientWidth = 716 595 object Label13: TLabel 596 Left = 8 597 Height = 20 598 Top = 16 599 Width = 111 600 Caption = 'Number of turns:' 601 ParentColor = False 608 object TabSheetCaptureCells: TTabSheet 609 ClientHeight = 74 610 ClientWidth = 716 611 object Label14: TLabel 612 Left = 8 613 Height = 20 614 Top = 16 615 Width = 125 616 Caption = 'Special cells count:' 617 ParentColor = False 618 end 619 object SpinEditSpecialCells: TSpinEdit 620 Left = 236 621 Height = 28 622 Top = 8 623 Width = 159 624 MaxValue = 1000 625 MinValue = 1 626 TabOrder = 0 627 Value = 1 628 end 602 629 end 603 object SpinEditTurns: TSpinEdit 604 Left = 236 605 Height = 28 606 Top = 8 607 Width = 159 608 MaxValue = 1000 609 MinValue = 1 610 TabOrder = 0 611 Value = 1 630 object TabSheetStayAliveTurns: TTabSheet 631 ClientHeight = 74 632 ClientWidth = 716 633 object Label13: TLabel 634 Left = 8 635 Height = 20 636 Top = 16 637 Width = 111 638 Caption = 'Number of turns:' 639 ParentColor = False 640 end 641 object SpinEditTurns: TSpinEdit 642 Left = 236 643 Height = 28 644 Top = 8 645 Width = 159 646 MaxValue = 1000 647 MinValue = 1 648 TabOrder = 0 649 Value = 1 650 end 612 651 end 613 652 end … … 665 704 object ActionList1: TActionList 666 705 Images = Core.ImageListSmall 667 left = 568668 top = 296706 left = 464 707 top = 464 669 708 object APlayerModify: TAction 670 709 Caption = 'Modify player' … … 693 732 end 694 733 object OpenPictureDialog1: TOpenPictureDialog 695 left = 568696 top = 360734 left = 602 735 top = 464 697 736 end 698 737 object PopupMenuPlayers: TPopupMenu 699 left = 568700 top = 232738 left = 312 739 top = 464 701 740 object MenuItem1: TMenuItem 702 741 Action = APlayerAdd … … 711 750 end 712 751 object PopupMenuServers: TPopupMenu 713 left = 1 21714 top = 317752 left = 176 753 top = 464 715 754 object MenuItem4: TMenuItem 716 755 Action = AServerAdd
Note:
See TracChangeset
for help on using the changeset viewer.
