Ignore:
Timestamp:
Sep 28, 2014, 9:21:26 PM (10 years ago)
Author:
chronos
Message:
  • Fixed: Unit move win probability was bad calculated if already existed move was modified.
  • Added: Easier close of unit move dialog by Escape or Enter key.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMove.lfm

    r59 r72  
    99  ClientWidth = 320
    1010  OnCreate = FormCreate
     11  OnKeyPress = FormKeyPress
    1112  OnShow = FormShow
    12   LCLVersion = '1.0.10.0'
     13  LCLVersion = '1.3'
    1314  object SpinEditOnce: TSpinEdit
    1415    Left = 208
    15     Height = 27
     16    Height = 32
    1617    Top = 32
    1718    Width = 98
    1819    OnChange = SpinEditOnceChange
     20    OnKeyPress = FormKeyPress
    1921    TabOrder = 0
    2022  end
    2123  object Label1: TLabel
    2224    Left = 24
    23     Height = 18
     25    Height = 22
    2426    Top = 32
    25     Width = 36
     27    Width = 46
    2628    Caption = 'Once:'
    2729    ParentColor = False
    2830  end
    2931  object ButtonOk: TButton
    30     Left = 184
     32    Left = 189
    3133    Height = 25
    3234    Top = 224
    … …  
    4850  object Label2: TLabel
    4951    Left = 24
    50     Height = 18
     52    Height = 22
    5153    Top = 136
    52     Width = 66
     54    Width = 87
    5355    Caption = 'Every turn:'
    5456    ParentColor = False
    … …  
    5658  object SpinEditRepeat: TSpinEdit
    5759    Left = 208
    58     Height = 27
     60    Height = 32
    5961    Top = 128
    6062    Width = 98
    6163    OnChange = SpinEditRepeatChange
     64    OnKeyPress = FormKeyPress
    6265    TabOrder = 3
    6366  end
    … …  
    7275    TickStyle = tsNone
    7376    Anchors = [akTop, akLeft, akRight]
     77    OnKeyPress = FormKeyPress
    7478    TabOrder = 4
    7579  end
    … …  
    8488    TickStyle = tsNone
    8589    Anchors = [akTop, akLeft, akRight]
     90    OnKeyPress = FormKeyPress
    8691    TabOrder = 5
    8792  end
    … …  
    126131  object Label3: TLabel
    127132    Left = 16
    128     Height = 18
     133    Height = 22
    129134    Top = 8
    130     Width = 96
     135    Width = 127
    131136    Caption = 'Win probability:'
    132137    ParentColor = False
    … …  
    134139  object LabelWinProbability: TLabel
    135140    Left = 232
    136     Height = 18
     141    Height = 22
    137142    Top = 8
    138     Width = 10
     143    Width = 15
    139144    Caption = '   '
    140145    ParentColor = False
Note: See TracChangeset for help on using the changeset viewer.