Changeset 243
- Timestamp:
- Sep 21, 2018, 2:09:10 PM (6 years ago)
- Location:
- trunk
- Files:
-
- 25 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormAbout.pas
r115 r243 49 49 procedure TFormAbout.FormShow(Sender: TObject); 50 50 begin 51 Core.ThemeManager1.UseTheme(Self); 51 52 with Core do begin 52 53 LabelAppName.Caption := ApplicationInfo.AppName; -
trunk/Forms/UFormCharts.pas
r231 r243 59 59 begin 60 60 Core.PersistentForm.Load(Self); 61 Core.ThemeManager1.UseTheme(Self); 61 62 Redraw; 62 63 Translate; -
trunk/Forms/UFormChat.pas
r212 r243 53 53 procedure TFormChat.FormShow(Sender: TObject); 54 54 begin 55 55 Core.ThemeManager1.UseTheme(Self); 56 56 end; 57 57 -
trunk/Forms/UFormClient.pas
r241 r243 498 498 LoadConfig(Core.XMLConfig1, 'FormClient'); 499 499 Core.PersistentForm.Load(Self); 500 Core.ThemeManager1.UseTheme(Self); 500 501 UpdateInterface; 501 502 Redraw; -
trunk/Forms/UFormHelp.lfm
r135 r243 9 9 Constraints.MinHeight = 223 10 10 Constraints.MinWidth = 424 11 DesignTimePPI = 120 12 OnClose = FormClose 11 13 OnCreate = FormCreate 14 OnShow = FormShow 12 15 Position = poMainFormCenter 13 LCLVersion = '1. 6.4.0'16 LCLVersion = '1.8.2.0' 14 17 object Memo1: TMemo 15 18 Left = 6 -
trunk/Forms/UFormHelp.pas
r136 r243 14 14 TFormHelp = class(TForm) 15 15 Memo1: TMemo; 16 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 16 17 procedure FormCreate(Sender: TObject); 18 procedure FormShow(Sender: TObject); 17 19 private 18 20 { private declarations } … … 62 64 end; 63 65 66 procedure TFormHelp.FormClose(Sender: TObject; var CloseAction: TCloseAction); 67 begin 68 Core.PersistentForm.Save(Self); 69 end; 70 71 procedure TFormHelp.FormShow(Sender: TObject); 72 begin 73 Core.PersistentForm.Load(Self); 74 Core.ThemeManager1.UseTheme(Self); 75 end; 76 64 77 end. 65 78 -
trunk/Forms/UFormKeyShortcuts.pas
r206 r243 43 43 begin 44 44 Core.PersistentForm.Load(Self); 45 Core.ThemeManager1.UseTheme(Self); 45 46 try 46 47 ListView1.BeginUpdate; -
trunk/Forms/UFormMain.lfm
r227 r243 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 = '1.8.2.0' 18 18 WindowState = wsMaximized 19 19 object ToolBar1: TToolBar … … 79 79 object PanelMain: TPanel 80 80 Left = 0 81 Height = 5 4781 Height = 556 82 82 Top = 40 83 83 Width = 775 -
trunk/Forms/UFormMain.pas
r227 r243 213 213 Core.ScaleDPI; 214 214 Core.PersistentForm.Load(Self, True); 215 Core.ThemeManager1.UseTheme(Self); 215 216 Core.Init; 216 217 LoadConfig(Core.XMLConfig1, 'FormMain'); -
trunk/Forms/UFormMove.lfm
r189 r243 10 10 Constraints.MinHeight = 257 11 11 Constraints.MinWidth = 367 12 DesignTimePPI = 120 13 OnClose = FormClose 12 14 OnCreate = FormCreate 13 15 OnKeyPress = FormKeyPress 14 16 OnShow = FormShow 15 17 Position = poMainFormCenter 16 LCLVersion = '1.8. 0.4'18 LCLVersion = '1.8.2.0' 17 19 object SpinEditOnce: TSpinEdit 18 20 Left = 208 19 Height = 3621 Height = 28 20 22 Top = 40 21 23 Width = 98 … … 26 28 object Label1: TLabel 27 29 Left = 16 28 Height = 2 630 Height = 20 29 31 Top = 40 30 Width = 4932 Width = 37 31 33 Caption = 'Once:' 32 34 ParentColor = False … … 53 55 object Label2: TLabel 54 56 Left = 24 55 Height = 2 657 Height = 20 56 58 Top = 136 57 Width = 9159 Width = 68 58 60 Caption = 'Every turn:' 59 61 ParentColor = False … … 61 63 object SpinEditRepeat: TSpinEdit 62 64 Left = 208 63 Height = 3665 Height = 28 64 66 Top = 128 65 67 Width = 98 … … 134 136 object Label3: TLabel 135 137 Left = 16 136 Height = 2 6138 Height = 20 137 139 Top = 8 138 Width = 1 35140 Width = 106 139 141 Caption = 'Win probability:' 140 142 ParentColor = False … … 142 144 object LabelWinProbability: TLabel 143 145 Left = 264 144 Height = 2 6146 Height = 20 145 147 Top = 8 146 Width = 1 5148 Width = 12 147 149 Caption = ' ' 148 150 ParentColor = False -
trunk/Forms/UFormMove.pas
r189 r243 30 30 procedure ButtonOnceMaxClick(Sender: TObject); 31 31 procedure ButtonRepeatMinClick(Sender: TObject); 32 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 32 33 procedure FormCreate(Sender: TObject); 33 34 procedure ButtonOnceMinClick(Sender: TObject); … … 90 91 procedure TFormMove.FormShow(Sender: TObject); 91 92 begin 93 Core.PersistentForm.Load(Self); 94 Core.ThemeManager1.UseTheme(Self); 92 95 if SpinEditOnce.MaxValue < SpinEditOnce.Value then begin 93 96 SpinEditOnce.Enabled := False; … … 112 115 begin 113 116 TrackBarRepeat.Position := TrackBarRepeat.Min; 117 end; 118 119 procedure TFormMove.FormClose(Sender: TObject; var CloseAction: TCloseAction); 120 begin 121 Core.PersistentForm.Save(Self); 114 122 end; 115 123 -
trunk/Forms/UFormNew.lfm
r229 r243 21 21 Top = 4 22 22 Width = 749 23 ActivePage = TabSheet Map23 ActivePage = TabSheetRules 24 24 Align = alClient 25 25 BorderSpacing.Around = 4 26 TabIndex = 226 TabIndex = 3 27 27 TabOrder = 0 28 28 object TabSheetMode: TTabSheet … … 30 30 ClientHeight = 662 31 31 ClientWidth = 741 32 object RadioButtonModeLocal: TRadioButton 33 Left = 10 34 Height = 24 35 Top = 14 36 Width = 59 37 Caption = 'Local' 38 Checked = True 39 OnChange = RadioButtonModeLocalChange 32 object Panel3: TPanel 33 Left = 0 34 Height = 662 35 Top = 0 36 Width = 741 37 Align = alClient 38 BevelOuter = bvNone 39 ClientHeight = 662 40 ClientWidth = 741 40 41 TabOrder = 0 41 TabStop = True 42 end 43 object RadioButtonModeNetworkServer: TRadioButton 44 Left = 10 45 Height = 24 46 Top = 48 47 Width = 123 48 Caption = 'Network server' 49 OnChange = RadioButtonModeLocalChange 50 TabOrder = 1 51 end 52 object RadioButtonModeNetworkClient: TRadioButton 53 Left = 10 54 Height = 24 55 Top = 152 56 Width = 120 57 Caption = 'Network client' 58 OnChange = RadioButtonModeLocalChange 59 TabOrder = 2 60 end 61 object EditServerAddress: TEdit 62 Left = 24 63 Height = 28 64 Top = 112 65 Width = 220 66 TabOrder = 3 67 end 68 object SpinEditServerPort: TSpinEdit 69 Left = 256 70 Height = 28 71 Top = 112 72 Width = 79 73 MaxValue = 65535 74 TabOrder = 4 75 end 76 object Label11: TLabel 77 Left = 256 78 Height = 20 79 Top = 88 80 Width = 30 81 Caption = 'Port:' 82 ParentColor = False 83 end 84 object Label12: TLabel 85 Left = 24 86 Height = 20 87 Top = 88 88 Width = 56 89 Caption = 'Address:' 90 ParentColor = False 91 end 92 object ListViewServers: TListView 93 Left = 26 94 Height = 430 95 Top = 181 96 Width = 334 97 Anchors = [akTop, akLeft, akBottom] 98 Columns = < 99 item 100 Caption = 'Name' 101 Width = 100 102 end 103 item 104 Caption = 'Address' 105 Width = 214 106 end> 107 MultiSelect = True 108 OwnerData = True 109 PopupMenu = PopupMenuServers 110 ReadOnly = True 111 RowSelect = True 112 TabOrder = 5 113 ViewStyle = vsReport 114 OnData = ListViewServersData 115 OnDblClick = AServerModifyExecute 116 OnKeyPress = ListViewServersKeyPress 117 OnSelectItem = ListViewServersSelectItem 118 end 119 object Button1: TButton 120 Left = 27 121 Height = 31 122 Top = 623 123 Width = 94 124 Action = AServerAdd 125 Anchors = [akLeft, akBottom] 126 TabOrder = 6 127 end 128 object Button2: TButton 129 Left = 240 130 Height = 31 131 Top = 623 132 Width = 94 133 Action = AServerRemove 134 Anchors = [akLeft, akBottom] 135 TabOrder = 7 136 end 137 object Button3: TButton 138 Left = 136 139 Height = 30 140 Top = 623 141 Width = 94 142 Action = AServerModify 143 Anchors = [akLeft, akBottom] 144 TabOrder = 8 42 object RadioButtonModeLocal: TRadioButton 43 Left = 10 44 Height = 24 45 Top = 14 46 Width = 59 47 Caption = 'Local' 48 Checked = True 49 OnChange = RadioButtonModeLocalChange 50 TabOrder = 0 51 TabStop = True 52 end 53 object RadioButtonModeNetworkServer: TRadioButton 54 Left = 10 55 Height = 24 56 Top = 48 57 Width = 123 58 Caption = 'Network server' 59 OnChange = RadioButtonModeLocalChange 60 TabOrder = 1 61 end 62 object RadioButtonModeNetworkClient: TRadioButton 63 Left = 10 64 Height = 24 65 Top = 152 66 Width = 120 67 Caption = 'Network client' 68 OnChange = RadioButtonModeLocalChange 69 TabOrder = 2 70 end 71 object EditServerAddress: TEdit 72 Left = 24 73 Height = 28 74 Top = 112 75 Width = 220 76 TabOrder = 3 77 end 78 object SpinEditServerPort: TSpinEdit 79 Left = 256 80 Height = 28 81 Top = 112 82 Width = 79 83 MaxValue = 65535 84 TabOrder = 4 85 end 86 object Label11: TLabel 87 Left = 256 88 Height = 20 89 Top = 88 90 Width = 30 91 Caption = 'Port:' 92 ParentColor = False 93 end 94 object Label12: TLabel 95 Left = 24 96 Height = 20 97 Top = 88 98 Width = 56 99 Caption = 'Address:' 100 ParentColor = False 101 end 102 object ListViewServers: TListView 103 Left = 26 104 Height = 430 105 Top = 181 106 Width = 334 107 Anchors = [akTop, akLeft, akBottom] 108 Columns = < 109 item 110 Caption = 'Name' 111 Width = 100 112 end 113 item 114 Caption = 'Address' 115 Width = 214 116 end> 117 MultiSelect = True 118 OwnerData = True 119 ReadOnly = True 120 RowSelect = True 121 TabOrder = 5 122 ViewStyle = vsReport 123 OnData = ListViewServersData 124 OnDblClick = AServerModifyExecute 125 OnKeyPress = ListViewServersKeyPress 126 OnSelectItem = ListViewServersSelectItem 127 end 128 object Button1: TButton 129 Left = 27 130 Height = 31 131 Top = 623 132 Width = 94 133 Anchors = [akLeft, akBottom] 134 Caption = 'Add' 135 TabOrder = 6 136 end 137 object Button2: TButton 138 Left = 240 139 Height = 31 140 Top = 623 141 Width = 94 142 Anchors = [akLeft, akBottom] 143 Caption = 'Remove' 144 TabOrder = 7 145 end 146 object Button3: TButton 147 Left = 136 148 Height = 30 149 Top = 623 150 Width = 94 151 Anchors = [akLeft, akBottom] 152 Caption = 'Modify' 153 TabOrder = 8 154 end 145 155 end 146 156 end … … 149 159 ClientHeight = 662 150 160 ClientWidth = 741 151 object ListViewPlayers: TListView 152 Left = 4 153 Height = 612 154 Top = 4 155 Width = 733 156 Align = alTop 157 Anchors = [akTop, akLeft, akRight, akBottom] 158 BorderSpacing.Around = 4 159 Columns = < 160 item 161 Caption = 'Name' 162 Width = 200 163 end 164 item 165 Caption = 'Type' 166 Width = 100 167 end 168 item 169 Caption = 'Color' 170 Width = 100 171 end 172 item 173 Caption = 'Start units' 174 Width = 790 175 end> 176 MultiSelect = True 177 OwnerData = True 178 PopupMenu = PopupMenuPlayers 179 ReadOnly = True 180 RowSelect = True 161 object Panel2: TPanel 162 Left = 0 163 Height = 662 164 Top = 0 165 Width = 741 166 Align = alClient 167 BevelOuter = bvNone 168 ClientHeight = 662 169 ClientWidth = 741 181 170 TabOrder = 0 182 ViewStyle = vsReport 183 OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem 184 OnData = ListViewPlayersData 185 OnDblClick = ListViewPlayersDblClick 186 OnKeyPress = ListViewPlayersKeyPress 187 OnKeyUp = ListViewPlayersKeyUp 188 OnSelectItem = ListViewPlayersSelectItem 189 end 190 object ButtonPlayerRemove: TButton 191 Left = 224 192 Height = 25 193 Top = 624 194 Width = 83 195 Action = APlayerRemove 196 Anchors = [akLeft, akBottom] 197 TabOrder = 1 198 end 199 object ButtonPlayerAdd: TButton 200 Left = 16 201 Height = 25 202 Top = 624 203 Width = 83 204 Action = APlayerAdd 205 Anchors = [akLeft, akBottom] 206 TabOrder = 2 207 end 208 object ButtonPlayerModify: TButton 209 Left = 120 210 Height = 25 211 Top = 624 212 Width = 83 213 Action = APlayerModify 214 Anchors = [akLeft, akBottom] 215 Caption = 'Modify' 216 TabOrder = 3 171 object ListViewPlayers: TListView 172 Left = 4 173 Height = 612 174 Top = 4 175 Width = 733 176 Align = alTop 177 Anchors = [akTop, akLeft, akRight, akBottom] 178 BorderSpacing.Around = 4 179 Columns = < 180 item 181 Caption = 'Name' 182 Width = 200 183 end 184 item 185 Caption = 'Type' 186 Width = 100 187 end 188 item 189 Caption = 'Color' 190 Width = 100 191 end 192 item 193 Caption = 'Start units' 194 Width = 790 195 end> 196 MultiSelect = True 197 OwnerData = True 198 ReadOnly = True 199 RowSelect = True 200 TabOrder = 0 201 ViewStyle = vsReport 202 OnCustomDrawSubItem = ListViewPlayersCustomDrawSubItem 203 OnData = ListViewPlayersData 204 OnDblClick = ListViewPlayersDblClick 205 OnKeyPress = ListViewPlayersKeyPress 206 OnKeyUp = ListViewPlayersKeyUp 207 OnSelectItem = ListViewPlayersSelectItem 208 end 209 object ButtonPlayerAdd: TButton 210 Left = 16 211 Height = 25 212 Top = 624 213 Width = 83 214 Anchors = [akLeft, akBottom] 215 Caption = 'Add' 216 TabOrder = 1 217 end 218 object ButtonPlayerModify: TButton 219 Left = 120 220 Height = 25 221 Top = 624 222 Width = 83 223 Anchors = [akLeft, akBottom] 224 Caption = 'Modify' 225 TabOrder = 2 226 end 227 object ButtonPlayerRemove: TButton 228 Left = 224 229 Height = 25 230 Top = 624 231 Width = 83 232 Anchors = [akLeft, akBottom] 233 Caption = 'Remove' 234 TabOrder = 3 235 end 217 236 end 218 237 end … … 221 240 ClientHeight = 662 222 241 ClientWidth = 741 223 object Label1: TLabel 224 Left = 8 225 Height = 20 226 Top = 9 227 Width = 74 228 Caption = 'Map width:' 229 ParentColor = False 230 end 231 object Label2: TLabel 232 Left = 8 233 Height = 20 234 Top = 57 235 Width = 79 236 Caption = 'Map height:' 237 ParentColor = False 238 end 239 object SpinEditMapSizeX: TSpinEdit 240 Left = 128 241 Height = 28 242 Top = 4 243 Width = 98 244 MinValue = 2 245 OnChange = SpinEditMapSizeXChange 242 object Panel1: TPanel 243 Left = 0 244 Height = 662 245 Top = 0 246 Width = 741 247 Align = alClient 248 BevelOuter = bvNone 249 ClientHeight = 662 250 ClientWidth = 741 246 251 TabOrder = 0 247 Value = 2 248 end 249 object SpinEditMapSizeY: TSpinEdit 250 Left = 128 251 Height = 28 252 Top = 55 253 Width = 98 254 MinValue = 2 255 OnChange = SpinEditMapSizeYChange 256 TabOrder = 1 257 Value = 2 258 end 259 object TrackBarSizeX: TTrackBar 260 Left = 240 261 Height = 47 262 Top = 8 263 Width = 490 264 Max = 100 265 Min = 2 266 OnChange = TrackBarSizeXChange 267 Position = 2 268 TickStyle = tsNone 269 Anchors = [akTop, akLeft, akRight] 270 TabOrder = 2 271 end 272 object TrackBarSizeY: TTrackBar 273 Left = 240 274 Height = 47 275 Top = 49 276 Width = 490 277 Max = 100 278 Min = 2 279 OnChange = TrackBarSizeYChange 280 Position = 2 281 TickStyle = tsNone 282 Anchors = [akTop, akLeft, akRight] 283 TabOrder = 3 284 end 285 object Label5: TLabel 286 Left = 8 287 Height = 20 288 Top = 104 289 Width = 64 290 Caption = 'Grid type:' 291 ParentColor = False 292 end 293 object ComboBoxGridType: TComboBox 294 Left = 146 295 Height = 28 296 Top = 104 297 Width = 208 298 ItemHeight = 20 299 Items.Strings = ( 300 'Hexagonal' 301 'Square' 302 'Triangular' 303 ) 304 Style = csDropDownList 305 TabOrder = 4 306 end 307 object ComboBoxMapShape: TComboBox 308 Left = 146 309 Height = 28 310 Top = 144 311 Width = 208 312 ItemHeight = 20 313 Items.Strings = ( 314 'Hexagonal' 315 'Square' 316 'Triangular' 317 ) 318 OnChange = ComboBoxMapShapeChange 319 Style = csDropDownList 320 TabOrder = 5 321 end 322 object Label8: TLabel 323 Left = 8 324 Height = 20 325 Top = 144 326 Width = 76 327 Caption = 'Map shape:' 328 ParentColor = False 329 end 330 object CheckBoxSymetricMap: TCheckBox 331 Left = 472 332 Height = 27 333 Top = 110 334 Width = 253 335 Anchors = [akTop, akLeft, akRight] 336 AutoSize = False 337 Caption = 'Symetric map' 338 TabOrder = 6 339 end 340 object SpinEditVoidPercent: TSpinEdit 341 Left = 216 342 Height = 28 343 Top = 224 344 Width = 106 345 MinValue = 1 346 TabOrder = 7 347 Value = 1 348 end 349 object CheckBoxVoid: TCheckBox 350 Left = 8 351 Height = 24 352 Top = 232 353 Width = 149 354 Caption = 'Inaccessible places' 355 OnChange = CheckBoxVoidChange 356 TabOrder = 8 357 end 358 object CheckBoxCity: TCheckBox 359 Left = 8 360 Height = 24 361 Top = 272 362 Width = 60 363 Caption = 'Cities' 364 OnChange = CheckBoxCityChange 365 TabOrder = 9 366 end 367 object SpinEditCityPercent: TSpinEdit 368 Left = 216 369 Height = 28 370 Top = 272 371 Width = 106 372 MinValue = 1 373 TabOrder = 10 374 Value = 1 375 end 376 object Label4: TLabel 377 Left = 331 378 Height = 20 379 Top = 272 380 Width = 12 381 Caption = '%' 382 ParentColor = False 383 end 384 object Label3: TLabel 385 Left = 331 386 Height = 20 387 Top = 232 388 Width = 12 389 Caption = '%' 390 ParentColor = False 391 end 392 object SpinEditNeutralUnits: TSpinEdit 393 Left = 408 394 Height = 28 395 Top = 384 396 Width = 98 397 MaxValue = 99 398 TabOrder = 11 399 Value = 12 400 end 401 object Label7: TLabel 402 Left = 8 403 Height = 20 404 Top = 384 405 Width = 172 406 Caption = 'Max random neutral units:' 407 ParentColor = False 408 end 409 object EditImageFile: TEdit 410 Left = 144 411 Height = 28 412 Top = 184 413 Width = 474 414 Anchors = [akTop, akLeft, akRight] 415 TabOrder = 12 416 end 417 object ButtonImageBrowse: TButton 418 Left = 626 419 Height = 25 420 Top = 192 421 Width = 99 422 Anchors = [akTop, akRight] 423 Caption = 'Browse' 424 OnClick = ButtonImageBrowseClick 425 TabOrder = 13 426 end 427 object Label9: TLabel 428 Left = 8 429 Height = 20 430 Top = 184 431 Width = 70 432 Caption = 'Image file:' 433 ParentColor = False 434 end 435 object CheckBoxBridges: TCheckBox 436 Left = 8 437 Height = 24 438 Top = 310 439 Width = 168 440 Caption = 'Bridges between cells' 441 TabOrder = 14 442 end 443 object SpinEditMaxPower: TSpinEdit 444 Left = 408 445 Height = 28 446 Top = 344 447 Width = 98 448 MaxValue = 1000000 449 MinValue = 1 450 OnChange = SpinEditMaxPowerChange 451 TabOrder = 15 452 Value = 99 453 end 454 object Label10: TLabel 455 Left = 8 456 Height = 20 457 Top = 344 458 Width = 119 459 Caption = 'Max units per cell:' 460 ParentColor = False 461 end 462 object CheckBoxCyclicMap: TCheckBox 463 Left = 472 464 Height = 27 465 Top = 137 466 Width = 253 467 Anchors = [akTop, akLeft, akRight] 468 AutoSize = False 469 Caption = 'Cyclic map' 470 TabOrder = 16 252 object Label1: TLabel 253 Left = 8 254 Height = 20 255 Top = 9 256 Width = 74 257 Caption = 'Map width:' 258 ParentColor = False 259 end 260 object Label2: TLabel 261 Left = 8 262 Height = 20 263 Top = 57 264 Width = 79 265 Caption = 'Map height:' 266 ParentColor = False 267 end 268 object SpinEditMapSizeX: TSpinEdit 269 Left = 128 270 Height = 28 271 Top = 4 272 Width = 98 273 MinValue = 2 274 OnChange = SpinEditMapSizeXChange 275 TabOrder = 0 276 Value = 2 277 end 278 object SpinEditMapSizeY: TSpinEdit 279 Left = 128 280 Height = 28 281 Top = 55 282 Width = 98 283 MinValue = 2 284 OnChange = SpinEditMapSizeYChange 285 TabOrder = 1 286 Value = 2 287 end 288 object TrackBarSizeX: TTrackBar 289 Left = 240 290 Height = 47 291 Top = 8 292 Width = 490 293 Max = 100 294 Min = 2 295 OnChange = TrackBarSizeXChange 296 Position = 2 297 TickStyle = tsNone 298 Anchors = [akTop, akLeft, akRight] 299 TabOrder = 2 300 end 301 object TrackBarSizeY: TTrackBar 302 Left = 240 303 Height = 47 304 Top = 49 305 Width = 490 306 Max = 100 307 Min = 2 308 OnChange = TrackBarSizeYChange 309 Position = 2 310 TickStyle = tsNone 311 Anchors = [akTop, akLeft, akRight] 312 TabOrder = 3 313 end 314 object Label5: TLabel 315 Left = 8 316 Height = 20 317 Top = 104 318 Width = 64 319 Caption = 'Grid type:' 320 ParentColor = False 321 end 322 object ComboBoxGridType: TComboBox 323 Left = 146 324 Height = 28 325 Top = 104 326 Width = 208 327 ItemHeight = 20 328 Items.Strings = ( 329 'Hexagonal' 330 'Square' 331 'Triangular' 332 ) 333 Style = csDropDownList 334 TabOrder = 4 335 end 336 object ComboBoxMapShape: TComboBox 337 Left = 146 338 Height = 28 339 Top = 144 340 Width = 208 341 ItemHeight = 20 342 Items.Strings = ( 343 'Hexagonal' 344 'Square' 345 'Triangular' 346 ) 347 OnChange = ComboBoxMapShapeChange 348 Style = csDropDownList 349 TabOrder = 5 350 end 351 object Label8: TLabel 352 Left = 8 353 Height = 20 354 Top = 144 355 Width = 76 356 Caption = 'Map shape:' 357 ParentColor = False 358 end 359 object CheckBoxSymetricMap: TCheckBox 360 Left = 472 361 Height = 27 362 Top = 110 363 Width = 253 364 Anchors = [akTop, akLeft, akRight] 365 AutoSize = False 366 Caption = 'Symetric map' 367 TabOrder = 6 368 end 369 object SpinEditVoidPercent: TSpinEdit 370 Left = 216 371 Height = 28 372 Top = 224 373 Width = 106 374 MinValue = 1 375 TabOrder = 7 376 Value = 1 377 end 378 object CheckBoxVoid: TCheckBox 379 Left = 8 380 Height = 24 381 Top = 232 382 Width = 149 383 Caption = 'Inaccessible places' 384 OnChange = CheckBoxVoidChange 385 TabOrder = 8 386 end 387 object CheckBoxCity: TCheckBox 388 Left = 8 389 Height = 24 390 Top = 272 391 Width = 60 392 Caption = 'Cities' 393 OnChange = CheckBoxCityChange 394 TabOrder = 9 395 end 396 object SpinEditCityPercent: TSpinEdit 397 Left = 216 398 Height = 28 399 Top = 272 400 Width = 106 401 MinValue = 1 402 TabOrder = 10 403 Value = 1 404 end 405 object Label4: TLabel 406 Left = 331 407 Height = 20 408 Top = 272 409 Width = 12 410 Caption = '%' 411 ParentColor = False 412 end 413 object Label3: TLabel 414 Left = 331 415 Height = 20 416 Top = 232 417 Width = 12 418 Caption = '%' 419 ParentColor = False 420 end 421 object SpinEditNeutralUnits: TSpinEdit 422 Left = 408 423 Height = 28 424 Top = 384 425 Width = 98 426 MaxValue = 99 427 TabOrder = 11 428 Value = 12 429 end 430 object Label7: TLabel 431 Left = 8 432 Height = 20 433 Top = 384 434 Width = 172 435 Caption = 'Max random neutral units:' 436 ParentColor = False 437 end 438 object EditImageFile: TEdit 439 Left = 144 440 Height = 28 441 Top = 184 442 Width = 474 443 Anchors = [akTop, akLeft, akRight] 444 TabOrder = 12 445 end 446 object ButtonImageBrowse: TButton 447 Left = 626 448 Height = 25 449 Top = 192 450 Width = 99 451 Anchors = [akTop, akRight] 452 Caption = 'Browse' 453 OnClick = ButtonImageBrowseClick 454 TabOrder = 13 455 end 456 object Label9: TLabel 457 Left = 8 458 Height = 20 459 Top = 184 460 Width = 70 461 Caption = 'Image file:' 462 ParentColor = False 463 end 464 object CheckBoxBridges: TCheckBox 465 Left = 8 466 Height = 24 467 Top = 310 468 Width = 168 469 Caption = 'Bridges between cells' 470 TabOrder = 14 471 end 472 object SpinEditMaxPower: TSpinEdit 473 Left = 408 474 Height = 28 475 Top = 344 476 Width = 98 477 MaxValue = 1000000 478 MinValue = 1 479 OnChange = SpinEditMaxPowerChange 480 TabOrder = 15 481 Value = 99 482 end 483 object Label10: TLabel 484 Left = 8 485 Height = 20 486 Top = 344 487 Width = 119 488 Caption = 'Max units per cell:' 489 ParentColor = False 490 end 491 object CheckBoxCyclicMap: TCheckBox 492 Left = 472 493 Height = 27 494 Top = 137 495 Width = 253 496 Anchors = [akTop, akLeft, akRight] 497 AutoSize = False 498 Caption = 'Cyclic map' 499 TabOrder = 16 500 end 471 501 end 472 502 end … … 475 505 ClientHeight = 662 476 506 ClientWidth = 741 477 object RadioGroupGrowCells: TRadioGroup 478 Left = 15 479 Height = 105 480 Top = 104 481 Width = 312 482 AutoFill = True 483 Caption = 'Growing cells' 484 ChildSizing.LeftRightSpacing = 6 485 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 486 ChildSizing.EnlargeVertical = crsHomogenousChildResize 487 ChildSizing.ShrinkHorizontal = crsScaleChilds 488 ChildSizing.ShrinkVertical = crsScaleChilds 489 ChildSizing.Layout = cclLeftToRightThenTopToBottom 490 ChildSizing.ControlsPerLine = 1 491 ClientHeight = 80 492 ClientWidth = 308 493 Items.Strings = ( 494 'None' 495 'Player cities' 496 'Player all' 497 ) 507 object Panel4: TPanel 508 Left = 0 509 Height = 662 510 Top = 0 511 Width = 741 512 Align = alClient 513 BevelOuter = bvNone 514 ClientHeight = 662 515 ClientWidth = 741 498 516 TabOrder = 0 499 end 500 object Label6: TLabel 501 Left = 8 502 Height = 20 503 Top = 248 504 Width = 94 505 Caption = 'Win objective:' 506 ParentColor = False 507 end 508 object ComboBoxWinObjective: TComboBox 509 Left = 224 510 Height = 28 511 Top = 244 512 Width = 328 513 ItemHeight = 20 514 Items.Strings = ( 515 'Defeat all oponents' 516 'Defeat all oponents cities' 517 'Capture position' 518 'Stay alive for number of turns' 519 ) 520 OnChange = ComboBoxWinObjectiveChange 521 Style = csDropDownList 522 TabOrder = 1 523 end 524 object RadioGroupGrowAmount: TRadioGroup 525 Left = 15 526 Height = 76 527 Top = 16 528 Width = 305 529 AutoFill = True 530 Caption = 'Per turn grow amount' 531 ChildSizing.LeftRightSpacing = 6 532 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 533 ChildSizing.EnlargeVertical = crsHomogenousChildResize 534 ChildSizing.ShrinkHorizontal = crsScaleChilds 535 ChildSizing.ShrinkVertical = crsScaleChilds 536 ChildSizing.Layout = cclLeftToRightThenTopToBottom 537 ChildSizing.ControlsPerLine = 1 538 ClientHeight = 51 539 ClientWidth = 301 540 Items.Strings = ( 541 'By one' 542 'By square root' 543 ) 544 TabOrder = 2 545 end 546 object CheckBoxFogOfWar: TCheckBox 547 Left = 336 548 Height = 27 549 Top = 24 550 Width = 581 551 Anchors = [akTop, akLeft, akRight] 552 AutoSize = False 553 Caption = 'Fog of war' 554 TabOrder = 3 555 end 556 object PageControl2: TPageControl 557 Left = 12 558 Height = 78 559 Top = 290 560 Width = 718 561 ActivePage = TabSheetCaptureCities 562 Anchors = [akTop, akLeft, akRight] 563 ShowTabs = False 564 TabIndex = 1 565 TabOrder = 4 566 object TabSheetDefeatEnemies: TTabSheet 567 end 568 object TabSheetCaptureCities: TTabSheet 569 end 570 object TabSheetCaptureCells: TTabSheet 571 ClientHeight = 74 572 ClientWidth = 716 573 object Label14: TLabel 574 Left = 8 575 Height = 20 576 Top = 16 577 Width = 125 578 Caption = 'Special cells count:' 579 ParentColor = False 517 object RadioGroupGrowCells: TRadioGroup 518 Left = 15 519 Height = 105 520 Top = 104 521 Width = 312 522 AutoFill = True 523 Caption = 'Growing cells' 524 ChildSizing.LeftRightSpacing = 6 525 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 526 ChildSizing.EnlargeVertical = crsHomogenousChildResize 527 ChildSizing.ShrinkHorizontal = crsScaleChilds 528 ChildSizing.ShrinkVertical = crsScaleChilds 529 ChildSizing.Layout = cclLeftToRightThenTopToBottom 530 ChildSizing.ControlsPerLine = 1 531 ClientHeight = 80 532 ClientWidth = 308 533 Items.Strings = ( 534 'None' 535 'Player cities' 536 'Player all' 537 ) 538 TabOrder = 0 539 end 540 object Label6: TLabel 541 Left = 8 542 Height = 20 543 Top = 248 544 Width = 94 545 Caption = 'Win objective:' 546 ParentColor = False 547 end 548 object ComboBoxWinObjective: TComboBox 549 Left = 224 550 Height = 28 551 Top = 244 552 Width = 328 553 ItemHeight = 20 554 Items.Strings = ( 555 'Defeat all oponents' 556 'Defeat all oponents cities' 557 'Capture position' 558 'Stay alive for number of turns' 559 ) 560 OnChange = ComboBoxWinObjectiveChange 561 Style = csDropDownList 562 TabOrder = 1 563 end 564 object RadioGroupGrowAmount: TRadioGroup 565 Left = 15 566 Height = 76 567 Top = 16 568 Width = 305 569 AutoFill = True 570 Caption = 'Per turn grow amount' 571 ChildSizing.LeftRightSpacing = 6 572 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 573 ChildSizing.EnlargeVertical = crsHomogenousChildResize 574 ChildSizing.ShrinkHorizontal = crsScaleChilds 575 ChildSizing.ShrinkVertical = crsScaleChilds 576 ChildSizing.Layout = cclLeftToRightThenTopToBottom 577 ChildSizing.ControlsPerLine = 1 578 ClientHeight = 51 579 ClientWidth = 301 580 Items.Strings = ( 581 'By one' 582 'By square root' 583 ) 584 TabOrder = 2 585 end 586 object CheckBoxFogOfWar: TCheckBox 587 Left = 336 588 Height = 24 589 Top = 24 590 Width = 95 591 Caption = 'Fog of war' 592 TabOrder = 3 593 end 594 object PageControl2: TPageControl 595 Left = 12 596 Height = 78 597 Top = 290 598 Width = 718 599 ActivePage = TabSheetCaptureCities 600 Anchors = [akTop, akLeft, akRight] 601 ShowTabs = False 602 TabIndex = 1 603 TabOrder = 4 604 object TabSheetDefeatEnemies: TTabSheet 580 605 end 581 object SpinEditSpecialCells: TSpinEdit 582 Left = 236 583 Height = 28 584 Top = 8 585 Width = 159 586 MaxValue = 1000 587 MinValue = 1 588 TabOrder = 0 589 Value = 1 606 object TabSheetCaptureCities: TTabSheet 590 607 end 591 end 592 object TabSheetStayAliveTurns: TTabSheet 593 ClientHeight = 74 594 ClientWidth = 716 595 object Label13: TLabel 596 Left = 8 597 Height = 20 598 Top = 16 599 Width = 111 600 Caption = 'Number of turns:' 601 ParentColor = False 608 object TabSheetCaptureCells: TTabSheet 609 ClientHeight = 74 610 ClientWidth = 716 611 object Label14: TLabel 612 Left = 8 613 Height = 20 614 Top = 16 615 Width = 125 616 Caption = 'Special cells count:' 617 ParentColor = False 618 end 619 object SpinEditSpecialCells: TSpinEdit 620 Left = 236 621 Height = 28 622 Top = 8 623 Width = 159 624 MaxValue = 1000 625 MinValue = 1 626 TabOrder = 0 627 Value = 1 628 end 602 629 end 603 object SpinEditTurns: TSpinEdit 604 Left = 236 605 Height = 28 606 Top = 8 607 Width = 159 608 MaxValue = 1000 609 MinValue = 1 610 TabOrder = 0 611 Value = 1 630 object TabSheetStayAliveTurns: TTabSheet 631 ClientHeight = 74 632 ClientWidth = 716 633 object Label13: TLabel 634 Left = 8 635 Height = 20 636 Top = 16 637 Width = 111 638 Caption = 'Number of turns:' 639 ParentColor = False 640 end 641 object SpinEditTurns: TSpinEdit 642 Left = 236 643 Height = 28 644 Top = 8 645 Width = 159 646 MaxValue = 1000 647 MinValue = 1 648 TabOrder = 0 649 Value = 1 650 end 612 651 end 613 652 end … … 665 704 object ActionList1: TActionList 666 705 Images = Core.ImageListSmall 667 left = 568668 top = 296706 left = 464 707 top = 464 669 708 object APlayerModify: TAction 670 709 Caption = 'Modify player' … … 693 732 end 694 733 object OpenPictureDialog1: TOpenPictureDialog 695 left = 568696 top = 360734 left = 602 735 top = 464 697 736 end 698 737 object PopupMenuPlayers: TPopupMenu 699 left = 568700 top = 232738 left = 312 739 top = 464 701 740 object MenuItem1: TMenuItem 702 741 Action = APlayerAdd … … 711 750 end 712 751 object PopupMenuServers: TPopupMenu 713 left = 1 21714 top = 317752 left = 176 753 top = 464 715 754 object MenuItem4: TMenuItem 716 755 Action = AServerAdd -
trunk/Forms/UFormNew.pas
r231 r243 15 15 16 16 TFormNew = class(TForm) 17 ActionList1: TActionList; 18 APlayerAdd: TAction; 19 APlayerModify: TAction; 20 APlayerRemove: TAction; 21 AServerAdd: TAction; 17 22 AServerModify: TAction; 18 AServerAdd: TAction;19 23 AServerRemove: TAction; 20 APlayerAdd: TAction;21 APlayerRemove: TAction;22 APlayerModify: TAction;23 ActionList1: TActionList;24 24 Button1: TButton; 25 25 Button2: TButton; … … 32 32 ButtonPlayerRemove: TButton; 33 33 CheckBoxBridges: TCheckBox; 34 CheckBoxCity: TCheckBox; 35 CheckBoxCyclicMap: TCheckBox; 34 36 CheckBoxFogOfWar: TCheckBox; 35 CheckBoxCity: TCheckBox;36 37 CheckBoxSymetricMap: TCheckBox; 37 CheckBoxCyclicMap: TCheckBox;38 38 CheckBoxVoid: TCheckBox; 39 39 ComboBoxGridType: TComboBox; 40 40 ComboBoxMapShape: TComboBox; 41 41 ComboBoxWinObjective: TComboBox; 42 EditImageFile: TEdit; 42 43 EditServerAddress: TEdit; 43 EditImageFile: TEdit;44 44 Label1: TLabel; 45 45 Label10: TLabel; … … 67 67 PageControl1: TPageControl; 68 68 PageControl2: TPageControl; 69 Panel1: TPanel; 70 Panel2: TPanel; 71 Panel3: TPanel; 72 Panel4: TPanel; 69 73 PanelButtons: TPanel; 70 74 PanelChat: TPanel; 71 75 PopupMenuPlayers: TPopupMenu; 72 76 PopupMenuServers: TPopupMenu; 77 RadioButtonModeLocal: TRadioButton; 78 RadioButtonModeNetworkClient: TRadioButton; 73 79 RadioButtonModeNetworkServer: TRadioButton; 74 RadioButtonModeNetworkClient: TRadioButton;75 RadioButtonModeLocal: TRadioButton;76 80 RadioGroupGrowAmount: TRadioGroup; 77 81 RadioGroupGrowCells: TRadioGroup; 78 SpinEditMaxPower: TSpinEdit;79 SpinEditServerPort: TSpinEdit;80 82 SpinEditCityPercent: TSpinEdit; 81 83 SpinEditMapSizeX: TSpinEdit; 82 84 SpinEditMapSizeY: TSpinEdit; 85 SpinEditMaxPower: TSpinEdit; 83 86 SpinEditNeutralUnits: TSpinEdit; 87 SpinEditServerPort: TSpinEdit; 84 88 SpinEditSpecialCells: TSpinEdit; 85 89 SpinEditTurns: TSpinEdit; 86 90 SpinEditVoidPercent: TSpinEdit; 87 91 Splitter1: TSplitter; 92 TabSheetCaptureCells: TTabSheet; 93 TabSheetCaptureCities: TTabSheet; 94 TabSheetDefeatEnemies: TTabSheet; 88 95 TabSheetPlayers: TTabSheet; 89 96 TabSheetMap: TTabSheet; 90 97 TabSheetRules: TTabSheet; 98 TabSheetMode: TTabSheet; 91 99 TabSheetStayAliveTurns: TTabSheet; 92 TabSheetCaptureCells: TTabSheet;93 TabSheetDefeatEnemies: TTabSheet;94 TabSheetCaptureCities: TTabSheet;95 TabSheetMode: TTabSheet;96 100 TrackBarSizeX: TTrackBar; 97 101 TrackBarSizeY: TTrackBar; … … 341 345 begin 342 346 Core.PersistentForm.Load(Self); 347 Core.ThemeManager1.UseTheme(Self); 343 348 ReloadView; 344 349 //Height := Trunc(1.5 * Height); -
trunk/Forms/UFormPlayer.pas
r231 r243 77 77 begin 78 78 Core.PersistentForm.Load(Self); 79 Core.ThemeManager1.UseTheme(Self); 79 80 UpdateInterface; 80 81 end; -
trunk/Forms/UFormPlayersStats.pas
r231 r243 93 93 begin 94 94 Core.PersistentForm.Load(Self); 95 Core.ThemeManager1.UseTheme(Self); 95 96 Core.CoolTranslator1.TranslateComponentRecursive(Self); 96 97 ReloadList; -
trunk/Forms/UFormServer.lfm
r196 r243 8 8 ClientWidth = 403 9 9 DesignTimePPI = 120 10 OnShow = FormShow 10 11 LCLVersion = '1.8.2.0' 11 12 object Label1: TLabel -
trunk/Forms/UFormServer.pas
r196 r243 22 22 Label3: TLabel; 23 23 SpinEdit1: TSpinEdit; 24 procedure FormShow(Sender: TObject); 24 25 private 25 26 … … 36 37 {$R *.lfm} 37 38 39 uses 40 UCore; 41 38 42 { TFormServer } 43 44 procedure TFormServer.FormShow(Sender: TObject); 45 begin 46 Core.ThemeManager1.UseTheme(Self); 47 end; 39 48 40 49 procedure TFormServer.Load(Server: TServerInfo); -
trunk/Forms/UFormSettings.lfm
r220 r243 1 1 object FormSettings: TFormSettings 2 Left = 4043 Height = 32 74 Top = 5745 Width = 5542 Left = 535 3 Height = 328 4 Top = 417 5 Width = 605 6 6 ActiveControl = ButtonOk 7 7 Caption = 'Settings' 8 ClientHeight = 327 9 ClientWidth = 554 10 Constraints.MinHeight = 327 11 Constraints.MinWidth = 554 12 DesignTimePPI = 144 8 ClientHeight = 328 9 ClientWidth = 605 10 Constraints.MinHeight = 300 11 Constraints.MinWidth = 454 12 DesignTimePPI = 120 13 OnClose = FormClose 13 14 OnCreate = FormCreate 14 15 OnShow = FormShow … … 16 17 LCLVersion = '1.8.2.0' 17 18 object ButtonOk: TButton 18 Left = 44419 Left = 522 19 20 Height = 25 20 Top = 28 421 Top = 289 21 22 Width = 75 22 23 Anchors = [akRight, akBottom] … … 26 27 end 27 28 object ButtonCancel: TButton 28 Left = 32229 Left = 427 29 30 Height = 25 30 Top = 28 431 Top = 289 31 32 Width = 75 32 33 Anchors = [akRight, akBottom] … … 36 37 end 37 38 object PageControl1: TPageControl 38 Left = 439 Height = 2 6440 Top = 441 Width = 5 4639 Left = 8 40 Height = 273 41 Top = 8 42 Width = 589 42 43 ActivePage = TabSheetDebug 43 44 Align = alTop 44 45 Anchors = [akTop, akLeft, akRight, akBottom] 45 BorderSpacing.Around = 446 BorderSpacing.Around = 8 46 47 TabIndex = 1 47 48 TabOrder = 2 48 49 object TabSheetGeneral: TTabSheet 49 50 Caption = 'General' 50 ClientHeight = 220 51 ClientWidth = 540 52 object Label2: TLabel 53 Left = 20 54 Height = 26 55 Top = 78 56 Width = 150 57 Caption = 'Animation speed:' 58 ParentColor = False 59 end 60 object SpinEditAnimSpeed: TSpinEdit 61 Left = 232 62 Height = 36 63 Top = 72 64 Width = 122 51 ClientHeight = 240 52 ClientWidth = 581 53 object Panel1: TPanel 54 Left = 0 55 Height = 240 56 Top = 0 57 Width = 581 58 Align = alClient 59 BevelOuter = bvNone 60 ClientHeight = 240 61 ClientWidth = 581 65 62 TabOrder = 0 66 end 67 object Label3: TLabel 68 Left = 368 69 Height = 26 70 Top = 82 71 Width = 15 72 Caption = '%' 73 ParentColor = False 74 end 75 object CheckBoxAutoSaveTurn: TCheckBox 76 Left = 20 77 Height = 27 78 Top = 112 79 Width = 586 80 Anchors = [akTop, akLeft, akRight] 81 AutoSize = False 82 Caption = 'Autosave game on each turn' 83 TabOrder = 1 84 end 85 object Label1: TLabel 86 Left = 20 87 Height = 26 88 Top = 26 89 Width = 88 90 Caption = 'Language:' 91 ParentColor = False 92 end 93 object ComboBoxLanguage: TComboBox 94 Left = 178 95 Height = 40 96 Top = 24 97 Width = 196 98 ItemHeight = 0 99 Style = csDropDownList 100 TabOrder = 2 101 end 102 object CheckBoxReopenLastFile: TCheckBox 103 Left = 20 104 Height = 30 105 Top = 152 106 Width = 249 107 Caption = 'Reopen last game on start' 108 TabOrder = 3 63 object Label1: TLabel 64 Left = 20 65 Height = 20 66 Top = 26 67 Width = 68 68 Caption = 'Language:' 69 ParentColor = False 70 end 71 object ComboBoxLanguage: TComboBox 72 Left = 178 73 Height = 28 74 Top = 24 75 Width = 196 76 ItemHeight = 20 77 Style = csDropDownList 78 TabOrder = 0 79 end 80 object ComboBoxTheme: TComboBox 81 Left = 178 82 Height = 28 83 Top = 56 84 Width = 196 85 ItemHeight = 20 86 Style = csDropDownList 87 TabOrder = 1 88 end 89 object Label6: TLabel 90 Left = 20 91 Height = 20 92 Top = 58 93 Width = 48 94 Caption = 'Theme:' 95 ParentColor = False 96 end 97 object SpinEditAnimSpeed: TSpinEdit 98 Left = 232 99 Height = 28 100 Top = 110 101 Width = 122 102 TabOrder = 2 103 end 104 object Label3: TLabel 105 Left = 368 106 Height = 20 107 Top = 114 108 Width = 12 109 Caption = '%' 110 ParentColor = False 111 end 112 object Label2: TLabel 113 Left = 20 114 Height = 20 115 Top = 110 116 Width = 116 117 Caption = 'Animation speed:' 118 ParentColor = False 119 end 120 object CheckBoxAutoSaveTurn: TCheckBox 121 Left = 20 122 Height = 24 123 Top = 144 124 Width = 213 125 Caption = 'Autosave game on each turn' 126 TabOrder = 3 127 end 128 object CheckBoxReopenLastFile: TCheckBox 129 Left = 20 130 Height = 24 131 Top = 184 132 Width = 198 133 Caption = 'Reopen last game on start' 134 TabOrder = 4 135 end 109 136 end 110 137 end 111 138 object TabSheetDebug: TTabSheet 112 139 Caption = 'Debug' 113 ClientHeight = 220 114 ClientWidth = 540 115 object CheckBoxDevelMode: TCheckBox 116 Left = 16 117 Height = 27 118 Top = 136 119 Width = 512 120 Anchors = [akTop, akLeft, akRight] 121 AutoSize = False 122 Caption = 'Developer mode' 140 ClientHeight = 240 141 ClientWidth = 581 142 object Panel2: TPanel 143 Left = 0 144 Height = 240 145 Top = 0 146 Width = 581 147 Align = alClient 148 BevelOuter = bvNone 149 ClientHeight = 240 150 ClientWidth = 581 123 151 TabOrder = 0 124 end 125 object Label4: TLabel 126 Left = 14 127 Height = 26 128 Top = 67 129 Width = 35 130 Caption = 'DPI:' 131 ParentColor = False 132 end 133 object SpinEditX: TSpinEdit 134 Left = 104 135 Height = 36 136 Top = 64 137 Width = 96 138 MaxValue = 500 139 MinValue = 20 140 TabOrder = 1 141 Value = 50 142 end 143 object SpinEditY: TSpinEdit 144 Left = 232 145 Height = 36 146 Top = 64 147 Width = 90 148 MaxValue = 500 149 MinValue = 20 150 TabOrder = 2 151 Value = 20 152 end 153 object Label5: TLabel 154 Left = 208 155 Height = 26 156 Top = 67 157 Width = 10 158 Caption = 'x' 159 ParentColor = False 160 end 161 object CheckBox2: TCheckBox 162 Left = 16 163 Height = 24 164 Top = 32 165 Width = 508 166 Anchors = [akTop, akLeft, akRight] 167 AutoSize = False 168 Caption = 'Automatic DPI' 169 OnChange = CheckBox2Change 170 TabOrder = 3 152 object CheckBox2: TCheckBox 153 Left = 16 154 Height = 24 155 Top = 32 156 Width = 549 157 Anchors = [akTop, akLeft, akRight] 158 AutoSize = False 159 Caption = 'Automatic DPI' 160 OnChange = CheckBox2Change 161 TabOrder = 0 162 end 163 object Label4: TLabel 164 Left = 14 165 Height = 20 166 Top = 67 167 Width = 26 168 Caption = 'DPI:' 169 ParentColor = False 170 end 171 object SpinEditX: TSpinEdit 172 Left = 104 173 Height = 28 174 Top = 64 175 Width = 96 176 MaxValue = 500 177 MinValue = 20 178 TabOrder = 1 179 Value = 50 180 end 181 object Label5: TLabel 182 Left = 208 183 Height = 20 184 Top = 67 185 Width = 7 186 Caption = 'x' 187 ParentColor = False 188 end 189 object SpinEditY: TSpinEdit 190 Left = 232 191 Height = 28 192 Top = 64 193 Width = 90 194 MaxValue = 500 195 MinValue = 20 196 TabOrder = 2 197 Value = 20 198 end 199 object CheckBoxDevelMode: TCheckBox 200 Left = 16 201 Height = 27 202 Top = 136 203 Width = 553 204 Anchors = [akTop, akLeft, akRight] 205 AutoSize = False 206 Caption = 'Developer mode' 207 TabOrder = 3 208 end 171 209 end 172 210 end -
trunk/Forms/UFormSettings.pas
r195 r243 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 Spin, ComCtrls ;9 Spin, ComCtrls, ExtCtrls; 10 10 11 11 type … … 16 16 ButtonOk: TButton; 17 17 ButtonCancel: TButton; 18 CheckBox2: TCheckBox; 19 CheckBoxAutoSaveTurn: TCheckBox; 20 CheckBoxDevelMode: TCheckBox; 18 21 CheckBoxReopenLastFile: TCheckBox; 19 CheckBoxAutoSaveTurn: TCheckBox;20 CheckBox2: TCheckBox;21 CheckBoxDevelMode: TCheckBox;22 22 ComboBoxLanguage: TComboBox; 23 ComboBoxTheme: TComboBox; 23 24 Label1: TLabel; 24 25 Label2: TLabel; … … 26 27 Label4: TLabel; 27 28 Label5: TLabel; 29 Label6: TLabel; 28 30 PageControl1: TPageControl; 31 Panel1: TPanel; 32 Panel2: TPanel; 33 SpinEditAnimSpeed: TSpinEdit; 29 34 SpinEditX: TSpinEdit; 30 35 SpinEditY: TSpinEdit; 31 SpinEditAnimSpeed: TSpinEdit;32 36 TabSheetGeneral: TTabSheet; 33 37 TabSheetDebug: TTabSheet; 34 38 procedure CheckBox2Change(Sender: TObject); 39 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 35 40 procedure FormCreate(Sender: TObject); 36 41 procedure FormShow(Sender: TObject); … … 50 55 51 56 uses 52 UCore, ULanguages ;57 UCore, ULanguages, UTheme; 53 58 54 59 { TFormSettings } … … 60 65 end; 61 66 67 procedure TFormSettings.FormClose(Sender: TObject; var CloseAction: TCloseAction 68 ); 69 begin 70 Core.PersistentForm.Save(Self); 71 end; 72 62 73 procedure TFormSettings.FormCreate(Sender: TObject); 63 74 begin 64 75 PageControl1.TabIndex := 0; 65 76 Core.CoolTranslator1.TranslateComponentRecursive(Self); 77 Core.ThemeManager1.Themes.LoadToStrings(ComboBoxTheme.Items); 78 Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items); 66 79 end; 67 80 68 81 procedure TFormSettings.FormShow(Sender: TObject); 69 82 begin 83 Core.PersistentForm.Load(Self); 84 Core.ThemeManager1.UseTheme(Self); 70 85 {$IFDEF DEBUG} 71 86 TabSheetDebug.TabVisible := True; … … 77 92 procedure TFormSettings.Load; 78 93 begin 79 Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);80 94 ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language); 81 95 if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0; 96 ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.ThemeManager1.Theme); 97 if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0; 82 98 CheckBoxDevelMode.Checked := Core.DevelMode; 83 99 SpinEditAnimSpeed.Value := Core.AnimationSpeed; … … 93 109 if ComboBoxLanguage.ItemIndex <> -1 then 94 110 Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]); 111 if ComboBoxTheme.ItemIndex <> -1 then 112 Core.ThemeManager1.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]); 95 113 Core.DevelMode := CheckBoxDevelMode.Checked; 96 114 Core.AnimationSpeed := SpinEditAnimSpeed.Value; -
trunk/Forms/UFormUnitMoves.pas
r231 r243 51 51 begin 52 52 Core.PersistentForm.Load(Self); 53 Core.ThemeManager1.UseTheme(Self); 53 54 Core.CoolTranslator1.TranslateComponentRecursive(Self); 54 55 ReloadList; -
trunk/Languages/xtactics.cs.po
r239 r243 374 374 msgstr "Odstranit" 375 375 376 #: tformnew.button1.caption 377 msgctxt "tformnew.button1.caption" 378 msgid "Add" 379 msgstr "Přidat" 380 381 #: tformnew.button2.caption 382 msgctxt "tformnew.button2.caption" 383 msgid "Remove" 384 msgstr "Odstranit" 385 386 #: tformnew.button3.caption 387 msgctxt "tformnew.button3.caption" 388 msgid "Modify" 389 msgstr "Upravit" 390 376 391 #: tformnew.buttoncancel.caption 377 392 msgctxt "tformnew.buttoncancel.caption" … … 389 404 msgstr "Ok" 390 405 406 #: tformnew.buttonplayeradd.caption 407 msgctxt "tformnew.buttonplayeradd.caption" 408 msgid "Add" 409 msgstr "Přidat" 410 391 411 #: tformnew.buttonplayermodify.caption 392 412 msgctxt "tformnew.buttonplayermodify.caption" … … 394 414 msgstr "Upravit" 395 415 416 #: tformnew.buttonplayerremove.caption 417 msgctxt "tformnew.buttonplayerremove.caption" 418 msgid "Remove" 419 msgstr "Odstranit" 420 396 421 #: tformnew.caption 397 422 msgctxt "tformnew.caption" … … 725 750 msgid "x" 726 751 msgstr "x" 752 753 #: tformsettings.label6.caption 754 msgid "Theme:" 755 msgstr "Téma:" 727 756 728 757 #: tformsettings.tabsheetdebug.caption -
trunk/Languages/xtactics.po
r239 r243 361 361 msgstr "" 362 362 363 #: tformnew.button1.caption 364 msgctxt "tformnew.button1.caption" 365 msgid "Add" 366 msgstr "" 367 368 #: tformnew.button2.caption 369 msgctxt "tformnew.button2.caption" 370 msgid "Remove" 371 msgstr "" 372 373 #: tformnew.button3.caption 374 msgctxt "tformnew.button3.caption" 375 msgid "Modify" 376 msgstr "" 377 363 378 #: tformnew.buttoncancel.caption 364 379 msgctxt "TFORMNEW.BUTTONCANCEL.CAPTION" … … 376 391 msgstr "" 377 392 393 #: tformnew.buttonplayeradd.caption 394 msgctxt "tformnew.buttonplayeradd.caption" 395 msgid "Add" 396 msgstr "" 397 378 398 #: tformnew.buttonplayermodify.caption 379 399 msgctxt "tformnew.buttonplayermodify.caption" … … 381 401 msgstr "" 382 402 403 #: tformnew.buttonplayerremove.caption 404 msgctxt "tformnew.buttonplayerremove.caption" 405 msgid "Remove" 406 msgstr "" 407 383 408 #: tformnew.caption 384 409 msgctxt "tformnew.caption" … … 709 734 #: tformsettings.label5.caption 710 735 msgid "x" 736 msgstr "" 737 738 #: tformsettings.label6.caption 739 msgid "Theme:" 711 740 msgstr "" 712 741 -
trunk/Release notes.txt
r160 r243 26 26 * Fixed: Map black background under Windows OS was not correct. Used dark gray color so bridges between cells are visible. 27 27 * Fixed: Some application states were not stored/restored correctly after application restart. 28 * Fixed: Default maximized form state for PersistentForm. * Fixed: Do not scale up maximized forms according DPI settings. 28 * Fixed: Default maximized form state for PersistentForm. 29 * Fixed: Do not scale up maximized forms according DPI settings. 29 30 * Fixed: Require at least 2 players for a game. 30 31 * Fixed: If only computer players are present in game then starts computer move immediatelly. … … 65 66 * Added: Size of map can be adjusted in New game dialog. 66 67 * Added: Visualization of planned moves between cells for next turn. 67 * Added: Player mode human or computer. 68 * Added: Player mode human or computer. -
trunk/UCore.lfm
r231 r243 2098 2098 top = 250 2099 2099 end 2100 object ThemeManager1: TThemeManager 2101 left = 337 2102 top = 270 2103 end 2100 2104 end -
trunk/UCore.pas
r233 r243 8 8 Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms, 9 9 UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator, 10 URegistry, ULastOpenedList, Registry, Menus, UFormClient, UPlayer,10 URegistry, ULastOpenedList, UTheme, Registry, Menus, UFormClient, UPlayer, 11 11 UGameServer, UGameClient, fgl, UServerList; 12 12 … … 42 42 SaveDialog1: TSaveDialog; 43 43 ScaleDPI1: TScaleDPI; 44 ThemeManager1: TThemeManager; 44 45 XMLConfig1: TXMLConfig; 45 46 procedure AAboutExecute(Sender: TObject); … … 185 186 XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml'; 186 187 188 ThemeManager1.Theme := ThemeManager1.Themes.FindByName(String(XmlConfig1.GetValue('Theme', 'System'))); 187 189 LastOpenedList1.LoadFromXMLConfig(XMLConfig1, 'RecentFiles'); 188 190 DevelMode := XMLConfig1.GetValue('DevelMode', false); … … 199 201 begin 200 202 XMLConfig1.SetValue('Language', WideString(CoolTranslator1.Language.Code)); 203 XMLConfig1.SetValue('Theme', WideString(ThemeManager1.Theme.Name)); 201 204 LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'RecentFiles'); 202 205 XMLConfig1.SetValue('DevelMode', DevelMode); … … 376 379 Server.SaveConfig(XMLConfig1, 'Server'); 377 380 XMLConfig1.Flush; 381 ThemeManager1.UseTheme(FormMain); 378 382 end; 379 383 finally
Note:
See TracChangeset
for help on using the changeset viewer.