Changeset 317 for trunk/Forms/FormNew.lfm
- Timestamp:
- Jun 21, 2024, 12:44:53 PM (2 weeks ago)
- File:
-
- 1 moved
-
trunk/Forms/FormNew.lfm (moved) (moved from trunk/Forms/UFormNew.lfm ) (48 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormNew.lfm
r316 r317 1 1 object FormNew: TFormNew 2 Left = 4 783 Height = 7454 Top = 5 265 Width = 12 112 Left = 449 3 Height = 688 4 Top = 511 5 Width = 1209 6 6 Caption = 'New game' 7 ClientHeight = 7458 ClientWidth = 12 117 ClientHeight = 688 8 ClientWidth = 1209 9 9 Constraints.MinHeight = 502 10 10 Constraints.MinWidth = 667 11 11 DesignTimePPI = 144 12 OnClose = FormClose13 12 OnCreate = FormCreate 14 13 OnDestroy = FormDestroy 15 14 OnShow = FormShow 16 15 Position = poMainFormCenter 17 LCLVersion = ' 2.0.2.0'16 LCLVersion = '3.4.0.0' 18 17 object PageControl1: TPageControl 19 18 Left = 4 20 Height = 63519 Height = 578 21 20 Top = 60 22 Width = 80 623 ActivePage = TabSheet Rules21 Width = 804 22 ActivePage = TabSheetPlayers 24 23 Align = alClient 25 24 BorderSpacing.Around = 4 26 25 ParentFont = False 27 TabIndex = 326 TabIndex = 1 28 27 TabOrder = 0 29 28 OnChange = PageControl1Change 30 29 object TabSheetMode: TTabSheet 31 30 Caption = 'Mode' 32 ClientHeight = 5 9533 ClientWidth = 79 631 ClientHeight = 538 32 ClientWidth = 794 34 33 ParentFont = False 35 34 object Panel3: TPanel 36 35 Left = 0 37 Height = 5 9636 Height = 538 38 37 Top = 0 39 Width = 79 638 Width = 794 40 39 Align = alClient 41 40 BevelOuter = bvNone 42 ClientHeight = 5 9643 ClientWidth = 79 641 ClientHeight = 538 42 ClientWidth = 794 44 43 ParentFont = False 45 44 TabOrder = 0 … … 51 50 Caption = 'Local' 52 51 Checked = True 53 OnChange = RadioButtonModeLocalChange54 52 ParentFont = False 55 53 TabOrder = 0 56 54 TabStop = True 55 OnChange = RadioButtonModeLocalChange 57 56 end 58 57 object RadioButtonModeNetworkServer: TRadioButton … … 60 59 Height = 30 61 60 Top = 48 62 Width = 15 661 Width = 155 63 62 Caption = 'Network server' 63 ParentFont = False 64 TabOrder = 1 64 65 OnChange = RadioButtonModeLocalChange 65 ParentFont = False66 TabOrder = 167 66 end 68 67 object RadioButtonModeNetworkClient: TRadioButton … … 70 69 Height = 30 71 70 Top = 152 72 Width = 1 5171 Width = 149 73 72 Caption = 'Network client' 73 ParentFont = False 74 TabOrder = 2 74 75 OnChange = RadioButtonModeLocalChange 75 ParentFont = False76 TabOrder = 277 76 end 78 77 object EditServerAddress: TEdit … … 97 96 Height = 26 98 97 Top = 88 99 Width = 4 198 Width = 40 100 99 Caption = 'Port:' 101 100 ParentColor = False … … 113 112 object ListViewServers: TListView 114 113 Left = 26 115 Height = 3 65114 Height = 307 116 115 Top = 181 117 116 Width = 334 … … 142 141 Left = 26 143 142 Height = 31 144 Top = 557143 Top = 499 145 144 Width = 94 146 145 Action = AServerAdd … … 152 151 Left = 240 153 152 Height = 31 154 Top = 557153 Top = 499 155 154 Width = 94 156 155 Action = AServerRemove … … 162 161 Left = 136 163 162 Height = 30 164 Top = 556163 Top = 498 165 164 Width = 94 166 165 Action = AServerModify … … 173 172 object TabSheetPlayers: TTabSheet 174 173 Caption = 'Players' 175 ClientHeight = 5 95176 ClientWidth = 79 6174 ClientHeight = 538 175 ClientWidth = 794 177 176 ParentFont = False 178 177 object Panel2: TPanel 179 178 Left = 0 180 Height = 5 96179 Height = 538 181 180 Top = 0 182 Width = 79 6181 Width = 794 183 182 Align = alClient 184 183 BevelOuter = bvNone … … 189 188 object TabSheetMap: TTabSheet 190 189 Caption = 'Map' 191 ClientHeight = 5 95192 ClientWidth = 79 6190 ClientHeight = 538 191 ClientWidth = 794 193 192 OnShow = TabSheetMapShow 194 193 ParentFont = False 195 194 object Panel1: TPanel 196 195 Left = 0 197 Height = 5 96196 Height = 538 198 197 Top = 0 199 Width = 79 6198 Width = 794 200 199 Align = alClient 201 200 BevelOuter = bvNone 202 ClientHeight = 5 96203 ClientWidth = 79 6201 ClientHeight = 538 202 ClientWidth = 794 204 203 ParentFont = False 205 204 TabOrder = 0 … … 208 207 Height = 26 209 208 Top = 10 210 Width = 9 5209 Width = 94 211 210 Caption = 'Map width:' 212 211 ParentColor = False … … 217 216 Height = 26 218 217 Top = 58 219 Width = 10 2218 Width = 101 220 219 Caption = 'Map height:' 221 220 ParentColor = False … … 248 247 Height = 58 249 248 Top = 8 250 Width = 54 5249 Width = 543 251 250 Max = 100 252 251 Min = 2 … … 262 261 Height = 58 263 262 Top = 49 264 Width = 54 5263 Width = 543 265 264 Max = 100 266 265 Min = 2 … … 276 275 Height = 26 277 276 Top = 104 278 Width = 8 3277 Width = 82 279 278 Caption = 'Grid type:' 280 279 ParentColor = False … … 283 282 object ComboBoxGridType: TComboBox 284 283 Left = 146 285 Height = 28284 Height = 38 286 285 Top = 104 287 286 Width = 304 … … 294 293 'Isometric' 295 294 ) 296 OnChange = ComboBoxGridTypeChange297 295 ParentFont = False 298 296 Style = csDropDownList 299 297 TabOrder = 4 298 OnChange = ComboBoxGridTypeChange 300 299 end 301 300 object ComboBoxMapShape: TComboBox 302 301 Left = 146 303 Height = 28302 Height = 38 304 303 Top = 144 305 304 Width = 304 … … 310 309 'Triangular' 311 310 ) 312 OnChange = ComboBoxMapShapeChange313 311 ParentFont = False 314 312 Style = csDropDownList 315 313 TabOrder = 5 314 OnChange = ComboBoxMapShapeChange 316 315 end 317 316 object Label8: TLabel … … 328 327 Height = 26 329 328 Top = 248 330 Width = 308329 Width = 543 331 330 Anchors = [akTop, akLeft, akRight] 332 331 AutoSize = False 333 332 Caption = 'Symetric map' 333 ParentFont = False 334 TabOrder = 6 334 335 OnChange = CheckBoxSymetricMapChange 335 ParentFont = False336 TabOrder = 6337 336 end 338 337 object SpinEditVoidPercent: TSpinEdit … … 353 352 Width = 189 354 353 Caption = 'Inaccessible places' 354 ParentFont = False 355 TabOrder = 8 355 356 OnChange = CheckBoxVoidChange 356 ParentFont = False357 TabOrder = 8358 357 end 359 358 object CheckBoxCity: TCheckBox … … 361 360 Height = 30 362 361 Top = 368 363 Width = 7 3362 Width = 72 364 363 Caption = 'Cities' 364 ParentFont = False 365 TabOrder = 9 365 366 OnChange = CheckBoxCityChange 366 ParentFont = False367 TabOrder = 9368 367 end 369 368 object SpinEditCityPercent: TSpinEdit … … 411 410 Height = 26 412 411 Top = 496 413 Width = 22 7412 Width = 225 414 413 Caption = 'Max random neutral units:' 415 414 ParentColor = False … … 420 419 Height = 43 421 420 Top = 184 422 Width = 5 30421 Width = 543 423 422 Anchors = [akTop, akLeft, akRight] 423 ParentFont = False 424 TabOrder = 12 424 425 OnChange = EditImageFileChange 425 ParentFont = False426 TabOrder = 12427 426 end 428 427 object ButtonImageBrowse: TButton 429 Left = 6 81428 Left = 679 430 429 Height = 38 431 430 Top = 190 … … 433 432 Anchors = [akTop, akRight] 434 433 Caption = 'Browse' 434 ParentFont = False 435 TabOrder = 13 435 436 OnClick = ButtonImageBrowseClick 436 ParentFont = False437 TabOrder = 13438 437 end 439 438 object Label9: TLabel … … 450 449 Height = 30 451 450 Top = 408 452 Width = 21 2451 Width = 211 453 452 Caption = 'Bridges between cells' 453 ParentFont = False 454 TabOrder = 14 454 455 OnChange = CheckBoxBridgesChange 455 ParentFont = False456 TabOrder = 14457 456 end 458 457 object SpinEditMaxPower: TSpinEdit … … 472 471 Height = 26 473 472 Top = 448 474 Width = 15 6473 Width = 155 475 474 Caption = 'Max units per cell:' 476 475 ParentColor = False … … 481 480 Height = 26 482 481 Top = 283 483 Width = 308482 Width = 543 484 483 Anchors = [akTop, akLeft, akRight] 485 484 AutoSize = False 486 485 Caption = 'Cyclic map' 486 ParentFont = False 487 TabOrder = 16 487 488 OnChange = CheckBoxCyclicMapChange 488 ParentFont = False489 TabOrder = 16490 489 end 491 490 object Image1: TImage … … 493 492 Height = 316 494 493 Top = 272 495 Width = 359494 Width = 542 496 495 Anchors = [akTop, akLeft, akRight] 497 496 OnResize = Image1Resize … … 512 511 Width = 154 513 512 Caption = 'Randomize' 513 ParentFont = False 514 TabOrder = 17 514 515 OnClick = ButtonRandomizeClick 515 ParentFont = False516 TabOrder = 17517 516 end 518 517 end … … 520 519 object TabSheetRules: TTabSheet 521 520 Caption = 'Rules' 522 ClientHeight = 5 95523 ClientWidth = 79 6521 ClientHeight = 538 522 ClientWidth = 794 524 523 ParentFont = False 525 524 object Panel4: TPanel 526 525 Left = 0 527 Height = 5 95526 Height = 538 528 527 Top = 0 529 Width = 79 6528 Width = 794 530 529 Align = alClient 531 530 BevelOuter = bvNone 532 ClientHeight = 5 95533 ClientWidth = 79 6531 ClientHeight = 538 532 ClientWidth = 794 534 533 ParentFont = False 535 534 TabOrder = 0 … … 562 561 Height = 26 563 562 Top = 248 564 Width = 1 20563 Width = 119 565 564 Caption = 'Win objective:' 566 565 ParentColor = False … … 579 578 'Stay alive for number of turns' 580 579 ) 581 OnChange = ComboBoxWinObjectiveChange582 580 ParentFont = False 583 581 Style = csDropDownList 584 582 TabOrder = 1 583 OnChange = ComboBoxWinObjectiveChange 585 584 end 586 585 object RadioGroupGrowAmount: TRadioGroup … … 620 619 Height = 78 621 620 Top = 290 622 Width = 77 3621 Width = 771 623 622 ActivePage = TabSheetCaptureEntireMap 624 623 Anchors = [akTop, akLeft, akRight] … … 635 634 object TabSheetCaptureCells: TTabSheet 636 635 ClientHeight = 74 637 ClientWidth = 76 3636 ClientWidth = 761 638 637 ParentFont = False 639 638 object Label14: TLabel 640 639 Left = 8 641 Height = 2 0640 Height = 26 642 641 Top = 16 643 Width = 1 25642 Width = 161 644 643 Caption = 'Special cells count:' 645 644 ParentColor = False … … 648 647 object SpinEditSpecialCells: TSpinEdit 649 648 Left = 236 650 Height = 28649 Height = 43 651 650 Top = 8 652 651 Width = 158 … … 660 659 object TabSheetStayAliveTurns: TTabSheet 661 660 ClientHeight = 74 662 ClientWidth = 76 3661 ClientWidth = 761 663 662 ParentFont = False 664 663 object Label13: TLabel 665 664 Left = 8 666 Height = 2 0665 Height = 26 667 666 Top = 16 668 Width = 1 11667 Width = 146 669 668 Caption = 'Number of turns:' 670 669 ParentColor = False … … 673 672 object SpinEditTurns: TSpinEdit 674 673 Left = 236 675 Height = 28674 Height = 43 676 675 Top = 8 677 676 Width = 158 … … 696 695 Left = 0 697 696 Height = 46 698 Top = 6 99699 Width = 12 11697 Top = 642 698 Width = 1209 700 699 Align = alBottom 701 700 BevelOuter = bvNone 702 701 ClientHeight = 46 703 ClientWidth = 12 11702 ClientWidth = 1209 704 703 ParentFont = False 705 704 TabOrder = 1 706 705 object ButtonOk: TButton 707 Left = 102 4706 Left = 1022 708 707 Height = 25 709 708 Top = 7 … … 712 711 Caption = 'Ok' 713 712 ModalResult = 1 714 OnClick = ButtonOkClick715 713 ParentFont = False 716 714 TabOrder = 0 715 OnClick = ButtonOkClick 717 716 end 718 717 object ButtonCancel: TButton 719 Left = 112 7718 Left = 1125 720 719 Height = 25 721 720 Top = 7 … … 729 728 end 730 729 object PanelChat: TPanel 731 Left = 8 20732 Height = 643730 Left = 818 731 Height = 586 733 732 Top = 56 734 733 Width = 391 … … 739 738 end 740 739 object Splitter1: TSplitter 741 Left = 81 4742 Height = 643740 Left = 812 741 Height = 586 743 742 Top = 56 744 743 Width = 6 … … 750 749 Height = 56 751 750 Top = 0 752 Width = 12 11751 Width = 1209 753 752 Align = alTop 754 753 BevelOuter = bvNone 755 754 ClientHeight = 56 756 ClientWidth = 12 11755 ClientWidth = 1209 757 756 ParentFont = False 758 757 TabOrder = 4 … … 761 760 Height = 26 762 761 Top = 16 763 Width = 12 1762 Width = 120 764 763 Caption = 'Game system:' 765 764 ParentColor = False … … 772 771 Width = 254 773 772 ItemHeight = 0 774 OnChange = ComboBoxGameSystemChange775 773 ParentFont = False 776 774 Style = csDropDownList 777 775 TabOrder = 0 776 OnChange = ComboBoxGameSystemChange 778 777 end 779 778 object ButtonGameSystems: TButton … … 783 782 Width = 113 784 783 Caption = 'Manage' 785 OnClick = ButtonGameSystemsClick786 784 ParentFont = False 787 785 TabOrder = 1 786 OnClick = ButtonGameSystemsClick 788 787 end 789 788 end 790 789 object ActionList1: TActionList 791 790 Images = Core.ImageListSmall 792 left = 864793 top = 216791 Left = 864 792 Top = 216 794 793 object AServerAdd: TAction 795 794 Caption = 'Add' … … 806 805 end 807 806 object OpenPictureDialog1: TOpenPictureDialog 808 left = 864809 top = 360807 Left = 864 808 Top = 360 810 809 end 811 810 object PopupMenuServers: TPopupMenu 812 left = 864813 top = 136811 Left = 864 812 Top = 136 814 813 object MenuItem4: TMenuItem 815 814 Action = AServerAdd … … 825 824 Interval = 500 826 825 OnTimer = TimerMapPreviewTimer 827 left = 864828 top = 446826 Left = 864 827 Top = 446 829 828 end 830 829 end
Note:
See TracChangeset
for help on using the changeset viewer.
