Templot5/create_tandem.lfm at main · mattharris/Templot5 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
object tandem_form: Ttandem_form
  Left = 232
  Height = 377
  Top = 194
  Width = 618
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSizeToolWin
  Caption = '    make  3-way  tandem  turnout  -  double-sided'
  ClientHeight = 377
  ClientWidth = 618
  Color = 15794175
  DesignTimePPI = 120
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '3.4.0.0'
  Scaled = False
  object datestamp_label: TLabel
    Left = 0
    Height = 4
    Top = 326
    Width = 600
    AutoSize = False
    Font.Color = clSilver
    Font.Height = -7
    Font.Name = 'Arial'
    ParentFont = False
  end
  object Label3: TLabel
    Left = 0
    Height = 20
    Top = 10
    Width = 600
    Alignment = taCenter
    AutoSize = False
    Caption = 'Please be aware that this function may not create a finished tandem turnout.'
    Font.Color = 208
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Layout = tlCenter
    ParentFont = False
  end
  object Label4: TLabel
    Left = 0
    Height = 20
    Top = 36
    Width = 600
    Alignment = taCenter
    AutoSize = False
    Caption = 'There may be some final details for you to adjust.  Please do not report these as an error.'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Layout = tlCenter
    ParentFont = False
  end
  object comprised_label: TLabel
    Left = 12
    Height = 20
    Top = 268
    Width = 493
    AutoSize = False
    Caption = 'The tandem turnout will be comprised of 7 partial templates.'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Layout = tlCenter
    ParentFont = False
  end
  object Label6: TLabel
    Left = 56
    Height = 25
    Top = 116
    Width = 249
    AutoSize = False
    Caption = 'single-sided  tandem  turnout'
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object Label7: TLabel
    Left = 36
    Height = 49
    Top = 148
    Width = 344
    AutoSize = False
    Caption = 'Allow space in the track plan for a new switch to be created in front of the starting turnout.'
    WordWrap = True
  end
  object derived_label: TLabel
    Left = 12
    Height = 20
    Top = 296
    Width = 518
    AutoSize = False
    Caption = 'The new middle V-crossing will be derived from a gaunt turnout.'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Layout = tlCenter
    ParentFont = False
  end
  object ds_label: TLabel
    Left = 92
    Height = 20
    Top = 236
    Width = 249
    AutoSize = False
    Caption = 'double-sided  tandem  turnout'
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object go_button: TButton
    Left = 528
    Height = 25
    Top = 260
    Width = 57
    Caption = 'GO'
    ModalResult = 1
    TabOrder = 0
  end
  object xing_type_groupbox: TGroupBox
    Left = 24
    Height = 140
    Top = 68
    Width = 369
    Caption = '  V-crossing  on  new  2nd  turnout  in  tandem :   '
    ClientHeight = 119
    ClientWidth = 365
    Color = 16777200
    ParentBackground = False
    ParentColor = False
    TabOrder = 1
    object Label1: TLabel
      Left = 64
      Height = 20
      Top = 34
      Width = 295
      AutoSize = False
      Caption = 'for loops, crossovers and lay-by sidings'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      ParentFont = False
      WordWrap = True
    end
    object Label2: TLabel
      Left = 64
      Height = 20
      Top = 94
      Width = 287
      AutoSize = False
      Caption = 'for yards and double-junctions'
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = 'Arial'
      ParentFont = False
      WordWrap = True
    end
    object regular_xing_radio: TRadioButton
      Left = 28
      Height = 20
      Top = 8
      Width = 140
      Caption = 'regular  V-crossing'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object curviform_xing_radio: TRadioButton
      Left = 28
      Height = 20
      Top = 68
      Width = 154
      Caption = 'curviform  V-crossing'
      TabOrder = 1
    end
  end
  object cancel_button: TButton
    Left = 508
    Height = 25
    Top = 76
    Width = 77
    Caption = 'cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object click_first_button: TButton
    Left = 416
    Height = 25
    Top = 160
    Width = 169
    Caption = 'please  click  this  first'
    TabOrder = 3
    OnClick = click_first_buttonClick
  end
end