Changeset 325
- Timestamp:
- Jun 25, 2024, 11:18:40 AM (6 months ago)
- Location:
- trunk/Forms
- Files:
-
- 7 edited
-
FormChat.lfm (modified) (3 diffs)
-
FormGameSystem.lfm (modified) (6 diffs)
-
FormNew.lfm (modified) (27 diffs)
-
FormServer.lfm (modified) (1 diff)
-
FormServer.lrj (modified) (1 diff)
-
FormServer.pas (modified) (1 diff)
-
FormSettings.lfm (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/FormChat.lfm
r317 r325 1 1 object FormChat: TFormChat 2 2 Left = 1060 3 Height = 4423 Height = 368 4 4 Top = 536 5 Width = 5275 Width = 439 6 6 Caption = 'Chat' 7 ClientHeight = 4428 ClientWidth = 5277 ClientHeight = 368 8 ClientWidth = 439 9 9 DesignTimePPI = 144 10 10 LCLVersion = '3.4.0.0' 11 11 object MemoChat: TMemo 12 12 Left = 8 13 Height = 36313 Height = 280 14 14 Top = 32 15 Width = 50915 Width = 421 16 16 Anchors = [akTop, akLeft, akRight, akBottom] 17 17 ParentFont = False … … 23 23 Left = 8 24 24 Height = 43 25 Top = 3 9226 Width = 41125 Top = 318 26 Width = 320 27 27 Anchors = [akLeft, akRight, akBottom] 28 28 ParentFont = False … … 31 31 end 32 32 object ButtonMessageSend: TButton 33 Left = 42334 Height = 3 135 Top = 40333 Left = 336 34 Height = 38 35 Top = 320 36 36 Width = 94 37 37 Anchors = [akRight, akBottom] -
trunk/Forms/FormGameSystem.lfm
r317 r325 1 1 object FormGameSystem: TFormGameSystem 2 2 Left = 954 3 Height = 5783 Height = 482 4 4 Top = 479 5 Width = 7815 Width = 651 6 6 Caption = 'Game system' 7 ClientHeight = 5788 ClientWidth = 7817 ClientHeight = 482 8 ClientWidth = 651 9 9 DesignTimePPI = 144 10 10 OnCreate = FormCreate … … 14 14 Left = 160 15 15 Height = 38 16 Top = 52816 Top = 432 17 17 Width = 113 18 18 Anchors = [akLeft, akBottom] … … 25 25 Left = 24 26 26 Height = 38 27 Top = 52827 Top = 432 28 28 Width = 113 29 29 Anchors = [akLeft, akBottom] … … 34 34 end 35 35 object ButtonCancel: TButton 36 Left = 50436 Left = 374 37 37 Height = 38 38 Top = 52838 Top = 432 39 39 Width = 113 40 40 Anchors = [akRight, akBottom] … … 45 45 end 46 46 object ButtonOk: TButton 47 Left = 64647 Left = 516 48 48 Height = 38 49 Top = 52849 Top = 432 50 50 Width = 113 51 51 Anchors = [akRight, akBottom] … … 57 57 object PageControl1: TPageControl 58 58 Left = 16 59 Height = 4 9659 Height = 400 60 60 Top = 16 61 Width = 74362 ActivePage = TabSheet Buildings61 Width = 613 62 ActivePage = TabSheetGeneral 63 63 Anchors = [akTop, akLeft, akRight, akBottom] 64 64 ParentFont = False 65 TabIndex = 365 TabIndex = 0 66 66 TabOrder = 4 67 67 object TabSheetGeneral: TTabSheet 68 68 Caption = 'General' 69 ClientHeight = 45670 ClientWidth = 73369 ClientHeight = 360 70 ClientWidth = 603 71 71 ParentFont = False 72 72 object CheckBoxEmptyCellsNeutral: TCheckBox -
trunk/Forms/FormNew.lfm
r317 r325 1 1 object FormNew: TFormNew 2 Left = 4 493 Height = 6884 Top = 5115 Width = 1 2092 Left = 470 3 Height = 795 4 Top = 353 5 Width = 1096 6 6 Caption = 'New game' 7 ClientHeight = 6888 ClientWidth = 1 2097 ClientHeight = 795 8 ClientWidth = 1096 9 9 Constraints.MinHeight = 502 10 10 Constraints.MinWidth = 667 … … 17 17 object PageControl1: TPageControl 18 18 Left = 4 19 Height = 57819 Height = 677 20 20 Top = 60 21 Width = 80422 ActivePage = TabSheet Players21 Width = 691 22 ActivePage = TabSheetRules 23 23 Align = alClient 24 24 BorderSpacing.Around = 4 25 25 ParentFont = False 26 TabIndex = 126 TabIndex = 3 27 27 TabOrder = 0 28 28 OnChange = PageControl1Change 29 29 object TabSheetMode: TTabSheet 30 30 Caption = 'Mode' 31 ClientHeight = 53832 ClientWidth = 79431 ClientHeight = 637 32 ClientWidth = 681 33 33 ParentFont = False 34 34 object Panel3: TPanel 35 35 Left = 0 36 Height = 53836 Height = 637 37 37 Top = 0 38 Width = 79438 Width = 681 39 39 Align = alClient 40 40 BevelOuter = bvNone 41 ClientHeight = 53842 ClientWidth = 79441 ClientHeight = 637 42 ClientWidth = 681 43 43 ParentFont = False 44 44 TabOrder = 0 … … 68 68 Left = 10 69 69 Height = 30 70 Top = 1 5270 Top = 160 71 71 Width = 149 72 72 Caption = 'Network client' … … 95 95 Left = 256 96 96 Height = 26 97 Top = 8 897 Top = 80 98 98 Width = 40 99 99 Caption = 'Port:' … … 104 104 Left = 24 105 105 Height = 26 106 Top = 8 8106 Top = 80 107 107 Width = 74 108 108 Caption = 'Address:' … … 112 112 object ListViewServers: TListView 113 113 Left = 26 114 Height = 3 07115 Top = 181114 Height = 384 115 Top = 200 116 116 Width = 334 117 117 Anchors = [akTop, akLeft, akBottom] … … 140 140 object Button1: TButton 141 141 Left = 26 142 Height = 3 1143 Top = 499142 Height = 38 143 Top = 592 144 144 Width = 94 145 145 Action = AServerAdd … … 149 149 end 150 150 object Button2: TButton 151 Left = 24 0152 Height = 3 1153 Top = 499151 Left = 248 152 Height = 38 153 Top = 592 154 154 Width = 94 155 155 Action = AServerRemove … … 160 160 object Button3: TButton 161 161 Left = 136 162 Height = 3 0163 Top = 498162 Height = 38 163 Top = 592 164 164 Width = 94 165 165 Action = AServerModify … … 172 172 object TabSheetPlayers: TTabSheet 173 173 Caption = 'Players' 174 ClientHeight = 538175 ClientWidth = 794174 ClientHeight = 637 175 ClientWidth = 681 176 176 ParentFont = False 177 177 object Panel2: TPanel 178 178 Left = 0 179 Height = 538179 Height = 637 180 180 Top = 0 181 Width = 794181 Width = 681 182 182 Align = alClient 183 183 BevelOuter = bvNone … … 188 188 object TabSheetMap: TTabSheet 189 189 Caption = 'Map' 190 ClientHeight = 538191 ClientWidth = 794190 ClientHeight = 637 191 ClientWidth = 681 192 192 OnShow = TabSheetMapShow 193 193 ParentFont = False 194 194 object Panel1: TPanel 195 195 Left = 0 196 Height = 538196 Height = 637 197 197 Top = 0 198 Width = 794198 Width = 681 199 199 Align = alClient 200 200 BevelOuter = bvNone 201 ClientHeight = 538202 ClientWidth = 794201 ClientHeight = 637 202 ClientWidth = 681 203 203 ParentFont = False 204 204 TabOrder = 0 … … 247 247 Height = 58 248 248 Top = 8 249 Width = 543249 Width = 430 250 250 Max = 100 251 251 Min = 2 … … 261 261 Height = 58 262 262 Top = 49 263 Width = 543263 Width = 430 264 264 Max = 100 265 265 Min = 2 … … 327 327 Height = 26 328 328 Top = 248 329 Width = 543329 Width = 430 330 330 Anchors = [akTop, akLeft, akRight] 331 331 AutoSize = False … … 419 419 Height = 43 420 420 Top = 184 421 Width = 543421 Width = 413 422 422 Anchors = [akTop, akLeft, akRight] 423 423 ParentFont = False … … 426 426 end 427 427 object ButtonImageBrowse: TButton 428 Left = 679428 Left = 566 429 429 Height = 38 430 430 Top = 190 … … 480 480 Height = 26 481 481 Top = 283 482 Width = 543482 Width = 430 483 483 Anchors = [akTop, akLeft, akRight] 484 484 AutoSize = False … … 492 492 Height = 316 493 493 Top = 272 494 Width = 542494 Width = 429 495 495 Anchors = [akTop, akLeft, akRight] 496 496 OnResize = Image1Resize … … 519 519 object TabSheetRules: TTabSheet 520 520 Caption = 'Rules' 521 ClientHeight = 538522 ClientWidth = 794521 ClientHeight = 637 522 ClientWidth = 681 523 523 ParentFont = False 524 524 object Panel4: TPanel 525 525 Left = 0 526 Height = 538526 Height = 637 527 527 Top = 0 528 Width = 794528 Width = 681 529 529 Align = alClient 530 530 BevelOuter = bvNone 531 ClientHeight = 538532 ClientWidth = 794531 ClientHeight = 637 532 ClientWidth = 681 533 533 ParentFont = False 534 534 TabOrder = 0 … … 619 619 Height = 78 620 620 Top = 290 621 Width = 771621 Width = 658 622 622 ActivePage = TabSheetCaptureEntireMap 623 623 Anchors = [akTop, akLeft, akRight] … … 634 634 object TabSheetCaptureCells: TTabSheet 635 635 ClientHeight = 74 636 ClientWidth = 761636 ClientWidth = 648 637 637 ParentFont = False 638 638 object Label14: TLabel … … 659 659 object TabSheetStayAliveTurns: TTabSheet 660 660 ClientHeight = 74 661 ClientWidth = 761661 ClientWidth = 648 662 662 ParentFont = False 663 663 object Label13: TLabel … … 694 694 object PanelButtons: TPanel 695 695 Left = 0 696 Height = 46697 Top = 642698 Width = 1 209696 Height = 54 697 Top = 741 698 Width = 1096 699 699 Align = alBottom 700 700 BevelOuter = bvNone 701 ClientHeight = 46702 ClientWidth = 1 209701 ClientHeight = 54 702 ClientWidth = 1096 703 703 ParentFont = False 704 704 TabOrder = 1 705 705 object ButtonOk: TButton 706 Left = 1022707 Height = 25708 Top = 7709 Width = 74706 Left = 981 707 Height = 38 708 Top = 8 709 Width = 106 710 710 Anchors = [akRight, akBottom] 711 711 Caption = 'Ok' … … 716 716 end 717 717 object ButtonCancel: TButton 718 Left = 1125719 Height = 25720 Top = 7721 Width = 74718 Left = 845 719 Height = 38 720 Top = 8 721 Width = 114 722 722 Anchors = [akRight, akBottom] 723 723 Caption = 'Cancel' … … 728 728 end 729 729 object PanelChat: TPanel 730 Left = 818731 Height = 586730 Left = 705 731 Height = 685 732 732 Top = 56 733 733 Width = 391 … … 738 738 end 739 739 object Splitter1: TSplitter 740 Left = 812741 Height = 586740 Left = 699 741 Height = 685 742 742 Top = 56 743 743 Width = 6 … … 749 749 Height = 56 750 750 Top = 0 751 Width = 1 209751 Width = 1096 752 752 Align = alTop 753 753 BevelOuter = bvNone 754 754 ClientHeight = 56 755 ClientWidth = 1 209755 ClientWidth = 1096 756 756 ParentFont = False 757 757 TabOrder = 4 -
trunk/Forms/FormServer.lfm
r317 r325 1 1 object FormServer: TFormServer 2 Left = 10783 Height = 2104 Top = 6155 Width = 4032 Left = 647 3 Height = 303 4 Top = 439 5 Width = 627 6 6 Caption = 'Server' 7 ClientHeight = 2108 ClientWidth = 4037 ClientHeight = 303 8 ClientWidth = 627 9 9 DesignTimePPI = 144 10 10 LCLVersion = '3.4.0.0' 11 object Label1: TLabel 12 Left = 12 13 Height = 26 14 Top = 24 15 Width = 56 16 Caption = 'Name:' 17 ParentColor = False 18 ParentFont = False 19 end 20 object EditName: TEdit 21 Left = 163 22 Height = 43 23 Top = 17 24 Width = 281 11 object ButtonCancel: TButton 12 Left = 362 13 Height = 38 14 Top = 260 15 Width = 113 16 Anchors = [akRight, akBottom] 17 Caption = 'Cancel' 18 ModalResult = 2 25 19 ParentFont = False 26 20 TabOrder = 0 27 21 end 28 object Label2: TLabel 29 Left = 12 30 Height = 26 31 Top = 72 32 Width = 74 33 Caption = 'Address:' 34 ParentColor = False 35 ParentFont = False 36 end 37 object EditAddress: TEdit 38 Left = 163 39 Height = 43 40 Top = 64 41 Width = 283 42 ParentFont = False 43 TabOrder = 1 44 end 45 object Label3: TLabel 46 Left = 12 47 Height = 26 48 Top = 120 49 Width = 40 50 Caption = 'Port:' 51 ParentColor = False 52 ParentFont = False 53 end 54 object SpinEdit1: TSpinEdit 55 Left = 163 56 Height = 43 57 Top = 112 58 Width = 116 59 MaxValue = 65535 60 ParentFont = False 61 TabOrder = 2 62 end 63 object ButtonCancel: TButton 64 Left = 288 65 Height = 37 66 Top = 186 22 object ButtonOk: TButton 23 Left = 497 24 Height = 38 25 Top = 260 67 26 Width = 113 68 Caption = 'Cancel' 69 ModalResult = 2 70 ParentFont = False 71 TabOrder = 3 72 end 73 object ButtonOk: TButton 74 Left = 96 75 Height = 37 76 Top = 186 77 Width = 113 27 Anchors = [akRight, akBottom] 78 28 Caption = 'OK' 79 29 ModalResult = 1 80 30 ParentFont = False 81 TabOrder = 431 TabOrder = 1 82 32 OnClick = ButtonOkClick 83 33 end 34 object ScrollBox1: TScrollBox 35 Left = 8 36 Height = 246 37 Top = 8 38 Width = 610 39 HorzScrollBar.Page = 279 40 VertScrollBar.Page = 155 41 Anchors = [akTop, akLeft, akRight, akBottom] 42 ClientHeight = 244 43 ClientWidth = 608 44 TabOrder = 2 45 object Label1: TLabel 46 Left = 12 47 Height = 26 48 Top = 24 49 Width = 56 50 Caption = 'Name:' 51 ParentColor = False 52 ParentFont = False 53 end 54 object EditName: TEdit 55 Left = 163 56 Height = 43 57 Top = 17 58 Width = 431 59 Anchors = [akTop, akLeft, akRight] 60 ParentFont = False 61 TabOrder = 0 62 end 63 object EditAddress: TEdit 64 Left = 163 65 Height = 43 66 Top = 64 67 Width = 431 68 Anchors = [akTop, akLeft, akRight] 69 ParentFont = False 70 TabOrder = 1 71 end 72 object Label2: TLabel 73 Left = 12 74 Height = 26 75 Top = 72 76 Width = 74 77 Caption = 'Address:' 78 ParentColor = False 79 ParentFont = False 80 end 81 object Label3: TLabel 82 Left = 12 83 Height = 26 84 Top = 120 85 Width = 40 86 Caption = 'Port:' 87 ParentColor = False 88 ParentFont = False 89 end 90 object SpinEdit1: TSpinEdit 91 Left = 163 92 Height = 43 93 Top = 112 94 Width = 116 95 MaxValue = 65535 96 ParentFont = False 97 TabOrder = 2 98 end 99 end 84 100 end -
trunk/Forms/FormServer.lrj
r317 r325 1 1 {"version":1,"strings":[ 2 2 {"hash":94149826,"name":"tformserver.caption","sourcebytes":[83,101,114,118,101,114],"value":"Server"}, 3 {"hash":77089212,"name":"tformserver.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}, 4 {"hash":1339,"name":"tformserver.buttonok.caption","sourcebytes":[79,75],"value":"OK"}, 3 5 {"hash":5538698,"name":"tformserver.label1.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"}, 4 6 {"hash":179883546,"name":"tformserver.label2.caption","sourcebytes":[65,100,100,114,101,115,115,58],"value":"Address:"}, 5 {"hash":5728634,"name":"tformserver.label3.caption","sourcebytes":[80,111,114,116,58],"value":"Port:"}, 6 {"hash":77089212,"name":"tformserver.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}, 7 {"hash":1339,"name":"tformserver.buttonok.caption","sourcebytes":[79,75],"value":"OK"} 7 {"hash":5728634,"name":"tformserver.label3.caption","sourcebytes":[80,111,114,116,58],"value":"Port:"} 8 8 ]} -
trunk/Forms/FormServer.pas
r317 r325 14 14 ButtonCancel: TButton; 15 15 ButtonOk: TButton; 16 EditAddress: TEdit; 16 17 EditName: TEdit; 17 EditAddress: TEdit;18 18 Label1: TLabel; 19 19 Label2: TLabel; 20 20 Label3: TLabel; 21 ScrollBox1: TScrollBox; 21 22 SpinEdit1: TSpinEdit; 22 23 procedure ButtonOkClick(Sender: TObject); -
trunk/Forms/FormSettings.lfm
r317 r325 16 16 LCLVersion = '3.4.0.0' 17 17 object ButtonOk: TButton 18 Left = 7 7519 Height = 2520 Top = 5 7421 Width = 7418 Left = 735 19 Height = 38 20 Top = 568 21 Width = 114 22 22 Anchors = [akRight, akBottom] 23 23 Caption = 'Ok' … … 27 27 end 28 28 object ButtonCancel: TButton 29 Left = 6 8030 Height = 2531 Top = 5 7432 Width = 7429 Left = 600 30 Height = 38 31 Top = 568 32 Width = 114 33 33 Anchors = [akRight, akBottom] 34 34 Caption = 'Cancel' … … 39 39 object PageControl1: TPageControl 40 40 Left = 8 41 Height = 55 841 Height = 552 42 42 Top = 8 43 43 Width = 841 … … 51 51 object TabSheetGeneral: TTabSheet 52 52 Caption = 'General' 53 ClientHeight = 51 853 ClientHeight = 512 54 54 ClientWidth = 831 55 55 ParentFont = False 56 56 object Panel1: TPanel 57 57 Left = 0 58 Height = 51 858 Height = 512 59 59 Top = 0 60 60 Width = 831 61 61 Align = alClient 62 62 BevelOuter = bvNone 63 ClientHeight = 51 863 ClientHeight = 512 64 64 ClientWidth = 831 65 65 ParentFont = False … … 151 151 object TabSheetDebug: TTabSheet 152 152 Caption = 'Debug' 153 ClientHeight = 51 8153 ClientHeight = 512 154 154 ClientWidth = 831 155 155 ParentFont = False 156 156 object Panel2: TPanel 157 157 Left = 0 158 Height = 51 8158 Height = 512 159 159 Top = 0 160 160 Width = 831 161 161 Align = alClient 162 162 BevelOuter = bvNone 163 ClientHeight = 51 8163 ClientHeight = 512 164 164 ClientWidth = 831 165 165 ParentFont = False
Note:
See TracChangeset
for help on using the changeset viewer.
