Changeset 302


Ignore:
Timestamp:
Aug 11, 2019, 11:06:54 AM (5 years ago)
Author:
chronos
Message:
  • Fixed: Some repeated moves were disappearing.
  • Fixed: Move once count was not set correctly on unit move edit.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormClient.pas

    r291 r302  
    148148    if Update then FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower + CountOnce
    149149      else FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower;
     150    FormMove.TrackBarOnce.Max := FormMove.SpinEditOnce.MaxValue;
    150151    FormMove.SpinEditOnce.Value := CountOnce;
    151     FormMove.TrackBarOnce.Max := FormMove.SpinEditOnce.MaxValue;
    152152    FormMove.TrackBarOnce.Position := FormMove.SpinEditOnce.Value;
    153153    FormMove.SpinEditRepeat.MaxValue := Client.Game.Map.MaxPower;
     154    FormMove.TrackBarRepeat.Max := FormMove.SpinEditRepeat.MaxValue;
    154155    FormMove.SpinEditRepeat.Value := CountRepeat;
    155     FormMove.TrackBarRepeat.Max := FormMove.SpinEditRepeat.MaxValue;
    156156    FormMove.TrackBarRepeat.Position := FormMove.SpinEditRepeat.Value;
    157157
  • trunk/UPlayer.pas

    r300 r302  
    66
    77uses
    8   Classes, SysUtils, Graphics, UMap, DOM, fgl, XMLConf, UXMLUtils, Math,
     8  Classes, SysUtils, Graphics, UMap, DOM, fgl2, XMLConf, UXMLUtils, Math,
    99  UGeometry, UUnit, UNation, UItemList;
    1010
     
    943943    if not Assigned(CellTo.MapCell.OneUnit) then begin
    944944      CellTo.MapCell.OneUnit := TGame(Game).Units.AddNew(CellFrom.MapCell.OneUnit.Kind, 0);
     945      CellTo.MapCell.OneUnit.Player := Self;
    945946      CellTo.MapCell.Player := Self;
    946947    end;
Note: See TracChangeset for help on using the changeset viewer.