-
Notifications
You must be signed in to change notification settings - Fork 2
/
unit1.lfm
231 lines (231 loc) · 4.2 KB
/
unit1.lfm
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
object Form1: TForm1
Left = 347
Height = 531
Top = 107
Width = 815
ActiveControl = OpenGLControl1
Caption = 'Form1'
ClientHeight = 531
ClientWidth = 815
Position = poScreenCenter
LCLVersion = '3.99.0.0'
OnCreate = FormCreate
object OpenGLControl1: TOpenGLControl
Left = 296
Height = 512
Top = 8
Width = 512
OnMakeCurrent = OpenGLControl1MakeCurrent
OnPaint = OpenGLControl1Paint
OnResize = OpenGLControl1Resize
end
object CheckBox1: TCheckBox
Left = 8
Height = 22
Top = 8
Width = 93
Caption = 'Render radi'
Checked = True
State = cbChecked
TabOrder = 1
end
object Button1: TButton
Left = 8
Height = 25
Top = 431
Width = 280
Caption = 'Start / Stop'
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Height = 25
Top = 495
Width = 280
Caption = 'Close'
TabOrder = 3
OnClick = Button2Click
end
object ListBox1: TListBox
Left = 8
Height = 208
Top = 192
Width = 232
ItemHeight = 0
Style = lbOwnerDrawFixed
TabOrder = 4
TopIndex = -1
OnClick = ListBox1Click
OnDrawItem = ListBox1DrawItem
end
object Button3: TButton
Left = 248
Height = 62
Top = 192
Width = 40
Caption = '/\'
TabOrder = 5
OnClick = Button3Click
end
object Button4: TButton
Left = 248
Height = 62
Top = 338
Width = 40
Caption = '\/'
TabOrder = 6
OnClick = Button4Click
end
object GroupBox1: TGroupBox
Left = 8
Height = 144
Top = 40
Width = 280
Caption = ' Element '
ClientHeight = 127
ClientWidth = 278
TabOrder = 7
object CheckBox3: TCheckBox
Left = 8
Height = 22
Top = 72
Width = 83
Caption = 'Clockwise'
TabOrder = 0
end
object Label1: TLabel
Left = 8
Height = 16
Top = 16
Width = 22
Caption = 'Len'
end
object Edit1: TEdit
Left = 128
Height = 26
Top = 8
Width = 144
TabOrder = 1
Text = 'Edit1'
end
object Label2: TLabel
Left = 8
Height = 16
Top = 48
Width = 110
Caption = 'Rotspeed [2*pi / s]'
end
object Edit2: TEdit
Left = 128
Height = 26
Top = 44
Width = 144
TabOrder = 2
Text = 'Edit2'
end
object Button6: TButton
Left = 144
Height = 25
Top = 96
Width = 60
Caption = 'Add'
TabOrder = 3
OnClick = Button6Click
end
object Button7: TButton
Left = 212
Height = 25
Top = 95
Width = 60
Caption = 'Update'
TabOrder = 4
OnClick = Button7Click
end
end
object Button5: TButton
Left = 248
Height = 62
Top = 264
Width = 40
Caption = 'Del'
TabOrder = 8
OnClick = Button5Click
end
object Button8: TButton
Left = 8
Height = 25
Top = 464
Width = 80
Caption = 'Load'
TabOrder = 9
OnClick = Button8Click
end
object Button9: TButton
Left = 96
Height = 25
Top = 464
Width = 80
Caption = 'Save'
TabOrder = 10
OnClick = Button9Click
end
object ScrollBar1: TScrollBar
Left = 72
Height = 14
Top = 408
Width = 216
Max = 99
PageSize = 0
TabOrder = 11
end
object Label3: TLabel
Left = 8
Height = 16
Top = 408
Width = 57
Caption = 'Simspeed'
end
object Button10: TButton
Left = 213
Height = 25
Top = 464
Width = 75
Caption = 'Export'
TabOrder = 12
OnClick = Button10Click
end
object CheckBox2: TCheckBox
Left = 144
Height = 22
Top = 8
Width = 105
Caption = 'Clear on start'
Checked = True
State = cbChecked
TabOrder = 13
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 312
Top = 24
end
object OpenDialog1: TOpenDialog
DefaultExt = '.spg'
Filter = 'Spirograph|*.spg|All|*'
Left = 32
Top = 469
end
object SaveDialog1: TSaveDialog
DefaultExt = '.spg'
Filter = 'Spirograph|*.spg|All|*'
Left = 112
Top = 469
end
object SaveDialog2: TSaveDialog
DefaultExt = '.bmp'
Filter = 'Windows Bitmap|*.bmp|All|*'
Left = 227
Top = 475
end
end