Ignore:
Timestamp:
Jan 2, 2025, 2:29:10 PM (5 days ago)
Author:
chronos
Message:
  • Modified: OK button moved to be on the left side of buttons.
  • Modified: Allow to run test from test form.
  • Fixed: Free tests during test list form close.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormMove.lfm

    r317 r365  
    11object FormMove: TFormMove
    22  Left = 1104
    3   Height = 278
     3  Height = 299
    44  Top = 604
    5   Width = 421
     5  Width = 467
    66  ActiveControl = ButtonOk
    77  Caption = 'Move'
    8   ClientHeight = 278
    9   ClientWidth = 421
    10   Constraints.MinHeight = 278
    11   Constraints.MinWidth = 421
     8  ClientHeight = 299
     9  ClientWidth = 467
     10  Constraints.MinHeight = 100
     11  Constraints.MinWidth = 350
    1212  DesignTimePPI = 144
    1313  OnKeyPress = FormKeyPress
    1414  OnShow = FormShow
    1515  Position = poMainFormCenter
    16   LCLVersion = '3.4.0.0'
    17   object SpinEditOnce: TSpinEdit
    18     Left = 208
    19     Height = 43
    20     Top = 40
    21     Width = 98
    22     OnChange = SpinEditOnceChange
    23     OnKeyPress = FormKeyPress
    24     ParentFont = False
    25     TabOrder = 0
    26   end
    27   object Label1: TLabel
    28     Left = 16
    29     Height = 26
    30     Top = 40
    31     Width = 49
    32     Caption = 'Once:'
    33     ParentColor = False
    34     ParentFont = False
    35   end
     16  LCLVersion = '3.6.0.0'
    3617  object ButtonOk: TButton
    37     Left = 296
     18    Left = 134
    3819    Height = 38
    39     Top = 224
     20    Top = 253
    4021    Width = 100
     22    Anchors = [akRight, akBottom]
    4123    Caption = 'Ok'
    4224    Default = True
    4325    ModalResult = 1
    4426    ParentFont = False
    45     TabOrder = 1
     27    TabOrder = 0
     28    OnClick = ButtonOkClick
    4629  end
    4730  object ButtonCancel: TButton
    48     Left = 176
     31    Left = 246
    4932    Height = 38
    50     Top = 224
     33    Top = 253
    5134    Width = 100
     35    Anchors = [akRight, akBottom]
    5236    Caption = 'Cancel'
    5337    ModalResult = 2
    5438    ParentFont = False
    55     TabOrder = 2
    56   end
    57   object Label2: TLabel
    58     Left = 24
    59     Height = 26
    60     Top = 136
    61     Width = 90
    62     Caption = 'Every turn:'
    63     ParentColor = False
    64     ParentFont = False
    65   end
    66   object SpinEditRepeat: TSpinEdit
    67     Left = 208
    68     Height = 43
    69     Top = 128
    70     Width = 98
    71     OnChange = SpinEditRepeatChange
    72     OnKeyPress = FormKeyPress
    73     ParentFont = False
    74     TabOrder = 3
    75   end
    76   object TrackBarOnce: TTrackBar
    77     Left = 88
    78     Height = 58
    79     Top = 80
    80     Width = 245
    81     OnChange = TrackBarOnceChange
    82     PageSize = 1
    83     Position = 0
    84     TickStyle = tsNone
    85     Anchors = [akTop, akLeft, akRight]
    86     OnKeyPress = FormKeyPress
    87     ParentFont = False
    88     TabOrder = 4
    89   end
    90   object TrackBarRepeat: TTrackBar
    91     Left = 96
    92     Height = 58
    93     Top = 168
    94     Width = 231
    95     OnChange = TrackBarRepeatChange
    96     PageSize = 1
    97     Position = 0
    98     TickStyle = tsNone
    99     Anchors = [akTop, akLeft, akRight]
    100     OnKeyPress = FormKeyPress
    101     ParentFont = False
    102     TabOrder = 5
    103   end
    104   object ButtonOnceMin: TButton
    105     Left = 8
    106     Height = 38
    107     Top = 88
    108     Width = 80
    109     Caption = 'Min'
    110     ParentFont = False
    111     TabOrder = 6
    112     OnClick = ButtonOnceMinClick
    113   end
    114   object ButtonOnceMax: TButton
    115     Left = 333
    116     Height = 38
    117     Top = 88
    118     Width = 80
    119     Anchors = [akTop, akRight]
    120     Caption = 'Max'
    121     ParentFont = False
    122     TabOrder = 7
    123     OnClick = ButtonOnceMaxClick
    124   end
    125   object ButtonRepeatMin: TButton
    126     Left = 8
    127     Height = 38
    128     Top = 176
    129     Width = 80
    130     Caption = 'Min'
    131     ParentFont = False
    132     TabOrder = 8
    133     OnClick = ButtonRepeatMinClick
    134   end
    135   object ButtonRepeatMax: TButton
    136     Left = 333
    137     Height = 38
    138     Top = 176
    139     Width = 80
    140     Anchors = [akTop, akRight]
    141     Caption = 'Max'
    142     ParentFont = False
    143     TabOrder = 9
    144     OnClick = ButtonRepeatMaxClick
    145   end
    146   object Label3: TLabel
    147     Left = 16
    148     Height = 26
    149     Top = 8
    150     Width = 134
    151     Caption = 'Win probability:'
    152     ParentColor = False
    153     ParentFont = False
     39    TabOrder = 1
    15440  end
    15541  object LabelWinProbability: TLabel
    … …  
    16349  end
    16450  object ButtonRemove: TButton
    165     Left = 48
     51    Left = 358
    16652    Height = 38
    167     Top = 224
     53    Top = 253
    16854    Width = 100
     55    Anchors = [akRight, akBottom]
    16956    Caption = 'Delete'
    17057    ParentFont = False
    171     TabOrder = 10
     58    TabOrder = 2
    17259    OnClick = ButtonRemoveClick
    17360  end
     61  object ScrollBox1: TScrollBox
     62    Left = 8
     63    Height = 231
     64    Top = 8
     65    Width = 451
     66    HorzScrollBar.Page = 298
     67    VertScrollBar.Page = 214
     68    Align = alTop
     69    Anchors = [akTop, akLeft, akRight, akBottom]
     70    BorderSpacing.Around = 8
     71    ClientHeight = 229
     72    ClientWidth = 449
     73    TabOrder = 3
     74    object Label3: TLabel
     75      Left = 8
     76      Height = 26
     77      Top = 8
     78      Width = 134
     79      Caption = 'Win probability:'
     80      ParentColor = False
     81      ParentFont = False
     82    end
     83    object Label1: TLabel
     84      Left = 8
     85      Height = 26
     86      Top = 48
     87      Width = 49
     88      Caption = 'Once:'
     89      ParentColor = False
     90      ParentFont = False
     91    end
     92    object SpinEditOnce: TSpinEdit
     93      Left = 200
     94      Height = 43
     95      Top = 40
     96      Width = 98
     97      OnChange = SpinEditOnceChange
     98      OnKeyPress = FormKeyPress
     99      ParentFont = False
     100      TabOrder = 0
     101    end
     102    object ButtonOnceMin: TButton
     103      Left = 8
     104      Height = 38
     105      Top = 88
     106      Width = 80
     107      Caption = 'Min'
     108      ParentFont = False
     109      TabOrder = 1
     110      OnClick = ButtonOnceMinClick
     111    end
     112    object TrackBarOnce: TTrackBar
     113      Left = 96
     114      Height = 58
     115      Top = 80
     116      Width = 275
     117      OnChange = TrackBarOnceChange
     118      PageSize = 1
     119      Position = 0
     120      TickStyle = tsNone
     121      Anchors = [akTop, akLeft, akRight]
     122      OnKeyPress = FormKeyPress
     123      ParentFont = False
     124      TabOrder = 2
     125    end
     126    object ButtonOnceMax: TButton
     127      Left = 361
     128      Height = 38
     129      Top = 88
     130      Width = 80
     131      Anchors = [akTop, akRight]
     132      Caption = 'Max'
     133      ParentFont = False
     134      TabOrder = 3
     135      OnClick = ButtonOnceMaxClick
     136    end
     137    object ButtonRepeatMax: TButton
     138      Left = 361
     139      Height = 38
     140      Top = 176
     141      Width = 80
     142      Anchors = [akTop, akRight]
     143      Caption = 'Max'
     144      ParentFont = False
     145      TabOrder = 4
     146      OnClick = ButtonRepeatMaxClick
     147    end
     148    object SpinEditRepeat: TSpinEdit
     149      Left = 200
     150      Height = 43
     151      Top = 128
     152      Width = 98
     153      OnChange = SpinEditRepeatChange
     154      OnKeyPress = FormKeyPress
     155      ParentFont = False
     156      TabOrder = 5
     157    end
     158    object TrackBarRepeat: TTrackBar
     159      Left = 96
     160      Height = 58
     161      Top = 156
     162      Width = 269
     163      OnChange = TrackBarRepeatChange
     164      PageSize = 1
     165      Position = 0
     166      TickStyle = tsNone
     167      Anchors = [akTop, akLeft, akRight]
     168      OnKeyPress = FormKeyPress
     169      ParentFont = False
     170      TabOrder = 6
     171    end
     172    object ButtonRepeatMin: TButton
     173      Left = 8
     174      Height = 38
     175      Top = 176
     176      Width = 80
     177      Caption = 'Min'
     178      ParentFont = False
     179      TabOrder = 7
     180      OnClick = ButtonRepeatMinClick
     181    end
     182    object Label2: TLabel
     183      Left = 8
     184      Height = 26
     185      Top = 136
     186      Width = 90
     187      Caption = 'Every turn:'
     188      ParentColor = False
     189      ParentFont = False
     190    end
     191  end
    174192end
Note: See TracChangeset for help on using the changeset viewer.