Changeset 166
- Timestamp:
- Nov 23, 2017, 12:14:15 AM (7 years ago)
- Location:
- trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormNew.pas
r155 r166 190 190 Items.Add(SGridTypeSquare); 191 191 Items.Add(SGridTypeTriangle); 192 if Core.DevelMode then 193 Items.Add(SGridTypeVoronoi); 192 Items.Add(SGridTypeVoronoi); 194 193 ItemIndex := LastIndex; 195 194 end; -
trunk/Languages/xtactics.cs.po
r162 r166 87 87 #: tcore.ashowcharts.caption 88 88 #, fuzzy 89 #| msgid " Charts"89 #| msgid "Show charts" 90 90 msgctxt "tcore.ashowcharts.caption" 91 msgid " Show charts"91 msgid "Charts" 92 92 msgstr "Grafy vývoje" 93 94 #: tcore.ashowunitmoves.caption 95 #, fuzzy 96 msgctxt "tcore.ashowunitmoves.caption" 97 msgid "Unit moves" 98 msgstr "Pohyby jednotek" 93 99 94 100 #: tformabout.buttonclose.caption -
trunk/Languages/xtactics.po
r162 r166 77 77 #: tcore.ashowcharts.caption 78 78 msgctxt "tcore.ashowcharts.caption" 79 msgid "Show charts" 79 msgid "Charts" 80 msgstr "" 81 82 #: tcore.ashowunitmoves.caption 83 msgctxt "tcore.ashowunitmoves.caption" 84 msgid "Unit moves" 80 85 msgstr "" 81 86 -
trunk/Packages/Common/UGeometry.pas
r165 r166 161 161 LDetDivInv := 1 / D; 162 162 163 Intersection.X := Trunc(((LDetLineA * LDiffLB.X) - (LDiffLA.X * LDetLineB)) * LDetDivInv);164 Intersection.Y := Trunc(((LDetLineA * LDiffLB.Y) - (LDiffLA.Y * LDetLineB)) * LDetDivInv);163 Intersection.X := Round(((LDetLineA * LDiffLB.X) - (LDiffLA.X * LDetLineB)) * LDetDivInv); 164 Intersection.Y := Round(((LDetLineA * LDiffLB.Y) - (LDiffLA.Y * LDetLineB)) * LDetDivInv); 165 165 Result := True; 166 166 end; -
trunk/UCore.pas
r158 r166 429 429 begin 430 430 Game.New; 431 Game.DevelMode := DevelMode; 431 432 SelectClient; 432 433 if Game.Players.GetAliveCount = Game.Players.Count then Game.Running := True -
trunk/UGame.pas
r165 r166 475 475 procedure InitDefaultPlayersSetting; 476 476 public 477 DevelMode: Boolean; 477 478 Players: TPlayers; 478 479 PlayersSetting: TPlayers; … … 1049 1050 end; 1050 1051 1051 { // Draw links to neighbors 1052 // Draw links to neighbors 1053 if Player.Game.DevelMode then 1052 1054 for Cell in Cells do begin 1053 1055 for NeighCell in Cell.MapCell.Neighbors do begin … … 1062 1064 View.CellToCanvasPos(Cell.MapCell.PosPx).Y, IntToStr(Cell.MapCell.Id)); 1063 1065 end; 1064 } 1066 1065 1067 // Draw arrows 1066 1068 Pen.Color := clCream; … … 1109 1111 //Changing; 1110 1112 //RequiredState([csHandleValid, csBrushValid, csPenValid]); 1113 //Canvas.Brush.Style := bsClear; 1111 1114 LCLIntf.Polygon(Canvas.Handle, @Points[0], Length(Points), Winding); 1115 // SetLength(Points, Length(Points) + 1); 1116 // Points[Length(Points) - 1] = Points[0]; 1117 // LCLIntf.Polyline(Canvas.Handle, @Points[0], Length(Points)); 1112 1118 //Changed; 1113 1119 end; -
trunk/UMap.pas
r165 r166 298 298 LeftText: string; 299 299 RightText: string; 300 NeighborCell: TCell; 300 301 begin 301 302 Clear; … … 374 375 LeftCell := Cell.Neighbors[I]; 375 376 RightCell := Cell.Neighbors[(I + 1) mod Cell.Neighbors.Count]; 376 LeftText := LeftCell.Neighbors.ToString;377 RightText := RightCell.Neighbors.ToString;377 //LeftText := LeftCell.Neighbors.ToString; 378 //RightText := RightCell.Neighbors.ToString; 378 379 LeftIndex := LeftCell.Neighbors.IndexOf(Cell); 379 380 RightIndex := RightCell.Neighbors.IndexOf(Cell); … … 424 425 Polygon := TPolygon.Create(Rect(0, 0, 425 426 Size.X * DefaultCellSize.X, Size.Y * DefaultCellSize.Y)); 426 for I := 0 to Cell.Neighbors.Count - 1 do begin 427 LinkLine := TLine.Create(Cell.PosPx, 428 Cell.Neighbors[I].PosPx); 427 for NeighborCell in Cell.Neighbors do begin 428 LinkLine := TLine.Create(Cell.PosPx, NeighborCell.PosPx); 429 429 LinkLine.Distance := LinkLine.Distance - 4; 430 430 MP := LinkLine.GetMiddle;
Note:
See TracChangeset
for help on using the changeset viewer.