-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathUnit1.dfm
More file actions
260 lines (260 loc) · 7.02 KB
/
Unit1.dfm
File metadata and controls
260 lines (260 loc) · 7.02 KB
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
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
object Form1: TForm1
Left = -1400
Top = 200
Caption = 'Ternary operator test'
ClientHeight = 626
ClientWidth = 1065
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = []
Position = poDesigned
TextHeight = 25
object SynEdit1: TSynEdit
AlignWithMargins = True
Left = 5
Top = 249
Width = 1050
Height = 372
Margins.Left = 5
Margins.Top = 5
Margins.Right = 10
Margins.Bottom = 5
Align = alClient
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -16
Font.Name = 'Consolas'
Font.Style = []
Font.Quality = fqClearTypeNatural
TabOrder = 0
UseCodeFolding = False
BorderStyle = bsNone
Gutter.DigitCount = 3
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Consolas'
Gutter.Font.Style = []
Gutter.ShowLineNumbers = True
Gutter.Bands = <
item
Kind = gbkMarks
Width = 13
end
item
Kind = gbkLineNumbers
end
item
Kind = gbkFold
end
item
Kind = gbkTrackChanges
end
item
Kind = gbkMargin
Width = 3
end>
Highlighter = SynPasSyn1
Options = [eoAutoIndent, eoDisableScrollArrows, eoDragDropEditing, eoDropFiles, eoEnhanceHomeKey, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoKeepCaretX, eoNoCaret, eoShowScrollHint, eoSmartTabDelete, eoTabIndent, eoTabsToSpaces, eoShowLigatures]
ReadOnly = True
RightEdge = -1
RightEdgeColor = clNone
SelectedColor.Alpha = 0.40000000596046440
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 1065
Height = 209
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object ListBox1: TListBox
AlignWithMargins = True
Left = 20
Top = 5
Width = 268
Height = 199
Margins.Left = 20
Margins.Top = 5
Margins.Right = 5
Margins.Bottom = 5
TabStop = False
Align = alLeft
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
ItemHeight = 25
TabOrder = 0
end
object GridPanel1: TGridPanel
Left = 304
Top = 21
Width = 750
Height = 176
BevelOuter = bvNone
ColumnCollection = <
item
SizeStyle = ssAbsolute
Value = 200.00000000000000000
end
item
SizeStyle = ssAbsolute
Value = 250.00000000000000000
end
item
Value = 100.00000000000000000
end>
ControlCollection = <
item
Column = 0
Control = LazyEvaluateButton
Row = 0
end
item
Column = 1
Control = UsedInAFunctionButton
Row = 0
end
item
Column = 2
Control = HowManyLightsButton
Row = 0
end
item
Column = 0
Control = RadioGroup1
Row = 1
end>
RowCollection = <
item
Value = 47.05882352941178000
end
item
Value = 52.94117647058822000
end>
TabOrder = 1
object LazyEvaluateButton: TButton
AlignWithMargins = True
Left = 3
Top = 3
Width = 194
Height = 77
Align = alClient
Caption = 'Lazy evaluation'
TabOrder = 1
OnClick = LazyEvaluateButtonClick
end
object UsedInAFunctionButton: TButton
AlignWithMargins = True
Left = 203
Top = 3
Width = 244
Height = 77
Align = alClient
Caption = 'Used in a function'
TabOrder = 2
OnClick = UsedInAFunctionButtonClick
end
object HowManyLightsButton: TButton
AlignWithMargins = True
Left = 453
Top = 3
Width = 294
Height = 77
Align = alClient
Caption = 'How many lights do you see Captain?'
TabOrder = 0
WordWrap = True
OnClick = HowManyLightsButtonClick
end
object RadioGroup1: TRadioGroup
Left = 0
Top = 83
Width = 200
Height = 93
Align = alClient
Caption = 'Animal'
Columns = 2
ItemIndex = 0
Items.Strings = (
'Dog'
'Cat')
TabOrder = 3
end
end
end
object Panel2: TPanel
Left = 0
Top = 209
Width = 1065
Height = 35
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object Label1: TLabel
AlignWithMargins = True
Left = 20
Top = 3
Width = 126
Height = 29
Margins.Left = 20
Margins.Right = 20
Align = alLeft
Caption = 'Example Code'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
ExplicitHeight = 25
end
object SkSvg1: TSkSvg
AlignWithMargins = True
Left = 169
Top = 5
Width = 50
Height = 25
Margins.Top = 5
Margins.Bottom = 5
Align = alLeft
Visible = False
OnClick = SkSvg1Click
Svg.Source =
'<?xml version='#39'1.0'#39' encoding='#39'utf-8'#39'?>'#13#10'<!DOCTYPE svg PUBLIC '#39'-/' +
'/W3C//DTD SVG 1.1//EN'#39' '#39'http://www.w3.org/Graphics/SVG/1.1/DTD/s' +
'vg11.dtd'#39'>'#13#10'<!-- Uploaded to: SVG Repo, www.svgrepo.com, Generat' +
'or: SVG Repo Mixer Tools -->'#13#10'<svg fill="#000000" height="800px"' +
' width="800px" version="1.1" xmlns="http://www.w3.org/2000/svg" ' +
'viewBox="0 0 512 512" xmlns:xlink="http://www.w3.org/1999/xlink"' +
' enable-background="new 0 0 512 512">'#13#10' <g>'#13#10' <g>'#13#10' <pa' +
'th d="m412.3,460h-312.6v-343h34.1l-8.2,35.2c-3.1,13.5 7.2,26.4 2' +
'1.1,26.4h218.6c13.9,0 24.2-12.9 21.1-26.4l-8.2-35.2h34.1v343h-5.' +
'68434e-14zm-234-356.6h155.2l7.8,34.5h-170.8l7.8-34.5zm77.7-51.6c' +
'11.6,0 20.5,5 24.1,10.7h-48.3c3.7-5.7 12.6-10.7 24.2-10.7zm158.5' +
',24.2h-46c-3.3-8-11.1-13.4-20.1-13.4h-25.8c-3.3-28.9-31.9-51.6-6' +
'6.6-51.6-34.7,0-63.3,22.7-66.6,51.6h-25.8c-8.9,0-16.8,5.4-20.1,1' +
'3.4h-46c-21.5,0-39,17.4-39,38.9v347.2c0,21.4 17.5,38.9 39,38.9h3' +
'16.9c21.5,0 39-17.4 39-38.9v-347.2c0.1-21.4-17.4-38.9-38.9-38.9z' +
'"/>'#13#10' <path d="m359.6,234.3h-207.2c-11.3,0-20.5,9.1-20.5,20' +
'.4 0,11.3 9.2,20.4 20.5,20.4h207.1c11.3,0 20.5-9.1 20.5-20.4 0.1' +
'-11.3-9.1-20.4-20.4-20.4z"/>'#13#10' <path d="m359.6,353.5h-207.2' +
'c-11.3,0-20.5,9.1-20.5,20.4 0,11.3 9.2,20.4 20.5,20.4h207.1c11.3' +
',0 20.5-9.1 20.5-20.4 0.1-11.3-9.1-20.4-20.4-20.4z"/>'#13#10' </g>'#13 +
#10' </g>'#13#10'</svg>'
ExplicitLeft = 216
ExplicitTop = 6
ExplicitHeight = 35
end
end
object SynPasSyn1: TSynPasSyn
KeyAttri.Foreground = clBisque
Left = 592
Top = 128
end
end