Changeset 124


Ignore:
Timestamp:
Jan 4, 2017, 10:11:03 PM (8 years ago)
Author:
chronos
Message:
  • Fixed: Do not allow to move from single cell more units when available.
Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMove.lfm

    r107 r124  
    1414  OnShow = FormShow
    1515  Position = poMainFormCenter
    16   LCLVersion = '1.4.4.0'
     16  LCLVersion = '1.6.0.4'
    1717  object SpinEditOnce: TSpinEdit
    1818    Left = 208
    19     Height = 33
     19    Height = 34
    2020    Top = 40
    2121    Width = 98
    … …  
    2626  object Label1: TLabel
    2727    Left = 16
    28     Height = 25
     28    Height = 24
    2929    Top = 40
    30     Width = 45
     30    Width = 49
    3131    Caption = 'Once:'
    3232    ParentColor = False
    … …  
    5353  object Label2: TLabel
    5454    Left = 24
    55     Height = 25
     55    Height = 24
    5656    Top = 136
    57     Width = 83
     57    Width = 91
    5858    Caption = 'Every turn:'
    5959    ParentColor = False
    … …  
    6161  object SpinEditRepeat: TSpinEdit
    6262    Left = 208
    63     Height = 33
     63    Height = 34
    6464    Top = 128
    6565    Width = 98
    … …  
    134134  object Label3: TLabel
    135135    Left = 16
    136     Height = 25
     136    Height = 24
    137137    Top = 8
    138     Width = 126
     138    Width = 135
    139139    Caption = 'Win probability:'
    140140    ParentColor = False
    … …  
    142142  object LabelWinProbability: TLabel
    143143    Left = 264
    144     Height = 25
     144    Height = 24
    145145    Top = 8
    146146    Width = 15

  • trunk/Forms/UFormMove.pas

    r88 r124  
    9090procedure TFormMove.FormShow(Sender: TObject);
    9191begin
    92   SpinEditOnce.SetFocus;
     92  if SpinEditOnce.MaxValue < SpinEditOnce.Value then begin
     93    SpinEditOnce.Enabled := False;
     94    SpinEditOnce.Value := 0;
     95    TrackBarOnce.Enabled := False;
     96    TrackBarOnce.Max := 0;
     97    SpinEditRepeat.SetFocus;
     98  end else begin
     99    SpinEditOnce.Enabled := True;
     100    TrackBarOnce.Enabled := True;
     101    SpinEditOnce.SetFocus;
     102  end;
    93103  UpdateView;
    94104end;

  • trunk/UCore.lfm

    r115 r124  
    20452045    AuthorsName = 'Chronos'
    20462046    AppName = 'xTactics'
    2047     ReleaseDate = 42714
     2047    ReleaseDate = 42736
    20482048    RegistryKey = '\Software\xTactics'
    20492049    RegistryRoot = rrKeyCurrentUser
Note: See TracChangeset for help on using the changeset viewer.