Changeset 330
- Timestamp:
- Jul 19, 2024, 9:46:33 PM (4 months ago)
- Location:
- trunk
- Files:
-
- 1 added
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ClientGUI.pas
r318 r330 195 195 Pen.Width := 0; 196 196 end; 197 198 // Cannot set clear border as it will display shifted on gtk2 199 //Pen.Style := psClear; 200 Pen.Style := psSolid; 201 if CellGridVisible then begin 202 Pen.Color := clBlack; 203 Pen.Width := Round(2 * View.Zoom); 204 end else begin 205 Pen.Color := Brush.Color; 206 Pen.Width := 0; 207 end; 208 197 209 // Transform view 198 210 SetLength(Points, Length(Cell.Polygon.Points)); … … 684 696 else NewZoom := Factor.Y; 685 697 if NewZoom = 0 then NewZoom := 1; 686 Zoom := NewZoom ;698 Zoom := NewZoom * 0.9; 687 699 CenterMap; 688 700 end; -
trunk/Core.pas
r328 r330 610 610 procedure TCore.UpdateOtherForms; 611 611 begin 612 if Assigned(FormMain.FormCharts) and FormMain.FormCharts.Visible then FormMain.FormCharts.Redraw; 613 if Assigned(FormMain.FormUnitMoves) and FormMain.FormUnitMoves.Visible then FormMain.FormUnitMoves.ReloadList; 614 if Assigned(FormMain.FormPlayersStats) and FormMain.FormPlayersStats.Visible then FormMain.FormPlayersStats.ReloadList; 612 if Assigned(FormMain.FormCharts) and FormMain.FormCharts.Visible then 613 FormMain.FormCharts.Redraw; 614 if Assigned(FormMain.FormUnitMoves) and FormMain.FormUnitMoves.Visible then 615 FormMain.FormUnitMoves.ReloadList; 616 if Assigned(FormMain.FormPlayersStats) and FormMain.FormPlayersStats.Visible then 617 FormMain.FormPlayersStats.ReloadList; 615 618 end; 616 619 … … 633 636 NewUnitKind: TUnitKind; 634 637 SystemsDir: string; 638 const 639 GameSystemsDirName = 'Systems'; 640 DefaultGameSystemName = 'Default'; 635 641 begin 636 642 if GameFilesDir <> '' then 637 SystemsDir := GameFilesDir + DirectorySeparator + 'Systems'638 else SystemsDir := 'Systems';643 SystemsDir := GameFilesDir + DirectorySeparator + GameSystemsDirName 644 else SystemsDir := GameSystemsDirName; 639 645 if DirectoryExists(SystemsDir) then begin 640 646 GameSystems.LoadFromDir(SystemsDir); … … 642 648 // Create default game system if the directory with definitions was not found 643 649 NewGameSystem := TGameSystem.Create; 644 NewGameSystem.FileName := 'HexWars';650 NewGameSystem.FileName := DefaultGameSystemName; 645 651 NewUnitKind := TUnitKind.Create; 646 652 NewUnitKind.Name := 'Unit'; -
trunk/Forms/FormGameSystem.lfm
r325 r330 67 67 object TabSheetGeneral: TTabSheet 68 68 Caption = 'General' 69 ClientHeight = 36 070 ClientWidth = 60 369 ClientHeight = 362 70 ClientWidth = 605 71 71 ParentFont = False 72 72 object CheckBoxEmptyCellsNeutral: TCheckBox 73 73 Left = 16 74 Height = 3074 Height = 29 75 75 Top = 16 76 Width = 3 5776 Width = 330 77 77 Caption = 'Set cells without player units as neutral' 78 78 ParentFont = False … … 81 81 object CheckBoxUnitsSplitMerge: TCheckBox 82 82 Left = 16 83 Height = 3083 Height = 29 84 84 Top = 55 85 Width = 2 2985 Width = 213 86 86 Caption = 'Units can split or merge' 87 87 ParentFont = False … … 90 90 object CheckBoxUnitsMoveImmediately: TCheckBox 91 91 Left = 16 92 Height = 3092 Height = 29 93 93 Top = 95 94 Width = 2 3294 Width = 217 95 95 Caption = 'Units move immediately' 96 96 ParentFont = False 97 97 TabOrder = 2 98 end 99 object Label5: TLabel 100 Left = 16 101 Height = 25 102 Top = 136 103 Width = 153 104 Caption = 'Preferred grid type:' 105 ParentColor = False 106 ParentFont = False 107 end 108 object ComboBoxPreferredGridType: TComboBox 109 Left = 272 110 Height = 33 111 Top = 136 112 Width = 304 113 ItemHeight = 25 114 Items.Strings = ( 115 'None' 116 'Hexagon vertical' 117 'Square' 118 'Triangular' 119 'Random' 120 'Isometric' 121 'Hexagon horizontal' 122 ) 123 ParentFont = False 124 Style = csDropDownList 125 TabOrder = 3 98 126 end 99 127 end -
trunk/Forms/FormGameSystem.lrj
r317 r330 9 9 {"hash":49324869,"name":"tformgamesystem.checkboxunitssplitmerge.caption","sourcebytes":[85,110,105,116,115,32,99,97,110,32,115,112,108,105,116,32,111,114,32,109,101,114,103,101],"value":"Units can split or merge"}, 10 10 {"hash":113503305,"name":"tformgamesystem.checkboxunitsmoveimmediately.caption","sourcebytes":[85,110,105,116,115,32,109,111,118,101,32,105,109,109,101,100,105,97,116,101,108,121],"value":"Units move immediately"}, 11 {"hash":94511754,"name":"tformgamesystem.label5.caption","sourcebytes":[80,114,101,102,101,114,114,101,100,32,103,114,105,100,32,116,121,112,101,58],"value":"Preferred grid type:"}, 11 12 {"hash":6049971,"name":"tformgamesystem.tabsheetunits.caption","sourcebytes":[85,110,105,116,115],"value":"Units"}, 12 13 {"hash":76219907,"name":"tformgamesystem.tabsheetnations.caption","sourcebytes":[78,97,116,105,111,110,115],"value":"Nations"}, -
trunk/Forms/FormGameSystem.pas
r317 r330 19 19 CheckBoxUnitsMoveImmediately: TCheckBox; 20 20 CheckBoxUnitsSplitMerge: TCheckBox; 21 ComboBoxPreferredGridType: TComboBox; 22 Label5: TLabel; 21 23 OpenDialog1: TOpenDialog; 22 24 PageControl1: TPageControl; … … 36 38 FormBuildingKinds: TFormList; 37 39 procedure SetGameSystem(AValue: TGameSystem); 40 procedure Translate; 38 41 public 39 42 property GameSystem: TGameSystem read FGameSystem write SetGameSystem; … … 47 50 {$R *.lfm} 48 51 52 uses 53 MapType; 54 49 55 resourcestring 50 56 SFileDialogFilter = 'xTactics game system (.xts)|*.xts|All files|*.*'; 57 51 58 52 59 { TFormGameSystem } … … 88 95 FormBuildingKinds.Align := alClient; 89 96 FormBuildingKinds.Visible := True; 97 Translate; 90 98 end; 91 99 … … 114 122 end; 115 123 124 procedure TFormGameSystem.Translate; 125 var 126 LastIndex: Integer; 127 begin 128 with ComboBoxPreferredGridType do begin 129 LastIndex := ItemIndex; 130 Clear; 131 Items.AddObject(SGridTypeNone, TObject(mtNone)); 132 Items.AddObject(SGridTypeHexagonVertical, TObject(mtHexagonVertical)); 133 Items.AddObject(SGridTypeHexagonHorizontal, TObject(mtHexagonHorizontal)); 134 Items.AddObject(SGridTypeSquare, TObject(mtSquare)); 135 Items.AddObject(SGridTypeTriangle, TObject(mtTriangle)); 136 Items.AddObject(SGridTypeRandom, TObject(mtRandom)); 137 Items.AddObject(SGridTypeIsometric, TObject(mtIsometric)); 138 ItemIndex := LastIndex; 139 end; 140 end; 141 116 142 procedure TFormGameSystem.LoadData(GameSystem: TGameSystem); 117 143 begin … … 120 146 CheckBoxUnitsSplitMerge.Checked := GameSystem.UnitsSplitMerge; 121 147 CheckBoxUnitsMoveImmediately.Checked := GameSystem.UnitsMoveImmediately; 148 ComboBoxPreferredGridType.ItemIndex := Integer(GameSystem.PreferedMapType); 122 149 FormNations.UpdateList; 123 150 FormNations.UpdateInterface; … … 134 161 GameSystem.UnitsSplitMerge := CheckBoxUnitsSplitMerge.Checked; 135 162 GameSystem.UnitsMoveImmediately := CheckBoxUnitsMoveImmediately.Checked; 163 GameSystem.PreferedMapType := TMapType(ComboBoxPreferredGridType.ItemIndex); 136 164 end; 137 165 -
trunk/Forms/FormNew.lfm
r325 r330 20 20 Top = 60 21 21 Width = 691 22 ActivePage = TabSheet Rules22 ActivePage = TabSheetMap 23 23 Align = alClient 24 24 BorderSpacing.Around = 4 25 25 ParentFont = False 26 TabIndex = 326 TabIndex = 2 27 27 TabOrder = 0 28 28 OnChange = PageControl1Change 29 29 object TabSheetMode: TTabSheet 30 30 Caption = 'Mode' 31 ClientHeight = 63 732 ClientWidth = 68 131 ClientHeight = 639 32 ClientWidth = 683 33 33 ParentFont = False 34 34 object Panel3: TPanel 35 35 Left = 0 36 Height = 63 736 Height = 639 37 37 Top = 0 38 Width = 68 138 Width = 683 39 39 Align = alClient 40 40 BevelOuter = bvNone 41 ClientHeight = 63 742 ClientWidth = 68 141 ClientHeight = 639 42 ClientWidth = 683 43 43 ParentFont = False 44 44 TabOrder = 0 45 45 object RadioButtonModeLocal: TRadioButton 46 46 Left = 10 47 Height = 3047 Height = 29 48 48 Top = 14 49 Width = 7049 Width = 65 50 50 Caption = 'Local' 51 51 Checked = True … … 57 57 object RadioButtonModeNetworkServer: TRadioButton 58 58 Left = 10 59 Height = 3059 Height = 29 60 60 Top = 48 61 Width = 1 5561 Width = 144 62 62 Caption = 'Network server' 63 63 ParentFont = False … … 67 67 object RadioButtonModeNetworkClient: TRadioButton 68 68 Left = 10 69 Height = 3069 Height = 29 70 70 Top = 160 71 Width = 1 4971 Width = 138 72 72 Caption = 'Network client' 73 73 ParentFont = False … … 77 77 object EditServerAddress: TEdit 78 78 Left = 24 79 Height = 4379 Height = 33 80 80 Top = 112 81 81 Width = 220 … … 85 85 object SpinEditServerPort: TSpinEdit 86 86 Left = 256 87 Height = 4387 Height = 33 88 88 Top = 112 89 89 Width = 79 … … 94 94 object Label11: TLabel 95 95 Left = 256 96 Height = 2 696 Height = 25 97 97 Top = 80 98 Width = 4098 Width = 36 99 99 Caption = 'Port:' 100 100 ParentColor = False … … 103 103 object Label12: TLabel 104 104 Left = 24 105 Height = 2 6105 Height = 25 106 106 Top = 80 107 Width = 74107 Width = 69 108 108 Caption = 'Address:' 109 109 ParentColor = False … … 112 112 object ListViewServers: TListView 113 113 Left = 26 114 Height = 38 4114 Height = 386 115 115 Top = 200 116 116 Width = 334 … … 141 141 Left = 26 142 142 Height = 38 143 Top = 59 2143 Top = 594 144 144 Width = 94 145 145 Action = AServerAdd … … 151 151 Left = 248 152 152 Height = 38 153 Top = 59 2153 Top = 594 154 154 Width = 94 155 155 Action = AServerRemove … … 161 161 Left = 136 162 162 Height = 38 163 Top = 59 2163 Top = 594 164 164 Width = 94 165 165 Action = AServerModify … … 172 172 object TabSheetPlayers: TTabSheet 173 173 Caption = 'Players' 174 ClientHeight = 63 7175 ClientWidth = 68 1174 ClientHeight = 639 175 ClientWidth = 683 176 176 ParentFont = False 177 177 object Panel2: TPanel 178 178 Left = 0 179 Height = 63 7179 Height = 639 180 180 Top = 0 181 Width = 68 1181 Width = 683 182 182 Align = alClient 183 183 BevelOuter = bvNone … … 188 188 object TabSheetMap: TTabSheet 189 189 Caption = 'Map' 190 ClientHeight = 63 7191 ClientWidth = 68 1190 ClientHeight = 639 191 ClientWidth = 683 192 192 OnShow = TabSheetMapShow 193 193 ParentFont = False 194 194 object Panel1: TPanel 195 195 Left = 0 196 Height = 63 7196 Height = 639 197 197 Top = 0 198 Width = 68 1198 Width = 683 199 199 Align = alClient 200 200 BevelOuter = bvNone 201 ClientHeight = 63 7202 ClientWidth = 68 1201 ClientHeight = 639 202 ClientWidth = 683 203 203 ParentFont = False 204 204 TabOrder = 0 205 205 object Label1: TLabel 206 206 Left = 8 207 Height = 2 6207 Height = 25 208 208 Top = 10 209 Width = 94209 Width = 89 210 210 Caption = 'Map width:' 211 211 ParentColor = False … … 214 214 object Label2: TLabel 215 215 Left = 8 216 Height = 2 6216 Height = 25 217 217 Top = 58 218 Width = 101218 Width = 95 219 219 Caption = 'Map height:' 220 220 ParentColor = False … … 223 223 object SpinEditMapSizeX: TSpinEdit 224 224 Left = 128 225 Height = 43225 Height = 33 226 226 Top = 4 227 227 Width = 98 … … 234 234 object SpinEditMapSizeY: TSpinEdit 235 235 Left = 128 236 Height = 43236 Height = 33 237 237 Top = 55 238 238 Width = 98 … … 247 247 Height = 58 248 248 Top = 8 249 Width = 43 0249 Width = 432 250 250 Max = 100 251 251 Min = 2 … … 261 261 Height = 58 262 262 Top = 49 263 Width = 43 0263 Width = 432 264 264 Max = 100 265 265 Min = 2 … … 273 273 object Label5: TLabel 274 274 Left = 8 275 Height = 2 6275 Height = 25 276 276 Top = 104 277 Width = 82277 Width = 77 278 278 Caption = 'Grid type:' 279 279 ParentColor = False … … 282 282 object ComboBoxGridType: TComboBox 283 283 Left = 146 284 Height = 3 8284 Height = 33 285 285 Top = 104 286 286 Width = 304 287 ItemHeight = 0287 ItemHeight = 25 288 288 Items.Strings = ( 289 'Hexagon al'289 'Hexagon vertical' 290 290 'Square' 291 291 'Triangular' 292 292 'Random' 293 293 'Isometric' 294 'Hexagon horizontal' 294 295 ) 295 296 ParentFont = False … … 300 301 object ComboBoxMapShape: TComboBox 301 302 Left = 146 302 Height = 3 8303 Height = 33 303 304 Top = 144 304 305 Width = 304 305 ItemHeight = 0306 ItemHeight = 25 306 307 Items.Strings = ( 307 308 'Hexagonal' … … 316 317 object Label8: TLabel 317 318 Left = 8 318 Height = 2 6319 Height = 25 319 320 Top = 144 320 Width = 9 8321 Width = 92 321 322 Caption = 'Map shape:' 322 323 ParentColor = False … … 325 326 object CheckBoxSymetricMap: TCheckBox 326 327 Left = 8 327 Height = 2 6328 Height = 29 328 329 Top = 248 329 Width = 430 330 Anchors = [akTop, akLeft, akRight] 331 AutoSize = False 330 Width = 134 332 331 Caption = 'Symetric map' 333 332 ParentFont = False … … 337 336 object SpinEditVoidPercent: TSpinEdit 338 337 Left = 216 339 Height = 43338 Height = 33 340 339 Top = 314 341 340 Width = 106 … … 348 347 object CheckBoxVoid: TCheckBox 349 348 Left = 8 350 Height = 30351 Top = 3 24352 Width = 1 89349 Height = 29 350 Top = 318 351 Width = 172 353 352 Caption = 'Inaccessible places' 354 353 ParentFont = False … … 358 357 object CheckBoxCity: TCheckBox 359 358 Left = 8 360 Height = 30359 Height = 29 361 360 Top = 368 362 Width = 72361 Width = 67 363 362 Caption = 'Cities' 364 363 ParentFont = False … … 368 367 object SpinEditCityPercent: TSpinEdit 369 368 Left = 216 370 Height = 43369 Height = 33 371 370 Top = 360 372 371 Width = 106 … … 379 378 object Label4: TLabel 380 379 Left = 331 381 Height = 2 6380 Height = 25 382 381 Top = 368 383 382 Width = 15 … … 388 387 object Label3: TLabel 389 388 Left = 331 390 Height = 2 6389 Height = 25 391 390 Top = 324 392 391 Width = 15 … … 397 396 object SpinEditNeutralUnits: TSpinEdit 398 397 Left = 312 399 Height = 43398 Height = 33 400 399 Top = 488 401 400 Width = 98 … … 408 407 object Label7: TLabel 409 408 Left = 8 410 Height = 2 6409 Height = 25 411 410 Top = 496 412 Width = 2 25411 Width = 207 413 412 Caption = 'Max random neutral units:' 414 413 ParentColor = False … … 417 416 object EditImageFile: TEdit 418 417 Left = 144 419 Height = 43418 Height = 33 420 419 Top = 184 421 Width = 41 3420 Width = 415 422 421 Anchors = [akTop, akLeft, akRight] 423 422 ParentFont = False … … 426 425 end 427 426 object ButtonImageBrowse: TButton 428 Left = 56 6427 Left = 568 429 428 Height = 38 430 Top = 1 90429 Top = 182 431 430 Width = 98 432 431 Anchors = [akTop, akRight] … … 438 437 object Label9: TLabel 439 438 Left = 8 440 Height = 2 6441 Top = 1 91442 Width = 90439 Height = 25 440 Top = 184 441 Width = 82 443 442 Caption = 'Image file:' 444 443 ParentColor = False … … 447 446 object CheckBoxBridges: TCheckBox 448 447 Left = 8 449 Height = 30448 Height = 29 450 449 Top = 408 451 Width = 211450 Width = 194 452 451 Caption = 'Bridges between cells' 453 452 ParentFont = False … … 457 456 object SpinEditMaxPower: TSpinEdit 458 457 Left = 312 459 Height = 43458 Height = 33 460 459 Top = 440 461 460 Width = 98 … … 469 468 object Label10: TLabel 470 469 Left = 8 471 Height = 2 6470 Height = 25 472 471 Top = 448 473 Width = 1 55472 Width = 141 474 473 Caption = 'Max units per cell:' 475 474 ParentColor = False … … 478 477 object CheckBoxCyclicMap: TCheckBox 479 478 Left = 8 480 Height = 2 6479 Height = 29 481 480 Top = 283 482 Width = 430 483 Anchors = [akTop, akLeft, akRight] 484 AutoSize = False 481 Width = 110 485 482 Caption = 'Cyclic map' 486 483 ParentFont = False … … 492 489 Height = 316 493 490 Top = 272 494 Width = 429491 Width = 255 495 492 Anchors = [akTop, akLeft, akRight] 496 493 OnResize = Image1Resize … … 498 495 object Label15: TLabel 499 496 Left = 419 500 Height = 2 6497 Height = 25 501 498 Top = 240 502 Width = 71499 Width = 64 503 500 Caption = 'Preview:' 504 501 ParentColor = False … … 519 516 object TabSheetRules: TTabSheet 520 517 Caption = 'Rules' 521 ClientHeight = 63 7522 ClientWidth = 68 1518 ClientHeight = 639 519 ClientWidth = 683 523 520 ParentFont = False 524 521 object Panel4: TPanel 525 522 Left = 0 526 Height = 63 7523 Height = 639 527 524 Top = 0 528 Width = 68 1525 Width = 683 529 526 Align = alClient 530 527 BevelOuter = bvNone 531 ClientHeight = 63 7532 ClientWidth = 68 1528 ClientHeight = 639 529 ClientWidth = 683 533 530 ParentFont = False 534 531 TabOrder = 0 535 532 object RadioGroupGrowCells: TRadioGroup 536 533 Left = 14 537 Height = 1 06538 Top = 1 04534 Height = 128 535 Top = 120 539 536 Width = 312 540 537 AutoFill = True … … 547 544 ChildSizing.Layout = cclLeftToRightThenTopToBottom 548 545 ChildSizing.ControlsPerLine = 1 549 ClientHeight = 79550 ClientWidth = 3 10546 ClientHeight = 98 547 ClientWidth = 308 551 548 Items.Strings = ( 552 549 'None' … … 559 556 object Label6: TLabel 560 557 Left = 8 561 Height = 2 6562 Top = 2 48563 Width = 11 9558 Height = 25 559 Top = 267 560 Width = 111 564 561 Caption = 'Win objective:' 565 562 ParentColor = False … … 567 564 end 568 565 object ComboBoxWinObjective: TComboBox 569 Left = 2 24570 Height = 3 8571 Top = 2 44566 Left = 216 567 Height = 33 568 Top = 267 572 569 Width = 328 573 ItemHeight = 0570 ItemHeight = 25 574 571 Items.Strings = ( 575 572 'Defeat all oponents' … … 585 582 object RadioGroupGrowAmount: TRadioGroup 586 583 Left = 14 587 Height = 76584 Height = 92 588 585 Top = 16 589 586 Width = 305 … … 597 594 ChildSizing.Layout = cclLeftToRightThenTopToBottom 598 595 ChildSizing.ControlsPerLine = 1 599 ClientHeight = 49600 ClientWidth = 30 3596 ClientHeight = 62 597 ClientWidth = 301 601 598 Items.Strings = ( 602 599 'By one' … … 608 605 object CheckBoxFogOfWar: TCheckBox 609 606 Left = 336 610 Height = 30607 Height = 29 611 608 Top = 24 612 Width = 11 5609 Width = 111 613 610 Caption = 'Fog of war' 614 611 ParentFont = False … … 617 614 object PageControlWinObjective: TPageControl 618 615 Left = 12 619 Height = 78620 Top = 290621 Width = 6 58616 Height = 110 617 Top = 314 618 Width = 660 622 619 ActivePage = TabSheetCaptureEntireMap 623 620 Anchors = [akTop, akLeft, akRight] … … 633 630 end 634 631 object TabSheetCaptureCells: TTabSheet 635 ClientHeight = 74636 ClientWidth = 6 48632 ClientHeight = 102 633 ClientWidth = 652 637 634 ParentFont = False 638 635 object Label14: TLabel 639 636 Left = 8 640 Height = 2 6637 Height = 25 641 638 Top = 16 642 Width = 1 61639 Width = 147 643 640 Caption = 'Special cells count:' 644 641 ParentColor = False … … 647 644 object SpinEditSpecialCells: TSpinEdit 648 645 Left = 236 649 Height = 43646 Height = 33 650 647 Top = 8 651 648 Width = 158 … … 658 655 end 659 656 object TabSheetStayAliveTurns: TTabSheet 660 ClientHeight = 74661 ClientWidth = 6 48657 ClientHeight = 102 658 ClientWidth = 652 662 659 ParentFont = False 663 660 object Label13: TLabel 664 661 Left = 8 665 Height = 2 6662 Height = 25 666 663 Top = 16 667 Width = 1 46664 Width = 136 668 665 Caption = 'Number of turns:' 669 666 ParentColor = False … … 672 669 object SpinEditTurns: TSpinEdit 673 670 Left = 236 674 Height = 43671 Height = 33 675 672 Top = 8 676 673 Width = 158 … … 704 701 TabOrder = 1 705 702 object ButtonOk: TButton 706 Left = 9 81703 Left = 976 707 704 Height = 38 708 705 Top = 8 … … 758 755 object Label16: TLabel 759 756 Left = 12 760 Height = 2 6761 Top = 1 6762 Width = 1 20757 Height = 25 758 Top = 14 759 Width = 111 763 760 Caption = 'Game system:' 764 761 ParentColor = False … … 767 764 object ComboBoxGameSystem: TComboBox 768 765 Left = 176 769 Height = 42770 Top = 1 0766 Height = 33 767 Top = 12 771 768 Width = 254 772 ItemHeight = 0769 ItemHeight = 25 773 770 ParentFont = False 774 771 Style = csDropDownList … … 779 776 Left = 443 780 777 Height = 38 781 Top = 1 2778 Top = 10 782 779 Width = 113 783 780 Caption = 'Manage' -
trunk/Forms/FormNew.pas
r317 r330 397 397 Client.View.ZoomAll; 398 398 //Client.ControlPlayer := GamePreview.Players.First; 399 Client.CellGridVisible := True; 399 Client.CellGridVisible := Core.Core.CellGridVisible; 400 Client.UnitShapeVisible := Core.Core.UnitShapeVisible; 400 401 Bitmap.Canvas.Brush.Color := MapBackgroundColor; //clBackground; //PaintBox1.GetColorResolvingParent; 401 402 Bitmap.Canvas.FillRect(0, 0, Bitmap.Width, Bitmap.Height); -
trunk/Languages/xtactics.cs.po
r326 r330 10 10 "Content-Type: text/plain; charset=UTF-8\n" 11 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 3. 4.2\n"12 "X-Generator: Poedit 3.3.1\n" 13 13 14 14 #: building.sbonusattack … … 413 413 msgstr "Izometrická" 414 414 415 #: maptype.sgridtypenone 416 msgctxt "maptype.sgridtypenone" 417 msgid "None" 418 msgstr "Žádný" 419 415 420 #: maptype.sgridtyperandom 416 421 msgctxt "maptype.sgridtyperandom" … … 720 725 msgstr "Jednotky lze rozdělit a sloučit" 721 726 727 #: tformgamesystem.label5.caption 728 msgid "Preferred grid type:" 729 msgstr "Preferovaný typ mřížky:" 730 722 731 #: tformgamesystem.tabsheetbuildings.caption 723 732 msgid "Buildings" -
trunk/Languages/xtactics.pot
r326 r330 395 395 msgstr "" 396 396 397 #: maptype.sgridtypenone 398 msgctxt "maptype.sgridtypenone" 399 msgid "None" 400 msgstr "" 401 397 402 #: maptype.sgridtyperandom 398 403 msgctxt "maptype.sgridtyperandom" … … 696 701 msgstr "" 697 702 703 #: tformgamesystem.label5.caption 704 msgid "Preferred grid type:" 705 msgstr "" 706 698 707 #: tformgamesystem.tabsheetbuildings.caption 699 708 msgid "Buildings" -
trunk/Map.pas
r322 r330 663 663 for C := 0 to (Cells.Count div 2) - 1 do begin 664 664 Cells[C].Terrain := Cells[Cells.Count - 1 - C].Terrain; 665 Cells[C].OneUnit.Power := Cells[Cells.Count - 1 - C].OneUnit.Power; 665 666 // Sync units 667 if not Assigned(Cells[C].OneUnit) and Assigned(Cells[Cells.Count - 1 - C].OneUnit) then begin 668 Cells[C].OneUnit := TGame(Game).Units.AddNew(Cells[Cells.Count - 1 - C].OneUnit.Kind, 669 Cells[Cells.Count - 1 - C].OneUnit.Power); 670 end; 671 if Assigned(Cells[C].OneUnit) and Assigned(Cells[Cells.Count - 1 - C].OneUnit) then 672 Cells[C].OneUnit.Power := Cells[Cells.Count - 1 - C].OneUnit.Power; 673 674 if Assigned(Cells[C].OneUnit) and not Assigned(Cells[Cells.Count - 1 - C].OneUnit) then begin 675 TGame(Game).Units.Remove(Cells[C].OneUnit); 676 end; 666 677 667 678 for I := Cells[C].Links.Count - 1 downto 0 do begin -
trunk/MapType.pas
r317 r330 102 102 103 103 resourcestring 104 SGridTypeNone = 'None'; 104 105 SGridTypeHexagonVertical = 'Hexagonal vertical'; 105 106 SGridTypeHexagonHorizontal = 'Hexagonal horizontal';
Note:
See TracChangeset
for help on using the changeset viewer.