Changeset 364 for trunk/Forms/FormNew.lfm
- Timestamp:
- Jan 1, 2025, 1:04:50 AM (5 days ago)
- File:
-
- 1 edited
-
trunk/Forms/FormNew.lfm (modified) (63 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormNew.lfm
r363 r364 1 1 object FormNew: TFormNew 2 2 Left = 412 3 Height = 6623 Height = 794 4 4 Top = 155 5 Width = 1 0155 Width = 1218 6 6 Caption = 'New game' 7 ClientHeight = 6628 ClientWidth = 1 0159 Constraints.MinHeight = 41810 Constraints.MinWidth = 55611 DesignTimePPI = 1 207 ClientHeight = 794 8 ClientWidth = 1218 9 Constraints.MinHeight = 502 10 Constraints.MinWidth = 667 11 DesignTimePPI = 144 12 12 OnCreate = FormCreate 13 13 OnDestroy = FormDestroy … … 16 16 LCLVersion = '3.6.0.0' 17 17 object PageControl1: TPageControl 18 Left = 319 Height = 56420 Top = 5021 Width = 67818 Left = 4 19 Height = 676 20 Top = 60 21 Width = 813 22 22 ActivePage = TabSheetMap 23 23 Align = alClient 24 BorderSpacing.Around = 324 BorderSpacing.Around = 4 25 25 ParentFont = False 26 26 TabIndex = 2 … … 29 29 object TabSheetMode: TTabSheet 30 30 Caption = 'Mode' 31 ClientHeight = 53132 ClientWidth = 67031 ClientHeight = 636 32 ClientWidth = 803 33 33 ParentFont = False 34 34 object Panel3: TPanel 35 35 Left = 0 36 Height = 53136 Height = 636 37 37 Top = 0 38 Width = 67038 Width = 803 39 39 Align = alClient 40 40 BevelOuter = bvNone 41 ClientHeight = 53142 ClientWidth = 67041 ClientHeight = 636 42 ClientWidth = 803 43 43 ParentFont = False 44 44 TabOrder = 0 45 45 object RadioButtonModeLocal: TRadioButton 46 Left = 847 Height = 2448 Top = 1 249 Width = 5646 Left = 10 47 Height = 30 48 Top = 14 49 Width = 70 50 50 Caption = 'Local' 51 51 Checked = True … … 56 56 end 57 57 object RadioButtonModeNetworkServer: TRadioButton 58 Left = 859 Height = 2460 Top = 4 061 Width = 1 2058 Left = 10 59 Height = 30 60 Top = 48 61 Width = 155 62 62 Caption = 'Network server' 63 63 ParentFont = False … … 66 66 end 67 67 object RadioButtonModeNetworkClient: TRadioButton 68 Left = 869 Height = 2470 Top = 1 3371 Width = 1 1768 Left = 10 69 Height = 30 70 Top = 160 71 Width = 149 72 72 Caption = 'Network client' 73 73 ParentFont = False … … 76 76 end 77 77 object EditServerAddress: TEdit 78 Left = 2 079 Height = 2880 Top = 9381 Width = 18378 Left = 24 79 Height = 43 80 Top = 112 81 Width = 220 82 82 ParentFont = False 83 83 TabOrder = 3 84 84 end 85 85 object SpinEditServerPort: TSpinEdit 86 Left = 2 1387 Height = 2888 Top = 9389 Width = 6686 Left = 256 87 Height = 43 88 Top = 112 89 Width = 79 90 90 MaxValue = 65535 91 91 ParentFont = False … … 93 93 end 94 94 object Label11: TLabel 95 Left = 2 1396 Height = 2 097 Top = 6798 Width = 2995 Left = 256 96 Height = 26 97 Top = 80 98 Width = 40 99 99 Caption = 'Port:' 100 100 ParentColor = False … … 102 102 end 103 103 object Label12: TLabel 104 Left = 2 0105 Height = 2 0106 Top = 67107 Width = 56104 Left = 24 105 Height = 26 106 Top = 80 107 Width = 74 108 108 Caption = 'Address:' 109 109 ParentColor = False … … 111 111 end 112 112 object ListViewServers: TListView 113 Left = 2 2114 Height = 3 20115 Top = 167116 Width = 278113 Left = 26 114 Height = 383 115 Top = 200 116 Width = 334 117 117 Anchors = [akTop, akLeft, akBottom] 118 118 Columns = < 119 119 item 120 120 Caption = 'Name' 121 Width = 83121 Width = 100 122 122 end 123 123 item 124 124 Caption = 'Address' 125 Width = 182125 Width = 219 126 126 end> 127 127 MultiSelect = True … … 139 139 end 140 140 object Button1: TButton 141 Left = 2 2142 Height = 3 2143 Top = 493144 Width = 78141 Left = 26 142 Height = 38 143 Top = 591 144 Width = 94 145 145 Action = AServerAdd 146 146 Anchors = [akLeft, akBottom] … … 149 149 end 150 150 object Button2: TButton 151 Left = 2 07152 Height = 3 2153 Top = 493154 Width = 78151 Left = 248 152 Height = 38 153 Top = 591 154 Width = 94 155 155 Action = AServerRemove 156 156 Anchors = [akLeft, akBottom] … … 159 159 end 160 160 object Button3: TButton 161 Left = 1 13162 Height = 3 2163 Top = 493164 Width = 78161 Left = 136 162 Height = 38 163 Top = 591 164 Width = 94 165 165 Action = AServerModify 166 166 Anchors = [akLeft, akBottom] … … 172 172 object TabSheetPlayers: TTabSheet 173 173 Caption = 'Players' 174 ClientHeight = 531175 ClientWidth = 670174 ClientHeight = 636 175 ClientWidth = 803 176 176 ParentFont = False 177 177 object Panel2: TPanel 178 178 Left = 0 179 Height = 531179 Height = 636 180 180 Top = 0 181 Width = 670181 Width = 803 182 182 Align = alClient 183 183 BevelOuter = bvNone … … 188 188 object TabSheetMap: TTabSheet 189 189 Caption = 'Map' 190 ClientHeight = 531191 ClientWidth = 670190 ClientHeight = 636 191 ClientWidth = 803 192 192 OnShow = TabSheetMapShow 193 193 ParentFont = False 194 194 object Panel1: TPanel 195 195 Left = 0 196 Height = 531196 Height = 636 197 197 Top = 0 198 Width = 670198 Width = 803 199 199 Align = alClient 200 200 BevelOuter = bvNone 201 ClientHeight = 531202 ClientWidth = 670201 ClientHeight = 636 202 ClientWidth = 803 203 203 ParentFont = False 204 204 TabOrder = 0 205 205 object Label1: TLabel 206 Left = 7207 Height = 2 0208 Top = 8209 Width = 74206 Left = 8 207 Height = 26 208 Top = 10 209 Width = 94 210 210 Caption = 'Map width:' 211 211 ParentColor = False … … 213 213 end 214 214 object Label2: TLabel 215 Left = 7216 Height = 2 0217 Top = 48218 Width = 79215 Left = 8 216 Height = 26 217 Top = 58 218 Width = 101 219 219 Caption = 'Map height:' 220 220 ParentColor = False … … 222 222 end 223 223 object SpinEditMapSizeX: TSpinEdit 224 Left = 1 07225 Height = 28226 Top = 3227 Width = 82224 Left = 128 225 Height = 43 226 Top = 4 227 Width = 98 228 228 MinValue = 2 229 229 OnChange = SpinEditMapSizeXChange … … 233 233 end 234 234 object SpinEditMapSizeY: TSpinEdit 235 Left = 1 07236 Height = 28237 Top = 46238 Width = 82235 Left = 128 236 Height = 43 237 Top = 55 238 Width = 98 239 239 MinValue = 2 240 240 OnChange = SpinEditMapSizeYChange … … 244 244 end 245 245 object TrackBarSizeX: TTrackBar 246 Left = 2 00247 Height = 48248 Top = 7249 Width = 461246 Left = 240 247 Height = 58 248 Top = 8 249 Width = 552 250 250 Max = 100 251 251 Min = 2 … … 258 258 end 259 259 object TrackBarSizeY: TTrackBar 260 Left = 2 00261 Height = 48262 Top = 4 1263 Width = 461260 Left = 240 261 Height = 58 262 Top = 49 263 Width = 552 264 264 Max = 100 265 265 Min = 2 … … 272 272 end 273 273 object Label5: TLabel 274 Left = 7275 Height = 2 0276 Top = 87277 Width = 64274 Left = 8 275 Height = 26 276 Top = 106 277 Width = 82 278 278 Caption = 'Grid type:' 279 279 ParentColor = False … … 281 281 end 282 282 object ComboBoxGridType: TComboBox 283 Left = 1 22284 Height = 28285 Top = 87286 Width = 253287 ItemHeight = 20283 Left = 146 284 Height = 38 285 Top = 104 286 Width = 304 287 ItemHeight = 0 288 288 Items.Strings = ( 289 289 'Hexagon vertical' … … 300 300 end 301 301 object ComboBoxMapShape: TComboBox 302 Left = 1 22303 Height = 28304 Top = 1 20305 Width = 253306 ItemHeight = 20302 Left = 146 303 Height = 38 304 Top = 144 305 Width = 304 306 ItemHeight = 0 307 307 Items.Strings = ( 308 308 'Hexagonal' … … 316 316 end 317 317 object Label8: TLabel 318 Left = 7319 Height = 2 0320 Top = 1 20321 Width = 76318 Left = 8 319 Height = 26 320 Top = 148 321 Width = 98 322 322 Caption = 'Map shape:' 323 323 ParentColor = False … … 325 325 end 326 326 object CheckBoxSymetricMap: TCheckBox 327 Left = 7328 Height = 24329 Top = 2 07330 Width = 1 12327 Left = 8 328 Height = 30 329 Top = 248 330 Width = 142 331 331 Caption = 'Symetric map' 332 332 ParentFont = False … … 335 335 end 336 336 object SpinEditVoidPercent: TSpinEdit 337 Left = 180338 Height = 28339 Top = 262340 Width = 88337 Left = 216 338 Height = 43 339 Top = 314 340 Width = 106 341 341 MinValue = 1 342 342 OnChange = SpinEditVoidPercentChange … … 346 346 end 347 347 object CheckBoxVoid: TCheckBox 348 Left = 7349 Height = 24350 Top = 265351 Width = 1 46348 Left = 8 349 Height = 30 350 Top = 320 351 Width = 189 352 352 Caption = 'Inaccessible places' 353 353 ParentFont = False … … 356 356 end 357 357 object CheckBoxCity: TCheckBox 358 Left = 7359 Height = 24360 Top = 3 07361 Width = 57358 Left = 8 359 Height = 30 360 Top = 366 361 Width = 72 362 362 Caption = 'Cities' 363 363 ParentFont = False … … 366 366 end 367 367 object SpinEditCityPercent: TSpinEdit 368 Left = 180369 Height = 28370 Top = 3 00371 Width = 88368 Left = 216 369 Height = 43 370 Top = 360 371 Width = 106 372 372 MinValue = 1 373 373 OnChange = SpinEditCityPercentChange … … 377 377 end 378 378 object Label4: TLabel 379 Left = 276380 Height = 2 0381 Top = 3 07382 Width = 1 2379 Left = 331 380 Height = 26 381 Top = 366 382 Width = 15 383 383 Caption = '%' 384 384 ParentColor = False … … 386 386 end 387 387 object Label3: TLabel 388 Left = 276389 Height = 2 0390 Top = 270391 Width = 1 2388 Left = 331 389 Height = 26 390 Top = 320 391 Width = 15 392 392 Caption = '%' 393 393 ParentColor = False … … 395 395 end 396 396 object SpinEditNeutralUnits: TSpinEdit 397 Left = 260398 Height = 28399 Top = 4 07400 Width = 82397 Left = 312 398 Height = 43 399 Top = 488 400 Width = 98 401 401 MaxValue = 99 402 402 OnChange = SpinEditNeutralUnitsChange … … 406 406 end 407 407 object Label7: TLabel 408 Left = 7409 Height = 2 0410 Top = 4 13411 Width = 172408 Left = 8 409 Height = 26 410 Top = 496 411 Width = 225 412 412 Caption = 'Max random neutral units:' 413 413 ParentColor = False … … 415 415 end 416 416 object EditImageFile: TEdit 417 Left = 1 20418 Height = 28419 Top = 1 53420 Width = 447417 Left = 146 418 Height = 43 419 Top = 184 420 Width = 533 421 421 Anchors = [akTop, akLeft, akRight] 422 422 ParentFont = False … … 425 425 end 426 426 object ButtonImageBrowse: TButton 427 Left = 574428 Height = 32429 Top = 1 52430 Width = 82427 Left = 688 428 Height = 43 429 Top = 184 430 Width = 98 431 431 Anchors = [akTop, akRight] 432 432 Caption = 'Browse' … … 436 436 end 437 437 object Label9: TLabel 438 Left = 7439 Height = 2 0440 Top = 1 53441 Width = 70438 Left = 8 439 Height = 26 440 Top = 192 441 Width = 90 442 442 Caption = 'Image file:' 443 443 ParentColor = False … … 445 445 end 446 446 object CheckBoxBridges: TCheckBox 447 Left = 7448 Height = 24449 Top = 340450 Width = 165447 Left = 8 448 Height = 30 449 Top = 408 450 Width = 211 451 451 Caption = 'Bridges between cells' 452 452 ParentFont = False … … 455 455 end 456 456 object SpinEditMaxPower: TSpinEdit 457 Left = 260458 Height = 28459 Top = 367460 Width = 82457 Left = 312 458 Height = 43 459 Top = 440 460 Width = 98 461 461 MaxValue = 1000000 462 462 MinValue = 1 … … 467 467 end 468 468 object Label10: TLabel 469 Left = 7470 Height = 2 0471 Top = 373472 Width = 1 19469 Left = 8 470 Height = 26 471 Top = 448 472 Width = 155 473 473 Caption = 'Max units per cell:' 474 474 ParentColor = False … … 476 476 end 477 477 object CheckBoxCyclicMap: TCheckBox 478 Left = 7479 Height = 24480 Top = 2 36481 Width = 93478 Left = 8 479 Height = 30 480 Top = 283 481 Width = 117 482 482 Caption = 'Cyclic map' 483 483 ParentFont = False … … 486 486 end 487 487 object Image1: TImage 488 Left = 349489 Height = 3 01490 Top = 2 27491 Width = 3 13488 Left = 419 489 Height = 360 490 Top = 272 491 Width = 374 492 492 Anchors = [akTop, akLeft, akRight, akBottom] 493 493 OnResize = Image1Resize 494 494 end 495 495 object Label15: TLabel 496 Left = 349497 Height = 2 0498 Top = 2 00499 Width = 54496 Left = 419 497 Height = 26 498 Top = 240 499 Width = 71 500 500 Caption = 'Preview:' 501 501 ParentColor = False … … 503 503 end 504 504 object ButtonRandomize: TButton 505 Left = 8506 Height = 3 2507 Top = 450508 Width = 1 28505 Left = 10 506 Height = 38 507 Top = 540 508 Width = 154 509 509 Caption = 'Randomize' 510 510 ParentFont = False … … 516 516 object TabSheetRules: TTabSheet 517 517 Caption = 'Rules' 518 ClientHeight = 531519 ClientWidth = 670518 ClientHeight = 636 519 ClientWidth = 803 520 520 ParentFont = False 521 521 object Panel4: TPanel 522 522 Left = 0 523 Height = 531523 Height = 636 524 524 Top = 0 525 Width = 670525 Width = 803 526 526 Align = alClient 527 527 BevelOuter = bvNone 528 ClientHeight = 531529 ClientWidth = 670528 ClientHeight = 636 529 ClientWidth = 803 530 530 ParentFont = False 531 531 TabOrder = 0 532 532 object RadioGroupGrowCells: TRadioGroup 533 Left = 1 2534 Height = 1 07535 Top = 1 00536 Width = 260533 Left = 14 534 Height = 128 535 Top = 120 536 Width = 312 537 537 AutoFill = True 538 538 Caption = 'Growing cells' … … 544 544 ChildSizing.Layout = cclLeftToRightThenTopToBottom 545 545 ChildSizing.ControlsPerLine = 1 546 ClientHeight = 82547 ClientWidth = 256546 ClientHeight = 101 547 ClientWidth = 310 548 548 Items.Strings = ( 549 549 'None' … … 555 555 end 556 556 object Label6: TLabel 557 Left = 7558 Height = 2 0559 Top = 2 22560 Width = 94557 Left = 8 558 Height = 26 559 Top = 266 560 Width = 119 561 561 Caption = 'Win objective:' 562 562 ParentColor = False … … 564 564 end 565 565 object ComboBoxWinObjective: TComboBox 566 Left = 180567 Height = 28568 Top = 2 22569 Width = 273570 ItemHeight = 20566 Left = 216 567 Height = 38 568 Top = 266 569 Width = 328 570 ItemHeight = 0 571 571 Items.Strings = ( 572 572 'Defeat all oponents' … … 581 581 end 582 582 object RadioGroupGrowAmount: TRadioGroup 583 Left = 1 2584 Height = 77585 Top = 1 3586 Width = 254583 Left = 14 584 Height = 92 585 Top = 16 586 Width = 305 587 587 AutoFill = True 588 588 Caption = 'Per turn grow amount' … … 594 594 ChildSizing.Layout = cclLeftToRightThenTopToBottom 595 595 ChildSizing.ControlsPerLine = 1 596 ClientHeight = 52597 ClientWidth = 250596 ClientHeight = 65 597 ClientWidth = 303 598 598 Items.Strings = ( 599 599 'By one' … … 604 604 end 605 605 object CheckBoxFogOfWar: TCheckBox 606 Left = 280607 Height = 24608 Top = 2 0609 Width = 92606 Left = 336 607 Height = 30 608 Top = 24 609 Width = 115 610 610 Caption = 'Fog of war' 611 611 ParentFont = False … … 613 613 end 614 614 object PageControlWinObjective: TPageControl 615 Left = 1 0616 Height = 92617 Top = 262618 Width = 651615 Left = 12 616 Height = 110 617 Top = 314 618 Width = 780 619 619 ActivePage = TabSheetCaptureEntireMap 620 620 Anchors = [akTop, akLeft, akRight] … … 630 630 end 631 631 object TabSheetCaptureCells: TTabSheet 632 ClientHeight = 84633 ClientWidth = 643632 ClientHeight = 67 633 ClientWidth = 770 634 634 ParentFont = False 635 635 object Label14: TLabel 636 Left = 7637 Height = 2 0638 Top = 1 3639 Width = 1 25636 Left = 8 637 Height = 26 638 Top = 16 639 Width = 161 640 640 Caption = 'Special cells count:' 641 641 ParentColor = False … … 643 643 end 644 644 object SpinEditSpecialCells: TSpinEdit 645 Left = 197646 Height = 28647 Top = 7648 Width = 1 32645 Left = 236 646 Height = 43 647 Top = 8 648 Width = 158 649 649 MaxValue = 1000 650 650 MinValue = 1 … … 655 655 end 656 656 object TabSheetStayAliveTurns: TTabSheet 657 ClientHeight = 84658 ClientWidth = 643657 ClientHeight = 67 658 ClientWidth = 770 659 659 ParentFont = False 660 660 object Label13: TLabel 661 Left = 7662 Height = 2 0663 Top = 1 3664 Width = 1 11661 Left = 8 662 Height = 26 663 Top = 16 664 Width = 146 665 665 Caption = 'Number of turns:' 666 666 ParentColor = False … … 668 668 end 669 669 object SpinEditTurns: TSpinEdit 670 Left = 197671 Height = 28672 Top = 7673 Width = 1 32670 Left = 236 671 Height = 43 672 Top = 8 673 Width = 158 674 674 MaxValue = 1000 675 675 MinValue = 1 … … 691 691 object PanelButtons: TPanel 692 692 Left = 0 693 Height = 45694 Top = 617695 Width = 1 015693 Height = 54 694 Top = 740 695 Width = 1218 696 696 Align = alBottom 697 697 BevelOuter = bvNone 698 ClientHeight = 45699 ClientWidth = 1 015698 ClientHeight = 54 699 ClientWidth = 1218 700 700 ParentFont = False 701 701 TabOrder = 1 702 702 object ButtonOk: TButton 703 Left = 915704 Height = 3 2705 Top = 6706 Width = 88703 Left = 1098 704 Height = 38 705 Top = 8 706 Width = 106 707 707 Anchors = [akRight, akBottom] 708 708 Caption = 'Ok' … … 713 713 end 714 714 object ButtonCancel: TButton 715 Left = 806716 Height = 3 2717 Top = 6718 Width = 95715 Left = 967 716 Height = 38 717 Top = 8 718 Width = 114 719 719 Anchors = [akRight, akBottom] 720 720 Caption = 'Cancel' … … 725 725 end 726 726 object PanelChat: TPanel 727 Left = 689728 Height = 570729 Top = 47730 Width = 3 26727 Left = 827 728 Height = 684 729 Top = 56 730 Width = 391 731 731 Align = alRight 732 732 BevelOuter = bvNone … … 735 735 end 736 736 object Splitter1: TSplitter 737 Left = 684738 Height = 570739 Top = 47740 Width = 5737 Left = 821 738 Height = 684 739 Top = 56 740 Width = 6 741 741 Align = alRight 742 742 ResizeAnchor = akRight … … 744 744 object Panel5: TPanel 745 745 Left = 0 746 Height = 47746 Height = 56 747 747 Top = 0 748 Width = 1 015748 Width = 1218 749 749 Align = alTop 750 750 BevelOuter = bvNone 751 ClientHeight = 47752 ClientWidth = 1 015751 ClientHeight = 56 752 ClientWidth = 1218 753 753 ParentFont = False 754 754 TabOrder = 4 755 755 object Label16: TLabel 756 Left = 1 0757 Height = 2 0758 Top = 1 2759 Width = 91756 Left = 12 757 Height = 26 758 Top = 14 759 Width = 120 760 760 Caption = 'Game system:' 761 761 ParentColor = False … … 763 763 end 764 764 object ComboBoxGameSystem: TComboBox 765 Left = 1 47766 Height = 28767 Top = 1 0768 Width = 2 12769 ItemHeight = 20765 Left = 176 766 Height = 42 767 Top = 12 768 Width = 254 769 ItemHeight = 0 770 770 ParentFont = False 771 771 Style = csDropDownList … … 774 774 end 775 775 object ButtonGameSystems: TButton 776 Left = 369777 Height = 3 2778 Top = 8779 Width = 94776 Left = 443 777 Height = 38 778 Top = 10 779 Width = 113 780 780 Caption = 'Manage' 781 781 ParentFont = False … … 786 786 object ActionList1: TActionList 787 787 Images = Core.ImageListSmall 788 Left = 720789 Top = 180788 Left = 864 789 Top = 216 790 790 object AServerAdd: TAction 791 791 Caption = 'Add' … … 802 802 end 803 803 object OpenPictureDialog1: TOpenPictureDialog 804 Left = 720805 Top = 3 00804 Left = 864 805 Top = 360 806 806 end 807 807 object PopupMenuServers: TPopupMenu 808 Left = 720809 Top = 1 13808 Left = 864 809 Top = 136 810 810 object MenuItem4: TMenuItem 811 811 Action = AServerAdd … … 821 821 Interval = 500 822 822 OnTimer = TimerMapPreviewTimer 823 Left = 720824 Top = 372823 Left = 864 824 Top = 446 825 825 end 826 826 end
Note:
See TracChangeset
for help on using the changeset viewer.
