Ignore:
Timestamp:
Jun 21, 2024, 12:44:53 PM (5 months ago)
Author:
chronos
Message:
  • Modified: Remove U prefix from unit names.
  • Modified: Use TFormEx for all forms for code simplification.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormMove.lfm

    r316 r317  
    11object FormMove: TFormMove
    2   Left = 435
    3   Height = 232
    4   Top = 153
    5   Width = 351
     2  Left = 1104
     3  Height = 278
     4  Top = 604
     5  Width = 421
    66  ActiveControl = ButtonOk
    77  Caption = 'Move'
    8   ClientHeight = 232
    9   ClientWidth = 351
    10   Constraints.MinHeight = 232
    11   Constraints.MinWidth = 351
    12   DesignTimePPI = 120
    13   OnClose = FormClose
    14   OnCreate = FormCreate
     8  ClientHeight = 278
     9  ClientWidth = 421
     10  Constraints.MinHeight = 278
     11  Constraints.MinWidth = 421
     12  DesignTimePPI = 144
    1513  OnKeyPress = FormKeyPress
    1614  OnShow = FormShow
    1715  Position = poMainFormCenter
    18   LCLVersion = '2.0.0.4'
     16  LCLVersion = '3.4.0.0'
    1917  object SpinEditOnce: TSpinEdit
    20     Left = 173
    21     Height = 28
    22     Top = 33
    23     Width = 82
     18    Left = 208
     19    Height = 43
     20    Top = 40
     21    Width = 98
    2422    OnChange = SpinEditOnceChange
    2523    OnKeyPress = FormKeyPress
    … …  
    2826  end
    2927  object Label1: TLabel
    30     Left = 13
    31     Height = 20
    32     Top = 33
    33     Width = 37
     28    Left = 16
     29    Height = 26
     30    Top = 40
     31    Width = 49
    3432    Caption = 'Once:'
    3533    ParentColor = False
    … …  
    3735  end
    3836  object ButtonOk: TButton
    39     Left = 247
    40     Height = 32
    41     Top = 187
    42     Width = 83
     37    Left = 296
     38    Height = 38
     39    Top = 224
     40    Width = 100
    4341    Caption = 'Ok'
    4442    Default = True
    … …  
    4846  end
    4947  object ButtonCancel: TButton
    50     Left = 147
    51     Height = 32
    52     Top = 187
    53     Width = 83
     48    Left = 176
     49    Height = 38
     50    Top = 224
     51    Width = 100
    5452    Caption = 'Cancel'
    5553    ModalResult = 2
    … …  
    5856  end
    5957  object Label2: TLabel
    60     Left = 20
    61     Height = 20
    62     Top = 113
    63     Width = 68
     58    Left = 24
     59    Height = 26
     60    Top = 136
     61    Width = 90
    6462    Caption = 'Every turn:'
    6563    ParentColor = False
    … …  
    6765  end
    6866  object SpinEditRepeat: TSpinEdit
    69     Left = 173
    70     Height = 28
    71     Top = 107
    72     Width = 82
     67    Left = 208
     68    Height = 43
     69    Top = 128
     70    Width = 98
    7371    OnChange = SpinEditRepeatChange
    7472    OnKeyPress = FormKeyPress
    … …  
    7775  end
    7876  object TrackBarOnce: TTrackBar
    79     Left = 73
    80     Height = 48
    81     Top = 67
    82     Width = 205
     77    Left = 88
     78    Height = 58
     79    Top = 80
     80    Width = 245
    8381    OnChange = TrackBarOnceChange
    8482    PageSize = 1
    … …  
    9189  end
    9290  object TrackBarRepeat: TTrackBar
    93     Left = 80
    94     Height = 48
    95     Top = 140
    96     Width = 193
     91    Left = 96
     92    Height = 58
     93    Top = 168
     94    Width = 231
    9795    OnChange = TrackBarRepeatChange
    9896    PageSize = 1
    … …  
    105103  end
    106104  object ButtonOnceMin: TButton
    107     Left = 7
    108     Height = 32
    109     Top = 73
    110     Width = 67
     105    Left = 8
     106    Height = 38
     107    Top = 88
     108    Width = 80
    111109    Caption = 'Min'
    112     OnClick = ButtonOnceMinClick
    113110    ParentFont = False
    114111    TabOrder = 6
     112    OnClick = ButtonOnceMinClick
    115113  end
    116114  object ButtonOnceMax: TButton
    117     Left = 277
    118     Height = 32
    119     Top = 73
    120     Width = 67
     115    Left = 333
     116    Height = 38
     117    Top = 88
     118    Width = 80
    121119    Anchors = [akTop, akRight]
    122120    Caption = 'Max'
    123     OnClick = ButtonOnceMaxClick
    124121    ParentFont = False
    125122    TabOrder = 7
     123    OnClick = ButtonOnceMaxClick
    126124  end
    127125  object ButtonRepeatMin: TButton
    128     Left = 7
    129     Height = 32
    130     Top = 147
    131     Width = 67
     126    Left = 8
     127    Height = 38
     128    Top = 176
     129    Width = 80
    132130    Caption = 'Min'
    133     OnClick = ButtonRepeatMinClick
    134131    ParentFont = False
    135132    TabOrder = 8
     133    OnClick = ButtonRepeatMinClick
    136134  end
    137135  object ButtonRepeatMax: TButton
    138     Left = 277
    139     Height = 32
    140     Top = 147
    141     Width = 67
     136    Left = 333
     137    Height = 38
     138    Top = 176
     139    Width = 80
    142140    Anchors = [akTop, akRight]
    143141    Caption = 'Max'
    144     OnClick = ButtonRepeatMaxClick
    145142    ParentFont = False
    146143    TabOrder = 9
     144    OnClick = ButtonRepeatMaxClick
    147145  end
    148146  object Label3: TLabel
    149     Left = 13
    150     Height = 20
    151     Top = 7
    152     Width = 106
     147    Left = 16
     148    Height = 26
     149    Top = 8
     150    Width = 134
    153151    Caption = 'Win probability:'
    154152    ParentColor = False
    … …  
    156154  end
    157155  object LabelWinProbability: TLabel
    158     Left = 220
    159     Height = 20
    160     Top = 7
    161     Width = 12
     156    Left = 264
     157    Height = 26
     158    Top = 8
     159    Width = 15
    162160    Caption = '   '
    163161    ParentColor = False
    … …  
    165163  end
    166164  object ButtonRemove: TButton
    167     Left = 40
    168     Height = 32
    169     Top = 187
    170     Width = 83
     165    Left = 48
     166    Height = 38
     167    Top = 224
     168    Width = 100
    171169    Caption = 'Delete'
    172     OnClick = ButtonRemoveClick
    173170    ParentFont = False
    174171    TabOrder = 10
     172    OnClick = ButtonRemoveClick
    175173  end
    176174end
Note: See TracChangeset for help on using the changeset viewer.