Changeset 105


Ignore:
Timestamp:
Dec 30, 2014, 11:16:07 AM (10 years ago)
Author:
chronos
Message:
  • Modified: Do not show zero on empty cells.
  • Modified: Shift + mouse click emove existing cell moves and move all cell units.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/UGame.pas

    r104 r105  
    13021302
    13031303    // 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;
    13121314  end;
    13131315end;
     
    21032105      if ssShift in ShiftState then begin
    21042106        // Make maximum unit move without confirmation dialog
     2107        for I := SelectedCell.MovesFrom.Count - 1 downto 0 do
     2108          TUnitMove(SelectedCell.MovesFrom[I]).Free;
    21052109        Game.SetMove(SelectedCell, NewSelectedCell, SelectedCell.Power, False);
    21062110        SelectedCell := nil;
  • trunk/xtactics.lpi

    r104 r105  
    121121        <HasResources Value="True"/>
    122122        <ResourceBaseClass Value="Form"/>
    123         <UnitName Value="UFormPlayer"/>
    124123      </Unit3>
    125124      <Unit4>
     
    145144        <HasResources Value="True"/>
    146145        <ResourceBaseClass Value="Form"/>
    147         <UnitName Value="UFormMove"/>
    148146      </Unit6>
    149147      <Unit7>
     
    153151        <HasResources Value="True"/>
    154152        <ResourceBaseClass Value="Form"/>
    155         <UnitName Value="UFormNew"/>
    156153      </Unit7>
    157154      <Unit8>
     
    161158        <HasResources Value="True"/>
    162159        <ResourceBaseClass Value="Form"/>
    163         <UnitName Value="UFormAbout"/>
    164160      </Unit8>
    165161      <Unit9>
     
    169165        <HasResources Value="True"/>
    170166        <ResourceBaseClass Value="Form"/>
    171         <UnitName Value="UFormHelp"/>
    172167      </Unit9>
    173168      <Unit10>
    174169        <Filename Value="UMap.pas"/>
    175170        <IsPartOfProject Value="True"/>
    176         <UnitName Value="UMap"/>
    177171      </Unit10>
    178172    </Units>
Note: See TracChangeset for help on using the changeset viewer.