Changeset 295 for trunk/Forms
- Timestamp:
- Mar 29, 2019, 11:26:28 AM (6 years ago)
- Location:
- trunk
- Files:
-
- 19 added
- 10 deleted
- 20 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 8 8 backup 9 9 xtactics.exe 10 *.lr j10 *.lrt
-
- Property svn:ignore
-
trunk/Forms
- Property svn:ignore deleted
-
trunk/Forms/UFormAbout.lfm
r115 r295 1 1 object FormAbout: TFormAbout 2 2 Left = 1014 3 Height = 3583 Height = 448 4 4 Top = 442 5 Width = 5645 Width = 705 6 6 Caption = 'About' 7 ClientHeight = 358 8 ClientWidth = 564 7 ClientHeight = 448 8 ClientWidth = 705 9 DesignTimePPI = 120 9 10 OnCreate = FormCreate 10 11 OnShow = FormShow 11 12 Position = poScreenCenter 12 LCLVersion = ' 1.6.0.4'13 LCLVersion = '2.0.0.4' 13 14 object LabelDescription: TLabel 14 Left = 2 015 Height = 7216 Top = 1 1017 Width = 52415 Left = 25 16 Height = 40 17 Top = 137 18 Width = 655 18 19 Align = alTop 19 BorderSpacing.Around = 2 020 BorderSpacing.Around = 25 20 21 Caption = 'Turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules.' 21 22 ParentColor = False 23 ParentFont = False 22 24 WordWrap = True 23 25 end 24 26 object ButtonClose: TButton 25 Left = 45126 Height = 2527 Top = 3 1828 Width = 9327 Left = 564 28 Height = 31 29 Top = 398 30 Width = 116 29 31 Anchors = [akRight, akBottom] 30 32 Caption = 'Close' 31 33 ModalResult = 1 34 ParentFont = False 32 35 TabOrder = 0 33 36 end 34 37 object LabelContent: TLabel 35 Left = 2 036 Height = 2 438 Left = 25 39 Height = 20 37 40 Top = 202 38 Width = 52441 Width = 655 39 42 Align = alTop 40 BorderSpacing.Around = 2 043 BorderSpacing.Around = 25 41 44 Caption = ' ' 42 45 ParentColor = False 46 ParentFont = False 43 47 end 44 48 object ButtonHomePage: TButton 45 Left = 1646 Height = 2547 Top = 3 1848 Width = 17649 Left = 20 50 Height = 31 51 Top = 398 52 Width = 220 49 53 Anchors = [akLeft, akBottom] 50 54 Caption = 'Home page' 51 55 OnClick = ButtonHomePageClick 56 ParentFont = False 52 57 TabOrder = 1 53 58 end 54 59 object Panel1: TPanel 55 60 Left = 0 56 Height = 9061 Height = 112 57 62 Top = 0 58 Width = 56463 Width = 705 59 64 Align = alTop 60 65 BevelOuter = bvNone 61 ClientHeight = 9062 ClientWidth = 56466 ClientHeight = 112 67 ClientWidth = 705 63 68 FullRepaint = False 69 ParentFont = False 64 70 TabOrder = 2 65 71 object LabelAppName: TLabel 66 72 Left = 96 67 Height = 5573 Height = 67 68 74 Top = 20 69 Width = 1 4475 Width = 170 70 76 Align = alCustom 71 BorderSpacing.Around = 2 077 BorderSpacing.Around = 25 72 78 Caption = 'xTactics' 73 Font.Height = - 4079 Font.Height = -50 74 80 ParentColor = False 75 81 ParentFont = False … … 77 83 end 78 84 object Image1: TImage 79 Left = 1680 Height = 6681 Top = 2 082 Width = 6685 Left = 20 86 Height = 82 87 Top = 25 88 Width = 82 83 89 Picture.Data = { 84 90 1754506F727461626C654E6574776F726B47726170686963CF01000089504E47 -
trunk/Forms/UFormCharts.lfm
r208 r295 10 10 OnClose = FormClose 11 11 OnShow = FormShow 12 LCLVersion = ' 1.8.2.0'12 LCLVersion = '2.0.0.4' 13 13 object Chart1: TChart 14 14 Left = 8 -
trunk/Forms/UFormChat.lfm
r212 r295 1 1 object FormChat: TFormChat 2 2 Left = 496 3 Height = 4413 Height = 368 4 4 Top = 328 5 Width = 5275 Width = 439 6 6 Caption = 'Chat' 7 ClientHeight = 4418 ClientWidth = 5279 DesignTimePPI = 1 447 ClientHeight = 368 8 ClientWidth = 439 9 DesignTimePPI = 120 10 10 OnCreate = FormCreate 11 11 OnShow = FormShow 12 LCLVersion = ' 1.8.2.0'12 LCLVersion = '2.0.0.4' 13 13 object MemoChat: TMemo 14 Left = 815 Height = 3 6216 Top = 3217 Width = 50914 Left = 7 15 Height = 302 16 Top = 27 17 Width = 424 18 18 Anchors = [akTop, akLeft, akRight, akBottom] 19 ParentFont = False 19 20 ReadOnly = True 20 21 ScrollBars = ssAutoBoth … … 22 23 end 23 24 object EditMessage: TEdit 24 Left = 825 Height = 3626 Top = 3 9827 Width = 41125 Left = 7 26 Height = 28 27 Top = 334 28 Width = 342 28 29 Anchors = [akLeft, akRight, akBottom] 29 30 OnKeyPress = EditMessageKeyPress 31 ParentFont = False 30 32 TabOrder = 1 31 33 end 32 34 object ButtonMessageSend: TButton 33 Left = 42334 Height = 3135 Top = 40236 Width = 9435 Left = 353 36 Height = 26 37 Top = 335 38 Width = 78 37 39 Anchors = [akRight, akBottom] 38 40 Caption = 'Send' 39 41 OnClick = ButtonMessageSendClick 42 ParentFont = False 40 43 TabOrder = 2 41 44 end 42 45 object Label1: TLabel 43 Left = 1044 Height = 2 645 Top = 446 Width = 4446 Left = 8 47 Height = 20 48 Top = 3 49 Width = 33 47 50 Caption = 'Chat:' 48 51 ParentColor = False 52 ParentFont = False 49 53 end 50 54 end -
trunk/Forms/UFormClient.lfm
r265 r295 7 7 ClientHeight = 621 8 8 ClientWidth = 775 9 DesignTimePPI = 1 449 DesignTimePPI = 120 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 13 13 OnKeyUp = FormKeyUp 14 14 OnShow = FormShow 15 LCLVersion = ' 1.8.4.0'15 LCLVersion = '2.0.0.4' 16 16 WindowState = wsMaximized 17 17 object StatusBar1: TStatusBar … … 22 22 Panels = < 23 23 item 24 Width = 20024 Width = 167 25 25 end 26 26 item 27 Width = 1 5027 Width = 125 28 28 end 29 29 item 30 Width = 10030 Width = 83 31 31 end> 32 ParentFont = False 32 33 SimplePanel = False 33 34 end … … 36 37 Height = 593 37 38 Top = 0 38 Width = 3239 Width = 27 39 40 Align = alLeft 40 ButtonHeight = 3241 ButtonWidth = 3241 ButtonHeight = 27 42 ButtonWidth = 27 42 43 Images = Core.ImageListSmall 44 ParentFont = False 43 45 ParentShowHint = False 44 46 PopupMenu = PopupMenuToolbar … … 52 54 object ToolButton6: TToolButton 53 55 Left = 1 54 Top = 7156 Top = 61 55 57 Action = AZoomIn 56 58 end 57 59 object ToolButton7: TToolButton 58 60 Left = 1 59 Top = 10361 Top = 88 60 62 Action = AZoomOut 61 63 end 62 64 object ToolButton8: TToolButton 63 65 Left = 1 64 Top = 1 3566 Top = 115 65 67 Action = AZoomAll 66 68 end 67 69 object ToolButton9: TToolButton 68 70 Left = 1 69 Top = 6670 Width = 3271 Top = 56 72 Width = 27 71 73 AutoSize = True 72 74 Style = tbsDivider … … 74 76 object ToolButton1: TToolButton 75 77 Left = 1 76 Top = 3478 Top = 29 77 79 Action = ASurrender 78 80 end 79 81 end 80 82 object PaintBox1: TPaintBox 81 Left = 3283 Left = 27 82 84 Height = 593 83 85 Top = 0 84 Width = 74 386 Width = 748 85 87 Align = alClient 88 ParentFont = False 86 89 OnMouseDown = PaintBox1MouseDown 87 90 OnMouseLeave = PaintBox1MouseLeave … … 96 99 Interval = 20 97 100 OnTimer = Timer1Timer 98 left = 1 6099 top = 1 60101 left = 133 102 top = 133 100 103 end 101 104 object ActionList1: TActionList 102 105 Images = Core.ImageListSmall 103 left = 2 80104 top = 1 52106 left = 233 107 top = 127 105 108 object AZoomIn: TAction 106 109 Caption = 'Zoom in' … … 149 152 end 150 153 object PopupMenuToolbar: TPopupMenu 151 left = 452152 top = 98154 left = 377 155 top = 82 153 156 object MenuItem18: TMenuItem 154 157 Action = AToolBarBigIcons -
trunk/Forms/UFormGameSystems.lfm
r278 r295 1 1 object FormGameSystems: TFormGameSystems 2 2 Left = 779 3 Height = 3 603 Height = 300 4 4 Top = 236 5 Width = 4 805 Width = 400 6 6 Caption = 'Game systems' 7 ClientHeight = 3 608 ClientWidth = 4 809 DesignTimePPI = 1 447 ClientHeight = 300 8 ClientWidth = 400 9 DesignTimePPI = 120 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = ' 1.8.4.0'14 LCLVersion = '2.0.0.4' 15 15 object ListView1: TListView 16 16 Left = 0 17 Height = 32117 Height = 268 18 18 Top = 0 19 Width = 4 8019 Width = 400 20 20 Align = alClient 21 21 Columns = < 22 22 item 23 23 Caption = 'Name' 24 Width = 46524 Width = 388 25 25 end> 26 26 MultiSelect = True 27 27 OwnerData = True 28 ParentFont = False 28 29 PopupMenu = PopupMenu1 29 30 ReadOnly = True … … 38 39 object ToolBar1: TToolBar 39 40 Left = 0 40 Height = 39 41 Top = 321 42 Width = 480 41 Top = 268 42 Width = 400 43 43 Align = alBottom 44 44 Images = Core.ImageListSmall 45 ParentFont = False 45 46 TabOrder = 1 46 47 object ToolButton1: TToolButton … … 50 51 end 51 52 object ToolButton2: TToolButton 52 Left = 3 653 Left = 30 53 54 Top = 2 54 55 Action = AModify 55 56 end 56 57 object ToolButton3: TToolButton 57 Left = 7158 Left = 59 58 59 Top = 2 59 60 Action = ARemove 60 61 end 61 62 object ToolButton4: TToolButton 62 Left = 10663 Left = 88 63 64 Top = 2 64 65 Action = AClone … … 67 68 object ActionList1: TActionList 68 69 Images = Core.ImageListSmall 69 left = 20770 top = 1 6370 left = 173 71 top = 136 71 72 object AAdd: TAction 72 73 Caption = 'Add' … … 96 97 object PopupMenu1: TPopupMenu 97 98 Images = Core.ImageListSmall 98 left = 35299 top = 1 6099 left = 293 100 top = 133 100 101 object MenuItem1: TMenuItem 101 102 Action = AAdd -
trunk/Forms/UFormHelp.lfm
r243 r295 14 14 OnShow = FormShow 15 15 Position = poMainFormCenter 16 LCLVersion = ' 1.8.2.0'16 LCLVersion = '2.0.0.4' 17 17 object Memo1: TMemo 18 18 Left = 6 -
trunk/Forms/UFormItem.lfm
r290 r295 1 1 object FormItem: TFormItem 2 2 Left = 570 3 Height = 3 603 Height = 300 4 4 Top = 429 5 Width = 4 805 Width = 400 6 6 Caption = 'Item' 7 ClientHeight = 3 608 ClientWidth = 4 809 DesignTimePPI = 1 447 ClientHeight = 300 8 ClientWidth = 400 9 DesignTimePPI = 120 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 14 14 LCLVersion = '2.0.0.4' 15 15 object ButtonOk: TButton 16 Left = 8917 Height = 3 818 Top = 31219 Width = 11316 Left = 74 17 Height = 32 18 Top = 260 19 Width = 94 20 20 Anchors = [akLeft, akBottom] 21 21 Caption = 'OK' 22 22 ModalResult = 1 23 23 OnClick = ButtonOkClick 24 ParentFont = False 24 25 TabOrder = 0 25 26 end 26 27 object ButtonCancel: TButton 27 Left = 2 6428 Height = 3 829 Top = 31230 Width = 11328 Left = 220 29 Height = 32 30 Top = 257 31 Width = 94 31 32 Anchors = [akLeft] 32 33 Caption = 'Cancel' 33 34 ModalResult = 2 35 ParentFont = False 34 36 TabOrder = 1 35 37 end -
trunk/Forms/UFormKeyShortcuts.lfm
r206 r295 11 11 OnCreate = FormCreate 12 12 OnShow = FormShow 13 LCLVersion = ' 1.8.2.0'13 LCLVersion = '2.0.0.4' 14 14 object ListView1: TListView 15 15 Left = 4 -
trunk/Forms/UFormList.lfm
r290 r295 1 1 object FormList: TFormList 2 2 Left = 779 3 Height = 3 603 Height = 300 4 4 Top = 236 5 Width = 4 805 Width = 400 6 6 Caption = 'List' 7 ClientHeight = 3 608 ClientWidth = 4 809 DesignTimePPI = 1 447 ClientHeight = 300 8 ClientWidth = 400 9 DesignTimePPI = 120 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 14 14 object ListView1: TListView 15 15 Left = 0 16 Height = 32116 Height = 268 17 17 Top = 0 18 Width = 4 8018 Width = 400 19 19 Align = alClient 20 20 Columns = < 21 21 item 22 22 Caption = 'Name' 23 Width = 46523 Width = 388 24 24 end> 25 25 MultiSelect = True 26 26 OwnerData = True 27 ParentFont = False 27 28 PopupMenu = PopupMenu1 28 29 ReadOnly = True … … 38 39 object ToolBar1: TToolBar 39 40 Left = 0 40 Height = 39 41 Top = 321 42 Width = 480 41 Top = 268 42 Width = 400 43 43 Align = alBottom 44 44 Images = Core.ImageListSmall 45 ParentFont = False 45 46 TabOrder = 1 46 47 object ToolButton1: TToolButton … … 50 51 end 51 52 object ToolButton2: TToolButton 52 Left = 3 653 Left = 30 53 54 Top = 2 54 55 Action = AModify 55 56 end 56 57 object ToolButton3: TToolButton 57 Left = 7158 Left = 59 58 59 Top = 2 59 60 Action = ARemove 60 61 end 61 62 object ToolButton4: TToolButton 62 Left = 10663 Left = 88 63 64 Top = 2 64 65 Action = AClone … … 67 68 object ActionList1: TActionList 68 69 Images = Core.ImageListSmall 69 left = 20770 top = 1 6370 left = 173 71 top = 136 71 72 object AAdd: TAction 72 73 Caption = 'Add' … … 97 98 object PopupMenu1: TPopupMenu 98 99 Images = Core.ImageListSmall 99 left = 352100 top = 1 60100 left = 293 101 top = 133 101 102 object MenuItem1: TMenuItem 102 103 Action = AAdd -
trunk/Forms/UFormMain.lfm
r273 r295 5 5 Width = 775 6 6 Caption = 'xTactics' 7 ClientHeight = 5 877 ClientHeight = 596 8 8 ClientWidth = 775 9 DesignTimePPI = 1 449 DesignTimePPI = 120 10 10 Menu = MainMenu1 11 11 OnActivate = FormActivate … … 15 15 OnKeyUp = FormKeyUp 16 16 OnShow = FormShow 17 LCLVersion = ' 1.8.4.0'17 LCLVersion = '2.0.0.4' 18 18 WindowState = wsMaximized 19 19 object ToolBar1: TToolBar 20 20 Left = 0 21 Height = 4021 Height = 33 22 22 Top = 0 23 23 Width = 775 24 ButtonHeight = 3225 ButtonWidth = 3224 ButtonHeight = 27 25 ButtonWidth = 27 26 26 Images = Core.ImageListSmall 27 ParentFont = False 27 28 ParentShowHint = False 28 29 PopupMenu = PopupMenuToolbar … … 35 36 end 36 37 object ToolButton3: TToolButton 37 Left = 3338 Left = 28 38 39 Top = 2 39 40 Action = Core.AGameEnd 40 41 end 41 42 object ToolButton4: TToolButton 42 Left = 6543 Left = 55 43 44 Top = 2 44 45 Action = Core.AGameRestart 45 46 end 46 47 object ToolButton5: TToolButton 48 Left = 144 49 Top = 2 50 Action = Core.ASettings 51 end 52 object ToolButton9: TToolButton 53 Left = 140 54 Height = 27 55 Top = 2 56 Style = tbsDivider 57 end 58 object ToolButton11: TToolButton 59 Left = 86 60 Top = 2 61 Action = Core.AGameLoad 62 end 63 object ToolButton12: TToolButton 64 Left = 113 65 Top = 2 66 Action = Core.AGameSave 67 end 68 object ToolButton13: TToolButton 47 69 Left = 171 48 70 Top = 2 49 Action = Core.ASettings50 end51 object ToolButton9: TToolButton52 Left = 16653 Height = 3254 Top = 255 Style = tbsDivider56 end57 object ToolButton11: TToolButton58 Left = 10259 Top = 260 Action = Core.AGameLoad61 end62 object ToolButton12: TToolButton63 Left = 13464 Top = 265 Action = Core.AGameSave66 end67 object ToolButton13: TToolButton68 Left = 20369 Top = 270 71 Action = Core.AExit 71 72 end 72 73 object ToolButton2: TToolButton 73 Left = 9774 Height = 3274 Left = 82 75 Height = 27 75 76 Top = 2 76 77 Style = tbsDivider … … 79 80 object PanelMain: TPanel 80 81 Left = 0 81 Height = 5 4782 Top = 4082 Height = 563 83 Top = 33 83 84 Width = 775 84 85 Align = alClient 85 86 BevelOuter = bvNone 87 ParentFont = False 86 88 TabOrder = 1 87 89 end 88 90 object MainMenu1: TMainMenu 89 91 Images = Core.ImageListSmall 90 left = 22491 top = 4 892 left = 187 93 top = 40 92 94 object MenuItem1: TMenuItem 93 95 Caption = 'Game' … … 208 210 Interval = 20 209 211 OnTimer = Timer1Timer 210 left = 1 28211 top = 2 63212 left = 107 213 top = 219 212 214 end 213 215 object ActionList1: TActionList 214 216 Images = Core.ImageListSmall 215 left = 2 80216 top = 1 52217 left = 233 218 top = 127 217 219 object AToolBarBigIcons: TAction 218 220 Caption = 'Toolbar big icons' … … 237 239 end 238 240 object PopupMenuToolbar: TPopupMenu 239 left = 452240 top = 98241 left = 377 242 top = 82 241 243 object MenuItem18: TMenuItem 242 244 Action = AToolBarBigIcons -
trunk/Forms/UFormMove.lfm
r272 r295 1 1 object FormMove: TFormMove 2 2 Left = 435 3 Height = 2 783 Height = 232 4 4 Top = 153 5 Width = 4215 Width = 351 6 6 ActiveControl = ButtonOk 7 7 Caption = 'Move' 8 ClientHeight = 2 789 ClientWidth = 42110 Constraints.MinHeight = 2 7811 Constraints.MinWidth = 42112 DesignTimePPI = 1 448 ClientHeight = 232 9 ClientWidth = 351 10 Constraints.MinHeight = 232 11 Constraints.MinWidth = 351 12 DesignTimePPI = 120 13 13 OnClose = FormClose 14 14 OnCreate = FormCreate … … 16 16 OnShow = FormShow 17 17 Position = poMainFormCenter 18 LCLVersion = ' 1.8.4.0'18 LCLVersion = '2.0.0.4' 19 19 object SpinEditOnce: TSpinEdit 20 Left = 20821 Height = 4322 Top = 4023 Width = 9820 Left = 173 21 Height = 28 22 Top = 33 23 Width = 82 24 24 OnChange = SpinEditOnceChange 25 25 OnKeyPress = FormKeyPress 26 ParentFont = False 26 27 TabOrder = 0 27 28 end 28 29 object Label1: TLabel 29 Left = 1 630 Height = 2 631 Top = 4032 Width = 4930 Left = 13 31 Height = 20 32 Top = 33 33 Width = 37 33 34 Caption = 'Once:' 34 35 ParentColor = False 36 ParentFont = False 35 37 end 36 38 object ButtonOk: TButton 37 Left = 2 9638 Height = 3 839 Top = 22440 Width = 10039 Left = 247 40 Height = 32 41 Top = 187 42 Width = 83 41 43 Caption = 'Ok' 42 44 Default = True 43 45 ModalResult = 1 46 ParentFont = False 44 47 TabOrder = 1 45 48 end 46 49 object ButtonCancel: TButton 47 Left = 1 7648 Height = 3 849 Top = 22450 Width = 10050 Left = 147 51 Height = 32 52 Top = 187 53 Width = 83 51 54 Caption = 'Cancel' 52 55 ModalResult = 2 56 ParentFont = False 53 57 TabOrder = 2 54 58 end 55 59 object Label2: TLabel 56 Left = 2 457 Height = 2 658 Top = 1 3659 Width = 9160 Left = 20 61 Height = 20 62 Top = 113 63 Width = 68 60 64 Caption = 'Every turn:' 61 65 ParentColor = False 66 ParentFont = False 62 67 end 63 68 object SpinEditRepeat: TSpinEdit 64 Left = 20865 Height = 4366 Top = 1 2867 Width = 9869 Left = 173 70 Height = 28 71 Top = 107 72 Width = 82 68 73 OnChange = SpinEditRepeatChange 69 74 OnKeyPress = FormKeyPress 75 ParentFont = False 70 76 TabOrder = 3 71 77 end 72 78 object TrackBarOnce: TTrackBar 73 Left = 8874 Height = 5875 Top = 8076 Width = 2 4579 Left = 73 80 Height = 48 81 Top = 67 82 Width = 205 77 83 OnChange = TrackBarOnceChange 78 84 PageSize = 1 … … 81 87 Anchors = [akTop, akLeft, akRight] 82 88 OnKeyPress = FormKeyPress 89 ParentFont = False 83 90 TabOrder = 4 84 91 end 85 92 object TrackBarRepeat: TTrackBar 86 Left = 9687 Height = 5888 Top = 1 6889 Width = 23193 Left = 80 94 Height = 48 95 Top = 140 96 Width = 193 90 97 OnChange = TrackBarRepeatChange 91 98 PageSize = 1 … … 94 101 Anchors = [akTop, akLeft, akRight] 95 102 OnKeyPress = FormKeyPress 103 ParentFont = False 96 104 TabOrder = 5 97 105 end 98 106 object ButtonOnceMin: TButton 99 Left = 8100 Height = 3 8101 Top = 88102 Width = 80107 Left = 7 108 Height = 32 109 Top = 73 110 Width = 67 103 111 Caption = 'Min' 104 112 OnClick = ButtonOnceMinClick 113 ParentFont = False 105 114 TabOrder = 6 106 115 end 107 116 object ButtonOnceMax: TButton 108 Left = 333109 Height = 3 8110 Top = 88111 Width = 80117 Left = 277 118 Height = 32 119 Top = 73 120 Width = 67 112 121 Anchors = [akTop, akRight] 113 122 Caption = 'Max' 114 123 OnClick = ButtonOnceMaxClick 124 ParentFont = False 115 125 TabOrder = 7 116 126 end 117 127 object ButtonRepeatMin: TButton 118 Left = 8119 Height = 3 8120 Top = 1 76121 Width = 80128 Left = 7 129 Height = 32 130 Top = 147 131 Width = 67 122 132 Caption = 'Min' 123 133 OnClick = ButtonRepeatMinClick 134 ParentFont = False 124 135 TabOrder = 8 125 136 end 126 137 object ButtonRepeatMax: TButton 127 Left = 333128 Height = 3 8129 Top = 1 76130 Width = 80138 Left = 277 139 Height = 32 140 Top = 147 141 Width = 67 131 142 Anchors = [akTop, akRight] 132 143 Caption = 'Max' 133 144 OnClick = ButtonRepeatMaxClick 145 ParentFont = False 134 146 TabOrder = 9 135 147 end 136 148 object Label3: TLabel 137 Left = 1 6138 Height = 2 6139 Top = 8140 Width = 1 35149 Left = 13 150 Height = 20 151 Top = 7 152 Width = 106 141 153 Caption = 'Win probability:' 142 154 ParentColor = False 155 ParentFont = False 143 156 end 144 157 object LabelWinProbability: TLabel 145 Left = 2 64146 Height = 2 6147 Top = 8148 Width = 1 5158 Left = 220 159 Height = 20 160 Top = 7 161 Width = 12 149 162 Caption = ' ' 150 163 ParentColor = False 164 ParentFont = False 151 165 end 152 166 object ButtonRemove: TButton 153 Left = 4 8154 Height = 3 8155 Top = 224156 Width = 100167 Left = 40 168 Height = 32 169 Top = 187 170 Width = 83 157 171 Caption = 'Delete' 158 172 OnClick = ButtonRemoveClick 173 ParentFont = False 159 174 TabOrder = 10 160 175 end -
trunk/Forms/UFormNew.lfm
r287 r295 1 1 object FormNew: TFormNew 2 2 Left = 478 3 Height = 7453 Height = 621 4 4 Top = 526 5 Width = 1 2115 Width = 1009 6 6 Caption = 'New game' 7 ClientHeight = 7458 ClientWidth = 1 2119 Constraints.MinHeight = 50110 Constraints.MinWidth = 66711 DesignTimePPI = 1 447 ClientHeight = 621 8 ClientWidth = 1009 9 Constraints.MinHeight = 418 10 Constraints.MinWidth = 556 11 DesignTimePPI = 120 12 12 OnClose = FormClose 13 13 OnCreate = FormCreate … … 17 17 LCLVersion = '2.0.0.4' 18 18 object PageControl1: TPageControl 19 Left = 420 Height = 63621 Top = 6022 Width = 80619 Left = 3 20 Height = 530 21 Top = 50 22 Width = 672 23 23 ActivePage = TabSheetRules 24 24 Align = alClient 25 BorderSpacing.Around = 4 25 BorderSpacing.Around = 3 26 ParentFont = False 26 27 TabIndex = 3 27 28 TabOrder = 0 … … 31 32 ClientHeight = 596 32 33 ClientWidth = 796 34 ParentFont = False 33 35 object Panel3: TPanel 34 36 Left = 0 … … 40 42 ClientHeight = 596 41 43 ClientWidth = 796 44 ParentFont = False 42 45 TabOrder = 0 43 46 object RadioButtonModeLocal: TRadioButton 44 Left = 1047 Left = 8 45 48 Height = 30 46 Top = 1 449 Top = 12 47 50 Width = 70 48 51 Caption = 'Local' 49 52 Checked = True 50 53 OnChange = RadioButtonModeLocalChange 54 ParentFont = False 51 55 TabOrder = 0 52 56 TabStop = True 53 57 end 54 58 object RadioButtonModeNetworkServer: TRadioButton 55 Left = 1059 Left = 8 56 60 Height = 30 57 Top = 4 861 Top = 40 58 62 Width = 156 59 63 Caption = 'Network server' 60 64 OnChange = RadioButtonModeLocalChange 65 ParentFont = False 61 66 TabOrder = 1 62 67 end 63 68 object RadioButtonModeNetworkClient: TRadioButton 64 Left = 1069 Left = 8 65 70 Height = 30 66 Top = 1 5271 Top = 127 67 72 Width = 151 68 73 Caption = 'Network client' 69 74 OnChange = RadioButtonModeLocalChange 75 ParentFont = False 70 76 TabOrder = 2 71 77 end 72 78 object EditServerAddress: TEdit 73 Left = 2 479 Left = 20 74 80 Height = 43 75 Top = 112 76 Width = 220 81 Top = 93 82 Width = 183 83 ParentFont = False 77 84 TabOrder = 3 78 85 end 79 86 object SpinEditServerPort: TSpinEdit 80 Left = 2 5687 Left = 213 81 88 Height = 43 82 Top = 11283 Width = 7989 Top = 93 90 Width = 66 84 91 MaxValue = 65535 92 ParentFont = False 85 93 TabOrder = 4 86 94 end 87 95 object Label11: TLabel 88 Left = 2 5689 Height = 26 90 Top = 8896 Left = 213 97 Height = 26 98 Top = 73 91 99 Width = 41 92 100 Caption = 'Port:' 93 101 ParentColor = False 102 ParentFont = False 94 103 end 95 104 object Label12: TLabel 96 Left = 2 497 Height = 26 98 Top = 88105 Left = 20 106 Height = 26 107 Top = 73 99 108 Width = 74 100 109 Caption = 'Address:' 101 110 ParentColor = False 111 ParentFont = False 102 112 end 103 113 object ListViewServers: TListView 104 Left = 2 6105 Height = 364106 Top = 1 81107 Width = 334114 Left = 22 115 Height = 403 116 Top = 151 117 Width = 278 108 118 Anchors = [akTop, akLeft, akBottom] 109 119 Columns = < 110 120 item 111 121 Caption = 'Name' 112 Width = 100122 Width = 83 113 123 end 114 124 item 115 125 Caption = 'Address' 116 Width = 219126 Width = 182 117 127 end> 118 128 MultiSelect = True 119 129 OwnerData = True 130 ParentFont = False 120 131 PopupMenu = PopupMenuServers 121 132 ReadOnly = True … … 129 140 end 130 141 object Button1: TButton 131 Left = 2 7132 Height = 31133 Top = 5 57134 Width = 94142 Left = 22 143 Height = 26 144 Top = 563 145 Width = 78 135 146 Action = AServerAdd 136 147 Anchors = [akLeft, akBottom] 148 ParentFont = False 137 149 TabOrder = 6 138 150 end 139 151 object Button2: TButton 140 Left = 2 40141 Height = 31142 Top = 5 57143 Width = 94152 Left = 200 153 Height = 26 154 Top = 563 155 Width = 78 144 156 Action = AServerRemove 145 157 Anchors = [akLeft, akBottom] 158 ParentFont = False 146 159 TabOrder = 7 147 160 end 148 161 object Button3: TButton 149 Left = 1 36150 Height = 30151 Top = 5 57152 Width = 94162 Left = 113 163 Height = 25 164 Top = 563 165 Width = 78 153 166 Action = AServerModify 154 167 Anchors = [akLeft, akBottom] 168 ParentFont = False 155 169 TabOrder = 8 156 170 end … … 161 175 ClientHeight = 596 162 176 ClientWidth = 796 177 ParentFont = False 163 178 object Panel2: TPanel 164 179 Left = 0 … … 168 183 Align = alClient 169 184 BevelOuter = bvNone 185 ParentFont = False 170 186 TabOrder = 0 171 187 end … … 176 192 ClientWidth = 796 177 193 OnShow = TabSheetMapShow 194 ParentFont = False 178 195 object Panel1: TPanel 179 196 Left = 0 … … 185 202 ClientHeight = 596 186 203 ClientWidth = 796 204 ParentFont = False 187 205 TabOrder = 0 188 206 object Label1: TLabel 189 Left = 8190 Height = 26 191 Top = 9207 Left = 7 208 Height = 26 209 Top = 8 192 210 Width = 95 193 211 Caption = 'Map width:' 194 212 ParentColor = False 213 ParentFont = False 195 214 end 196 215 object Label2: TLabel 197 Left = 8198 Height = 26 199 Top = 57216 Left = 7 217 Height = 26 218 Top = 48 200 219 Width = 102 201 220 Caption = 'Map height:' 202 221 ParentColor = False 222 ParentFont = False 203 223 end 204 224 object SpinEditMapSizeX: TSpinEdit 205 Left = 1 28225 Left = 107 206 226 Height = 43 207 Top = 4208 Width = 98227 Top = 3 228 Width = 82 209 229 MinValue = 2 210 230 OnChange = SpinEditMapSizeXChange 231 ParentFont = False 211 232 TabOrder = 0 212 233 Value = 2 213 234 end 214 235 object SpinEditMapSizeY: TSpinEdit 215 Left = 1 28236 Left = 107 216 237 Height = 43 217 Top = 55218 Width = 98238 Top = 46 239 Width = 82 219 240 MinValue = 2 220 241 OnChange = SpinEditMapSizeYChange 242 ParentFont = False 221 243 TabOrder = 1 222 244 Value = 2 223 245 end 224 246 object TrackBarSizeX: TTrackBar 225 Left = 2 40226 Height = 58227 Top = 8228 Width = 5 45247 Left = 200 248 Height = 48 249 Top = 7 250 Width = 587 229 251 Max = 100 230 252 Min = 2 … … 233 255 TickStyle = tsNone 234 256 Anchors = [akTop, akLeft, akRight] 257 ParentFont = False 235 258 TabOrder = 2 236 259 end 237 260 object TrackBarSizeY: TTrackBar 238 Left = 2 40239 Height = 58240 Top = 4 9241 Width = 5 45261 Left = 200 262 Height = 48 263 Top = 41 264 Width = 587 242 265 Max = 100 243 266 Min = 2 … … 246 269 TickStyle = tsNone 247 270 Anchors = [akTop, akLeft, akRight] 271 ParentFont = False 248 272 TabOrder = 3 249 273 end 250 274 object Label5: TLabel 251 Left = 8252 Height = 26 253 Top = 104275 Left = 7 276 Height = 26 277 Top = 87 254 278 Width = 83 255 279 Caption = 'Grid type:' 256 280 ParentColor = False 281 ParentFont = False 257 282 end 258 283 object ComboBoxGridType: TComboBox 259 Left = 1 46260 Height = 38261 Top = 104262 Width = 304263 ItemHeight = 0284 Left = 122 285 Height = 28 286 Top = 87 287 Width = 253 288 ItemHeight = 20 264 289 Items.Strings = ( 265 290 'Hexagonal' … … 270 295 ) 271 296 OnChange = ComboBoxGridTypeChange 297 ParentFont = False 272 298 Style = csDropDownList 273 299 TabOrder = 4 274 300 end 275 301 object ComboBoxMapShape: TComboBox 276 Left = 1 46277 Height = 38278 Top = 1 44279 Width = 304280 ItemHeight = 0302 Left = 122 303 Height = 28 304 Top = 120 305 Width = 253 306 ItemHeight = 20 281 307 Items.Strings = ( 282 308 'Hexagonal' … … 285 311 ) 286 312 OnChange = ComboBoxMapShapeChange 313 ParentFont = False 287 314 Style = csDropDownList 288 315 TabOrder = 5 289 316 end 290 317 object Label8: TLabel 291 Left = 8292 Height = 26 293 Top = 1 44318 Left = 7 319 Height = 26 320 Top = 120 294 321 Width = 98 295 322 Caption = 'Map shape:' 296 323 ParentColor = False 324 ParentFont = False 297 325 end 298 326 object CheckBoxSymetricMap: TCheckBox 299 Left = 8300 Height = 2 7301 Top = 2 48302 Width = 3 08327 Left = 7 328 Height = 22 329 Top = 207 330 Width = 389 303 331 Anchors = [akTop, akLeft, akRight] 304 332 AutoSize = False 305 333 Caption = 'Symetric map' 306 334 OnChange = CheckBoxSymetricMapChange 335 ParentFont = False 307 336 TabOrder = 6 308 337 end 309 338 object SpinEditVoidPercent: TSpinEdit 310 Left = 216339 Left = 180 311 340 Height = 43 312 Top = 315313 Width = 106341 Top = 262 342 Width = 88 314 343 MinValue = 1 315 344 OnChange = SpinEditVoidPercentChange 345 ParentFont = False 316 346 TabOrder = 7 317 347 Value = 1 318 348 end 319 349 object CheckBoxVoid: TCheckBox 320 Left = 8350 Left = 7 321 351 Height = 30 322 Top = 324352 Top = 270 323 353 Width = 189 324 354 Caption = 'Inaccessible places' 325 355 OnChange = CheckBoxVoidChange 356 ParentFont = False 326 357 TabOrder = 8 327 358 end 328 359 object CheckBoxCity: TCheckBox 329 Left = 8360 Left = 7 330 361 Height = 30 331 Top = 3 68362 Top = 307 332 363 Width = 73 333 364 Caption = 'Cities' 334 365 OnChange = CheckBoxCityChange 366 ParentFont = False 335 367 TabOrder = 9 336 368 end 337 369 object SpinEditCityPercent: TSpinEdit 338 Left = 216370 Left = 180 339 371 Height = 43 340 Top = 3 60341 Width = 106372 Top = 300 373 Width = 88 342 374 MinValue = 1 343 375 OnChange = SpinEditCityPercentChange 376 ParentFont = False 344 377 TabOrder = 10 345 378 Value = 1 346 379 end 347 380 object Label4: TLabel 348 Left = 331349 Height = 26 350 Top = 3 68381 Left = 276 382 Height = 26 383 Top = 307 351 384 Width = 15 352 385 Caption = '%' 353 386 ParentColor = False 387 ParentFont = False 354 388 end 355 389 object Label3: TLabel 356 Left = 331357 Height = 26 358 Top = 324390 Left = 276 391 Height = 26 392 Top = 270 359 393 Width = 15 360 394 Caption = '%' 361 395 ParentColor = False 396 ParentFont = False 362 397 end 363 398 object SpinEditNeutralUnits: TSpinEdit 364 Left = 312399 Left = 260 365 400 Height = 43 366 Top = 4 88367 Width = 98401 Top = 407 402 Width = 82 368 403 MaxValue = 99 369 404 OnChange = SpinEditNeutralUnitsChange 405 ParentFont = False 370 406 TabOrder = 11 371 407 Value = 12 372 408 end 373 409 object Label7: TLabel 374 Left = 8375 Height = 26 376 Top = 4 96410 Left = 7 411 Height = 26 412 Top = 413 377 413 Width = 227 378 414 Caption = 'Max random neutral units:' 379 415 ParentColor = False 416 ParentFont = False 380 417 end 381 418 object EditImageFile: TEdit 382 Left = 1 44419 Left = 120 383 420 Height = 43 384 Top = 1 84385 Width = 5 29421 Top = 153 422 Width = 574 386 423 Anchors = [akTop, akLeft, akRight] 387 424 OnChange = EditImageFileChange 425 ParentFont = False 388 426 TabOrder = 12 389 427 end 390 428 object ButtonImageBrowse: TButton 391 Left = 680392 Height = 3 8393 Top = 1 89394 Width = 99429 Left = 700 430 Height = 32 431 Top = 158 432 Width = 82 395 433 Anchors = [akTop, akRight] 396 434 Caption = 'Browse' 397 435 OnClick = ButtonImageBrowseClick 436 ParentFont = False 398 437 TabOrder = 13 399 438 end 400 439 object Label9: TLabel 401 Left = 8402 Height = 26 403 Top = 1 91440 Left = 7 441 Height = 26 442 Top = 159 404 443 Width = 90 405 444 Caption = 'Image file:' 406 445 ParentColor = False 446 ParentFont = False 407 447 end 408 448 object CheckBoxBridges: TCheckBox 409 Left = 8449 Left = 7 410 450 Height = 30 411 Top = 408451 Top = 340 412 452 Width = 212 413 453 Caption = 'Bridges between cells' 414 454 OnChange = CheckBoxBridgesChange 455 ParentFont = False 415 456 TabOrder = 14 416 457 end 417 458 object SpinEditMaxPower: TSpinEdit 418 Left = 312459 Left = 260 419 460 Height = 43 420 Top = 440421 Width = 98461 Top = 367 462 Width = 82 422 463 MaxValue = 1000000 423 464 MinValue = 1 424 465 OnChange = SpinEditMaxPowerChange 466 ParentFont = False 425 467 TabOrder = 15 426 468 Value = 99 427 469 end 428 470 object Label10: TLabel 429 Left = 8430 Height = 26 431 Top = 448471 Left = 7 472 Height = 26 473 Top = 373 432 474 Width = 156 433 475 Caption = 'Max units per cell:' 434 476 ParentColor = False 477 ParentFont = False 435 478 end 436 479 object CheckBoxCyclicMap: TCheckBox 437 Left = 8438 Height = 2 7439 Top = 2 83440 Width = 3 08480 Left = 7 481 Height = 22 482 Top = 236 483 Width = 389 441 484 Anchors = [akTop, akLeft, akRight] 442 485 AutoSize = False 443 486 Caption = 'Cyclic map' 444 487 OnChange = CheckBoxCyclicMapChange 488 ParentFont = False 445 489 TabOrder = 16 446 490 end 447 491 object Image1: TImage 448 Left = 419449 Height = 316450 Top = 2 72451 Width = 359492 Left = 349 493 Height = 263 494 Top = 227 495 Width = 432 452 496 Anchors = [akTop, akLeft, akRight] 453 497 OnResize = Image1Resize 454 498 end 455 499 object Label15: TLabel 456 Left = 419457 Height = 26 458 Top = 2 40500 Left = 349 501 Height = 26 502 Top = 200 459 503 Width = 71 460 504 Caption = 'Preview:' 461 505 ParentColor = False 506 ParentFont = False 462 507 end 463 508 object ButtonRandomize: TButton 464 Left = 10465 Height = 3 8466 Top = 540467 Width = 1 53509 Left = 8 510 Height = 32 511 Top = 450 512 Width = 128 468 513 Caption = 'Randomize' 469 514 OnClick = ButtonRandomizeClick 515 ParentFont = False 470 516 TabOrder = 17 471 517 end … … 474 520 object TabSheetRules: TTabSheet 475 521 Caption = 'Rules' 476 ClientHeight = 596 477 ClientWidth = 796 522 ClientHeight = 497 523 ClientWidth = 664 524 ParentFont = False 478 525 object Panel4: TPanel 479 526 Left = 0 480 Height = 596527 Height = 497 481 528 Top = 0 482 Width = 796529 Width = 664 483 530 Align = alClient 484 531 BevelOuter = bvNone 485 ClientHeight = 596 486 ClientWidth = 796 532 ClientHeight = 497 533 ClientWidth = 664 534 ParentFont = False 487 535 TabOrder = 0 488 536 object RadioGroupGrowCells: TRadioGroup 489 Left = 1 5490 Height = 105491 Top = 104492 Width = 312537 Left = 12 538 Height = 88 539 Top = 87 540 Width = 260 493 541 AutoFill = True 494 542 Caption = 'Growing cells' … … 500 548 ChildSizing.Layout = cclLeftToRightThenTopToBottom 501 549 ChildSizing.ControlsPerLine = 1 502 ClientHeight = 78503 ClientWidth = 310550 ClientHeight = 63 551 ClientWidth = 256 504 552 Items.Strings = ( 505 553 'None' … … 507 555 'Player all' 508 556 ) 557 ParentFont = False 509 558 TabOrder = 0 510 559 end 511 560 object Label6: TLabel 512 Left = 8513 Height = 2 6514 Top = 2 48515 Width = 120561 Left = 7 562 Height = 20 563 Top = 207 564 Width = 94 516 565 Caption = 'Win objective:' 517 566 ParentColor = False 567 ParentFont = False 518 568 end 519 569 object ComboBoxWinObjective: TComboBox 520 Left = 224521 Height = 38522 Top = 2 44523 Width = 328524 ItemHeight = 0570 Left = 187 571 Height = 28 572 Top = 203 573 Width = 273 574 ItemHeight = 20 525 575 Items.Strings = ( 526 576 'Defeat all oponents' … … 530 580 ) 531 581 OnChange = ComboBoxWinObjectiveChange 582 ParentFont = False 532 583 Style = csDropDownList 533 584 TabOrder = 1 534 585 end 535 586 object RadioGroupGrowAmount: TRadioGroup 536 Left = 1 5537 Height = 76538 Top = 1 6539 Width = 305587 Left = 12 588 Height = 63 589 Top = 13 590 Width = 254 540 591 AutoFill = True 541 592 Caption = 'Per turn grow amount' … … 547 598 ChildSizing.Layout = cclLeftToRightThenTopToBottom 548 599 ChildSizing.ControlsPerLine = 1 549 ClientHeight = 49550 ClientWidth = 303600 ClientHeight = 38 601 ClientWidth = 250 551 602 Items.Strings = ( 552 603 'By one' 553 604 'By square root' 554 605 ) 606 ParentFont = False 555 607 TabOrder = 2 556 608 end 557 609 object CheckBoxFogOfWar: TCheckBox 558 Left = 336559 Height = 30560 Top = 2 4561 Width = 115610 Left = 280 611 Height = 24 612 Top = 20 613 Width = 95 562 614 Caption = 'Fog of war' 615 ParentFont = False 563 616 TabOrder = 3 564 617 end 565 618 object PageControlWinObjective: TPageControl 566 Left = 1 2567 Height = 78568 Top = 2 90569 Width = 773619 Left = 10 620 Height = 65 621 Top = 242 622 Width = 645 570 623 ActivePage = TabSheetCaptureEntireMap 571 624 Anchors = [akTop, akLeft, akRight] 625 ParentFont = False 572 626 ShowTabs = False 573 627 TabIndex = 5 574 628 TabOrder = 4 575 629 object TabSheetDefeatEnemies: TTabSheet 630 ParentFont = False 576 631 end 577 632 object TabSheetCaptureCities: TTabSheet 633 ParentFont = False 578 634 end 579 635 object TabSheetCaptureCells: TTabSheet 580 636 ClientHeight = 74 581 637 ClientWidth = 763 638 ParentFont = False 582 639 object Label14: TLabel 583 Left = 8640 Left = 7 584 641 Height = 20 585 Top = 1 6642 Top = 13 586 643 Width = 125 587 644 Caption = 'Special cells count:' 588 645 ParentColor = False 646 ParentFont = False 589 647 end 590 648 object SpinEditSpecialCells: TSpinEdit 591 Left = 236649 Left = 197 592 650 Height = 28 593 Top = 8594 Width = 1 59651 Top = 7 652 Width = 132 595 653 MaxValue = 1000 596 654 MinValue = 1 655 ParentFont = False 597 656 TabOrder = 0 598 657 Value = 1 … … 602 661 ClientHeight = 74 603 662 ClientWidth = 763 663 ParentFont = False 604 664 object Label13: TLabel 605 Left = 8665 Left = 7 606 666 Height = 20 607 Top = 1 6667 Top = 13 608 668 Width = 111 609 669 Caption = 'Number of turns:' 610 670 ParentColor = False 671 ParentFont = False 611 672 end 612 673 object SpinEditTurns: TSpinEdit 613 Left = 236674 Left = 197 614 675 Height = 28 615 Top = 8616 Width = 1 59676 Top = 7 677 Width = 132 617 678 MaxValue = 1000 618 679 MinValue = 1 680 ParentFont = False 619 681 TabOrder = 0 620 682 Value = 1 … … 622 684 end 623 685 object TabSheetNone: TTabSheet 686 ParentFont = False 624 687 end 625 688 object TabSheetCaptureEntireMap: TTabSheet 689 ParentFont = False 626 690 end 627 691 end … … 631 695 object PanelButtons: TPanel 632 696 Left = 0 633 Height = 45634 Top = 700635 Width = 1 211697 Height = 38 698 Top = 583 699 Width = 1009 636 700 Align = alBottom 637 701 BevelOuter = bvNone 638 ClientHeight = 45 639 ClientWidth = 1211 702 ClientHeight = 38 703 ClientWidth = 1009 704 ParentFont = False 640 705 TabOrder = 1 641 706 object ButtonOk: TButton 642 Left = 1023643 Height = 2 5644 Top = 6645 Width = 75707 Left = 853 708 Height = 21 709 Top = 5 710 Width = 62 646 711 Anchors = [akRight, akBottom] 647 712 Caption = 'Ok' 648 713 ModalResult = 1 649 714 OnClick = ButtonOkClick 715 ParentFont = False 650 716 TabOrder = 0 651 717 end 652 718 object ButtonCancel: TButton 653 Left = 1127654 Height = 2 5655 Top = 6656 Width = 75719 Left = 939 720 Height = 21 721 Top = 5 722 Width = 62 657 723 Anchors = [akRight, akBottom] 658 724 Caption = 'Cancel' 659 725 ModalResult = 2 726 ParentFont = False 660 727 TabOrder = 1 661 728 end 662 729 end 663 730 object PanelChat: TPanel 664 Left = 820665 Height = 644666 Top = 56667 Width = 3 91731 Left = 683 732 Height = 536 733 Top = 47 734 Width = 326 668 735 Align = alRight 669 736 BevelOuter = bvNone 737 ParentFont = False 670 738 TabOrder = 2 671 739 end 672 740 object Splitter1: TSplitter 673 Left = 814674 Height = 644675 Top = 56676 Width = 6741 Left = 678 742 Height = 536 743 Top = 47 744 Width = 5 677 745 Align = alRight 678 746 ResizeAnchor = akRight … … 680 748 object Panel5: TPanel 681 749 Left = 0 682 Height = 56750 Height = 47 683 751 Top = 0 684 Width = 1 211752 Width = 1009 685 753 Align = alTop 686 754 BevelOuter = bvNone 687 ClientHeight = 56 688 ClientWidth = 1211 755 ClientHeight = 47 756 ClientWidth = 1009 757 ParentFont = False 689 758 TabOrder = 4 690 759 object Label16: TLabel 691 Left = 1 2692 Height = 2 6693 Top = 1 6694 Width = 121760 Left = 10 761 Height = 20 762 Top = 13 763 Width = 91 695 764 Caption = 'Game system:' 696 765 ParentColor = False 766 ParentFont = False 697 767 end 698 768 object ComboBoxGameSystem: TComboBox 699 Left = 1 76700 Height = 42701 Top = 9702 Width = 2 54703 ItemHeight = 0769 Left = 147 770 Height = 28 771 Top = 8 772 Width = 212 773 ItemHeight = 20 704 774 OnChange = ComboBoxGameSystemChange 775 ParentFont = False 705 776 Style = csDropDownList 706 777 TabOrder = 0 707 778 end 708 779 object ButtonGameSystems: TButton 709 Left = 443710 Height = 3 8711 Top = 1 2712 Width = 113780 Left = 369 781 Height = 32 782 Top = 10 783 Width = 94 713 784 Caption = 'Manage' 714 785 OnClick = ButtonGameSystemsClick 786 ParentFont = False 715 787 TabOrder = 1 716 788 end … … 718 790 object ActionList1: TActionList 719 791 Images = Core.ImageListSmall 720 left = 864721 top = 216792 left = 720 793 top = 180 722 794 object AServerAdd: TAction 723 795 Caption = 'Add' … … 734 806 end 735 807 object OpenPictureDialog1: TOpenPictureDialog 736 left = 864737 top = 3 60808 left = 720 809 top = 300 738 810 end 739 811 object PopupMenuServers: TPopupMenu 740 left = 864741 top = 1 36812 left = 720 813 top = 113 742 814 object MenuItem4: TMenuItem 743 815 Action = AServerAdd … … 753 825 Interval = 500 754 826 OnTimer = TimerMapPreviewTimer 755 left = 864756 top = 446827 left = 720 828 top = 372 757 829 end 758 830 end -
trunk/Forms/UFormPlayer.lfm
r288 r295 1 1 object FormPlayer: TFormPlayer 2 2 Left = 470 3 Height = 4063 Height = 338 4 4 Top = 157 5 Width = 6525 Width = 543 6 6 Caption = 'Player' 7 ClientHeight = 4068 ClientWidth = 6529 Constraints.MinHeight = 34410 Constraints.MinWidth = 52211 DesignTimePPI = 1 447 ClientHeight = 338 8 ClientWidth = 543 9 Constraints.MinHeight = 287 10 Constraints.MinWidth = 435 11 DesignTimePPI = 120 12 12 OnClose = FormClose 13 13 OnCreate = FormCreate … … 16 16 LCLVersion = '2.0.0.4' 17 17 object Label1: TLabel 18 Left = 2 419 Height = 2 620 Top = 2 721 Width = 5618 Left = 20 19 Height = 20 20 Top = 22 21 Width = 43 22 22 Caption = 'Name:' 23 23 ParentColor = False 24 ParentFont = False 24 25 end 25 26 object EditName: TEdit 26 Left = 1 6827 Height = 4328 Top = 2 729 Width = 46927 Left = 140 28 Height = 28 29 Top = 22 30 Width = 391 30 31 Anchors = [akTop, akLeft, akRight] 32 ParentFont = False 31 33 TabOrder = 0 32 34 end 33 35 object ButtonCancel: TButton 34 Left = 2 7435 Height = 2 536 Top = 3 6637 Width = 7536 Left = 229 37 Height = 21 38 Top = 305 39 Width = 62 38 40 Anchors = [akRight, akBottom] 39 41 Caption = 'Cancel' 40 42 ModalResult = 2 43 ParentFont = False 41 44 TabOrder = 1 42 45 end 43 46 object ButtonOk: TButton 44 Left = 3 9445 Height = 2 546 Top = 3 6947 Width = 7547 Left = 329 48 Height = 21 49 Top = 307 50 Width = 62 48 51 Anchors = [akRight, akBottom] 49 52 Caption = 'Ok' … … 51 54 ModalResult = 1 52 55 OnClick = ButtonOkClick 56 ParentFont = False 53 57 TabOrder = 2 54 58 end 55 59 object ComboBoxMode: TComboBox 56 Left = 1 6857 Height = 3858 Top = 1 2459 Width = 46960 Left = 140 61 Height = 28 62 Top = 103 63 Width = 391 60 64 Anchors = [akTop, akLeft, akRight] 61 ItemHeight = 065 ItemHeight = 20 62 66 ItemIndex = 0 63 67 Items.Strings = ( … … 66 70 ) 67 71 OnChange = ComboBoxModeChange 72 ParentFont = False 68 73 Style = csDropDownList 69 74 TabOrder = 3 … … 71 76 end 72 77 object Label2: TLabel 73 Left = 2 474 Height = 2 675 Top = 1 2876 Width = 5378 Left = 20 79 Height = 20 80 Top = 107 81 Width = 42 77 82 Caption = 'Mode:' 78 83 ParentColor = False 84 ParentFont = False 79 85 end 80 86 object Label3: TLabel 81 Left = 2 482 Height = 2 683 Top = 1 7684 Width = 5087 Left = 20 88 Height = 20 89 Top = 147 90 Width = 39 85 91 Caption = 'Color:' 86 92 ParentColor = False 93 ParentFont = False 87 94 end 88 95 object ColorBox1: TColorBox 89 Left = 1 6890 Height = 4291 Top = 1 6892 Width = 46996 Left = 140 97 Height = 23 98 Top = 140 99 Width = 391 93 100 Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames] 94 101 Anchors = [akTop, akLeft, akRight] 95 ItemHeight = 20 102 ItemHeight = 17 103 ParentFont = False 96 104 TabOrder = 4 97 105 end 98 106 object Label4: TLabel 99 Left = 2 4100 Height = 2 6101 Top = 216102 Width = 98107 Left = 20 108 Height = 20 109 Top = 180 110 Width = 74 103 111 Caption = 'Agressivity:' 104 112 ParentColor = False 113 ParentFont = False 105 114 end 106 115 object ComboBoxAgressivity: TComboBox 107 Left = 1 68108 Height = 38109 Top = 216110 Width = 469116 Left = 140 117 Height = 28 118 Top = 180 119 Width = 391 111 120 Anchors = [akTop, akLeft, akRight] 112 ItemHeight = 0121 ItemHeight = 20 113 122 Items.Strings = ( 114 123 'Low' … … 117 126 '' 118 127 ) 128 ParentFont = False 119 129 Style = csDropDownList 120 130 TabOrder = 5 121 131 end 122 132 object CheckBoxDefensive: TCheckBox 123 Left = 2 4124 Height = 30125 Top = 2 56126 Width = 109133 Left = 20 134 Height = 24 135 Top = 213 136 Width = 89 127 137 Caption = 'Defensive' 138 ParentFont = False 128 139 TabOrder = 6 129 140 end 130 141 object Label5: TLabel 131 Left = 2 4132 Height = 2 6133 Top = 2 96134 Width = 94142 Left = 20 143 Height = 20 144 Top = 247 145 Width = 69 135 146 Caption = 'Start units:' 136 147 ParentColor = False 148 ParentFont = False 137 149 end 138 150 object SpinEditStartUnits: TSpinEdit 139 Left = 224140 Height = 43141 Top = 2 88142 Width = 112151 Left = 187 152 Height = 28 153 Top = 240 154 Width = 93 143 155 MaxValue = 99 156 ParentFont = False 144 157 TabOrder = 7 145 158 end 146 159 object ComboBoxNation: TComboBox 147 Left = 1 68148 Height = 42149 Top = 76150 Width = 469160 Left = 140 161 Height = 28 162 Top = 63 163 Width = 391 151 164 Anchors = [akTop, akLeft, akRight] 152 ItemHeight = 0165 ItemHeight = 20 153 166 OnChange = ComboBoxModeChange 167 ParentFont = False 154 168 Style = csDropDownList 155 169 TabOrder = 8 156 170 end 157 171 object Label6: TLabel 158 Left = 2 4159 Height = 2 6160 Top = 80161 Width = 63172 Left = 20 173 Height = 20 174 Top = 67 175 Width = 48 162 176 Caption = 'Nation:' 163 177 ParentColor = False 178 ParentFont = False 164 179 end 165 180 end -
trunk/Forms/UFormPlayers.lfm
r287 r295 1 1 object FormPlayers: TFormPlayers 2 2 Left = 566 3 Height = 3543 Height = 295 4 4 Top = 293 5 Width = 6825 Width = 568 6 6 Caption = 'Players' 7 ClientHeight = 3548 ClientWidth = 6829 DesignTimePPI = 1 447 ClientHeight = 295 8 ClientWidth = 568 9 DesignTimePPI = 120 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate … … 15 15 object ListView1: TListView 16 16 Left = 0 17 Height = 31517 Height = 263 18 18 Top = 0 19 Width = 68219 Width = 568 20 20 Align = alClient 21 21 Columns = < 22 22 item 23 23 Caption = 'Name' 24 Width = 20024 Width = 167 25 25 end 26 26 item 27 27 Caption = 'Type' 28 Width = 10028 Width = 83 29 29 end 30 30 item 31 31 Caption = 'Color' 32 Width = 8032 Width = 67 33 33 end 34 34 item 35 35 Caption = 'Nation' 36 Width = 10036 Width = 83 37 37 end 38 38 item 39 39 Caption = 'Start units' 40 Width = 1 8740 Width = 156 41 41 end> 42 42 MultiSelect = True 43 43 OwnerData = True 44 ParentFont = False 44 45 PopupMenu = PopupMenu1 45 46 ReadOnly = True … … 56 57 object ToolBar1: TToolBar 57 58 Left = 0 58 Height = 39 59 Top = 315 60 Width = 682 59 Top = 263 60 Width = 568 61 61 Align = alBottom 62 62 Images = Core.ImageListSmall 63 ParentFont = False 63 64 TabOrder = 1 64 65 object ToolButton1: TToolButton … … 68 69 end 69 70 object ToolButton2: TToolButton 70 Left = 3 671 Left = 30 71 72 Top = 2 72 73 Action = AModify 73 74 end 74 75 object ToolButton3: TToolButton 75 Left = 7176 Left = 59 76 77 Top = 2 77 78 Action = ARemove 78 79 end 79 80 object ToolButton4: TToolButton 80 Left = 10681 Left = 88 81 82 Top = 2 82 83 Action = AClone … … 85 86 object ActionList1: TActionList 86 87 Images = Core.ImageListSmall 87 left = 20788 top = 1 6388 left = 173 89 top = 136 89 90 object AAdd: TAction 90 91 Caption = 'Add' … … 114 115 object PopupMenu1: TPopupMenu 115 116 Images = Core.ImageListSmall 116 left = 352117 top = 1 60117 left = 293 118 top = 133 118 119 object MenuItem1: TMenuItem 119 120 Action = AAdd -
trunk/Forms/UFormPlayersStats.lfm
r229 r295 10 10 OnClose = FormClose 11 11 OnShow = FormShow 12 LCLVersion = ' 1.8.2.0'12 LCLVersion = '2.0.0.4' 13 13 object ListView1: TListView 14 14 Left = 4 -
trunk/Forms/UFormServer.lfm
r288 r295 1 1 object FormServer: TFormServer 2 2 Left = 691 3 Height = 2 523 Height = 210 4 4 Top = 389 5 Width = 4 845 Width = 403 6 6 Caption = 'Server' 7 ClientHeight = 2 528 ClientWidth = 4 849 DesignTimePPI = 1 447 ClientHeight = 210 8 ClientWidth = 403 9 DesignTimePPI = 120 10 10 OnShow = FormShow 11 11 LCLVersion = '2.0.0.4' 12 12 object Label1: TLabel 13 Left = 1 214 Height = 2 615 Top = 2 416 Width = 5613 Left = 10 14 Height = 20 15 Top = 20 16 Width = 43 17 17 Caption = 'Name:' 18 18 ParentColor = False … … 20 20 end 21 21 object EditName: TEdit 22 Left = 1 6323 Height = 4324 Top = 1 725 Width = 2 8122 Left = 136 23 Height = 28 24 Top = 14 25 Width = 234 26 26 ParentFont = False 27 27 TabOrder = 0 28 28 end 29 29 object Label2: TLabel 30 Left = 1 231 Height = 2 632 Top = 7233 Width = 7430 Left = 10 31 Height = 20 32 Top = 60 33 Width = 56 34 34 Caption = 'Address:' 35 35 ParentColor = False … … 37 37 end 38 38 object EditAddress: TEdit 39 Left = 1 6340 Height = 4341 Top = 6442 Width = 2 8339 Left = 136 40 Height = 28 41 Top = 53 42 Width = 236 43 43 ParentFont = False 44 44 TabOrder = 1 45 45 end 46 46 object Label3: TLabel 47 Left = 1 248 Height = 2 649 Top = 1 2050 Width = 4147 Left = 10 48 Height = 20 49 Top = 100 50 Width = 30 51 51 Caption = 'Port:' 52 52 ParentColor = False … … 54 54 end 55 55 object SpinEdit1: TSpinEdit 56 Left = 1 6357 Height = 4358 Top = 11259 Width = 11656 Left = 136 57 Height = 28 58 Top = 93 59 Width = 97 60 60 MaxValue = 65535 61 61 ParentFont = False … … 63 63 end 64 64 object ButtonCancel: TButton 65 Left = 2 8866 Height = 3 767 Top = 1 8668 Width = 11365 Left = 240 66 Height = 31 67 Top = 155 68 Width = 94 69 69 Caption = 'Cancel' 70 70 ModalResult = 2 … … 73 73 end 74 74 object ButtonOk: TButton 75 Left = 9676 Height = 3 777 Top = 1 8678 Width = 11375 Left = 80 76 Height = 31 77 Top = 155 78 Width = 94 79 79 Caption = 'OK' 80 80 ModalResult = 1 -
trunk/Forms/UFormSettings.lfm
r262 r295 1 1 object FormSettings: TFormSettings 2 2 Left = 535 3 Height = 3593 Height = 299 4 4 Top = 386 5 Width = 5765 Width = 480 6 6 ActiveControl = ButtonOk 7 7 Caption = 'Settings' 8 ClientHeight = 3599 ClientWidth = 57610 Constraints.MinHeight = 30011 Constraints.MinWidth = 45412 DesignTimePPI = 1 448 ClientHeight = 299 9 ClientWidth = 480 10 Constraints.MinHeight = 250 11 Constraints.MinWidth = 378 12 DesignTimePPI = 120 13 13 OnClose = FormClose 14 14 OnCreate = FormCreate 15 15 OnShow = FormShow 16 16 Position = poMainFormCenter 17 LCLVersion = ' 1.8.2.0'17 LCLVersion = '2.0.0.4' 18 18 object ButtonOk: TButton 19 Left = 4 9320 Height = 2 521 Top = 32022 Width = 7519 Left = 411 20 Height = 21 21 Top = 266 22 Width = 62 23 23 Anchors = [akRight, akBottom] 24 24 Caption = 'Ok' 25 25 ModalResult = 1 26 ParentFont = False 26 27 TabOrder = 0 27 28 end 28 29 object ButtonCancel: TButton 29 Left = 3 9830 Height = 2 531 Top = 32032 Width = 7530 Left = 332 31 Height = 21 32 Top = 266 33 Width = 62 33 34 Anchors = [akRight, akBottom] 34 35 Caption = 'Cancel' 35 36 ModalResult = 2 37 ParentFont = False 36 38 TabOrder = 1 37 39 end 38 40 object PageControl1: TPageControl 39 Left = 840 Height = 30441 Top = 842 Width = 56041 Left = 7 42 Height = 245 43 Top = 7 44 Width = 466 43 45 ActivePage = TabSheetGeneral 44 46 Align = alTop 45 47 Anchors = [akTop, akLeft, akRight, akBottom] 46 BorderSpacing.Around = 8 48 BorderSpacing.Around = 7 49 ParentFont = False 47 50 TabIndex = 0 48 51 TabOrder = 2 49 52 object TabSheetGeneral: TTabSheet 50 53 Caption = 'General' 51 ClientHeight = 260 52 ClientWidth = 554 54 ClientHeight = 212 55 ClientWidth = 458 56 ParentFont = False 53 57 object Panel1: TPanel 54 58 Left = 0 55 Height = 2 6059 Height = 212 56 60 Top = 0 57 Width = 55461 Width = 458 58 62 Align = alClient 59 63 BevelOuter = bvNone 60 ClientHeight = 260 61 ClientWidth = 554 64 ClientHeight = 212 65 ClientWidth = 458 66 ParentFont = False 62 67 TabOrder = 0 63 68 object Label1: TLabel 64 Left = 2065 Height = 2 666 Top = 3267 Width = 8869 Left = 17 70 Height = 20 71 Top = 27 72 Width = 68 68 73 Caption = 'Language:' 69 74 ParentColor = False 75 ParentFont = False 70 76 end 71 77 object ComboBoxLanguage: TComboBox 72 Left = 178 73 Height = 40 74 Top = 24 75 Width = 196 76 ItemHeight = 0 78 Left = 148 79 Height = 28 80 Top = 20 81 Width = 163 82 ItemHeight = 20 83 ParentFont = False 77 84 Style = csDropDownList 78 85 TabOrder = 0 79 86 end 80 87 object ComboBoxTheme: TComboBox 81 Left = 176 82 Height = 40 83 Top = 72 84 Width = 196 85 ItemHeight = 0 88 Left = 147 89 Height = 28 90 Top = 60 91 Width = 163 92 ItemHeight = 20 93 ParentFont = False 86 94 Style = csDropDownList 87 95 TabOrder = 1 88 96 end 89 97 object Label6: TLabel 90 Left = 2091 Height = 2 692 Top = 8093 Width = 6398 Left = 17 99 Height = 20 100 Top = 67 101 Width = 48 94 102 Caption = 'Theme:' 95 103 ParentColor = False 104 ParentFont = False 96 105 end 97 106 object SpinEditAnimSpeed: TSpinEdit 98 Left = 232 99 Height = 36 100 Top = 120 101 Width = 122 107 Left = 193 108 Height = 28 109 Top = 100 110 Width = 102 111 ParentFont = False 102 112 TabOrder = 2 103 113 end 104 114 object Label3: TLabel 105 Left = 3 68106 Height = 2 6107 Top = 1 24108 Width = 1 5115 Left = 307 116 Height = 20 117 Top = 103 118 Width = 12 109 119 Caption = '%' 110 120 ParentColor = False 121 ParentFont = False 111 122 end 112 123 object Label2: TLabel 113 Left = 20114 Height = 2 6115 Top = 1 20116 Width = 1 50124 Left = 17 125 Height = 20 126 Top = 100 127 Width = 116 117 128 Caption = 'Animation speed:' 118 129 ParentColor = False 130 ParentFont = False 119 131 end 120 132 object CheckBoxAutoSaveTurn: TCheckBox 121 Left = 20122 Height = 30123 Top = 1 54124 Width = 2 69133 Left = 17 134 Height = 24 135 Top = 128 136 Width = 213 125 137 Caption = 'Autosave game on each turn' 138 ParentFont = False 126 139 TabOrder = 3 127 140 end 128 141 object CheckBoxReopenLastFile: TCheckBox 129 Left = 20130 Height = 30131 Top = 1 94132 Width = 249142 Left = 17 143 Height = 24 144 Top = 162 145 Width = 198 133 146 Caption = 'Reopen last game on start' 147 ParentFont = False 134 148 TabOrder = 4 135 149 end … … 140 154 ClientHeight = 260 141 155 ClientWidth = 554 156 ParentFont = False 142 157 object Panel2: TPanel 143 158 Left = 0 … … 149 164 ClientHeight = 229 150 165 ClientWidth = 583 166 ParentFont = False 151 167 TabOrder = 0 152 168 object CheckBox2: TCheckBox 153 Left = 1 6154 Height = 2 4155 Top = 32156 Width = 55 1169 Left = 13 170 Height = 20 171 Top = 27 172 Width = 557 157 173 Anchors = [akTop, akLeft, akRight] 158 174 AutoSize = False 159 175 Caption = 'Automatic DPI' 160 176 OnChange = CheckBox2Change 177 ParentFont = False 161 178 TabOrder = 0 162 179 end 163 180 object Label4: TLabel 164 Left = 1 4181 Left = 12 165 182 Height = 26 166 Top = 67183 Top = 56 167 184 Width = 35 168 185 Caption = 'DPI:' 169 186 ParentColor = False 187 ParentFont = False 170 188 end 171 189 object SpinEditX: TSpinEdit 172 Left = 104190 Left = 87 173 191 Height = 36 174 Top = 64175 Width = 96192 Top = 53 193 Width = 80 176 194 MaxValue = 500 177 195 MinValue = 20 196 ParentFont = False 178 197 TabOrder = 1 179 198 Value = 50 180 199 end 181 200 object Label5: TLabel 182 Left = 208201 Left = 173 183 202 Height = 26 184 Top = 67203 Top = 56 185 204 Width = 10 186 205 Caption = 'x' 187 206 ParentColor = False 207 ParentFont = False 188 208 end 189 209 object SpinEditY: TSpinEdit 190 Left = 232210 Left = 193 191 211 Height = 36 192 Top = 64193 Width = 90212 Top = 53 213 Width = 75 194 214 MaxValue = 500 195 215 MinValue = 20 216 ParentFont = False 196 217 TabOrder = 2 197 218 Value = 20 198 219 end 199 220 object CheckBoxDevelMode: TCheckBox 200 Left = 1 6201 Height = 2 7202 Top = 1 36203 Width = 5 55221 Left = 13 222 Height = 22 223 Top = 113 224 Width = 560 204 225 Anchors = [akTop, akLeft, akRight] 205 226 AutoSize = False 206 227 Caption = 'Developer mode' 228 ParentFont = False 207 229 TabOrder = 3 208 230 end -
trunk/Forms/UFormUnitMoves.lfm
r229 r295 10 10 OnClose = FormClose 11 11 OnShow = FormShow 12 LCLVersion = ' 1.8.2.0'12 LCLVersion = '2.0.0.4' 13 13 object ListView1: TListView 14 14 Left = 0 … … 35 35 end> 36 36 OwnerData = True 37 ParentFont = False 37 38 ReadOnly = True 38 39 RowSelect = True
Note:
See TracChangeset
for help on using the changeset viewer.