Changeset 105
- Timestamp:
- Dec 30, 2014, 11:16:07 AM (10 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UGame.pas
r104 r105 1302 1302 1303 1303 // Show cell text 1304 Pen.Style := psSolid; 1305 Font.Color := clWhite; 1306 Brush.Style := bsClear; 1307 Font.Size := Trunc(42 * View.Zoom); 1308 TextPos := View.CellToCanvasPos(Pos); 1309 TextSize := TextExtent(Text); 1310 TCanvasEx(Canvas).TextOutEx(Round(TextPos.X) - TextSize.cx div 2, 1311 Round(TextPos.Y) - TextSize.cy div 2, Text, False); 1304 if Text <> '0' then begin 1305 Pen.Style := psSolid; 1306 Font.Color := clWhite; 1307 Brush.Style := bsClear; 1308 Font.Size := Trunc(42 * View.Zoom); 1309 TextPos := View.CellToCanvasPos(Pos); 1310 TextSize := TextExtent(Text); 1311 TCanvasEx(Canvas).TextOutEx(Round(TextPos.X) - TextSize.cx div 2, 1312 Round(TextPos.Y) - TextSize.cy div 2, Text, False); 1313 end; 1312 1314 end; 1313 1315 end; … … 2103 2105 if ssShift in ShiftState then begin 2104 2106 // Make maximum unit move without confirmation dialog 2107 for I := SelectedCell.MovesFrom.Count - 1 downto 0 do 2108 TUnitMove(SelectedCell.MovesFrom[I]).Free; 2105 2109 Game.SetMove(SelectedCell, NewSelectedCell, SelectedCell.Power, False); 2106 2110 SelectedCell := nil; -
trunk/xtactics.lpi
r104 r105 121 121 <HasResources Value="True"/> 122 122 <ResourceBaseClass Value="Form"/> 123 <UnitName Value="UFormPlayer"/>124 123 </Unit3> 125 124 <Unit4> … … 145 144 <HasResources Value="True"/> 146 145 <ResourceBaseClass Value="Form"/> 147 <UnitName Value="UFormMove"/>148 146 </Unit6> 149 147 <Unit7> … … 153 151 <HasResources Value="True"/> 154 152 <ResourceBaseClass Value="Form"/> 155 <UnitName Value="UFormNew"/>156 153 </Unit7> 157 154 <Unit8> … … 161 158 <HasResources Value="True"/> 162 159 <ResourceBaseClass Value="Form"/> 163 <UnitName Value="UFormAbout"/>164 160 </Unit8> 165 161 <Unit9> … … 169 165 <HasResources Value="True"/> 170 166 <ResourceBaseClass Value="Form"/> 171 <UnitName Value="UFormHelp"/>172 167 </Unit9> 173 168 <Unit10> 174 169 <Filename Value="UMap.pas"/> 175 170 <IsPartOfProject Value="True"/> 176 <UnitName Value="UMap"/>177 171 </Unit10> 178 172 </Units>
Note:
See TracChangeset
for help on using the changeset viewer.