MathgeomGLS

1
object Form1: TForm1
2
  Left = 197
3
  Top = 426
4
  Margins.Left = 4
5
  Margins.Top = 4
6
  Margins.Right = 4
7
  Margins.Bottom = 4
8
  Caption = 'Life'
9
  ClientHeight = 874
10
  ClientWidth = 1429
11
  Color = clBtnFace
12
  Font.Charset = DEFAULT_CHARSET
13
  Font.Color = clWindowText
14
  Font.Height = -19
15
  Font.Name = 'Verdana'
16
  Font.Style = []
17
  Menu = MainMenu
18
  Position = poScreenCenter
19
  OnClose = FormClose
20
  OnCreate = FormCreate
21
  OnResize = FormResize
22
  PixelsPerInch = 168
23
  TextHeight = 23
24
  object vp: TGLSceneViewer
25
    Left = 308
26
    Top = 0
27
    Width = 1064
28
    Height = 806
29
    Margins.Left = 6
30
    Margins.Top = 6
31
    Margins.Right = 6
32
    Margins.Bottom = 6
33
    Camera = cam
34
    FieldOfView = 165.854965209960900000
35
    PenAsTouch = False
36
    Align = alCustom
37
    Anchors = [akLeft, akTop, akRight, akBottom]
38
    OnMouseDown = vpMouseDown
39
    OnMouseMove = vpMouseMove
40
    TabOrder = 0
41
  end
42
  object Panel2: TPanel
43
    Left = 14
44
    Top = 14
45
    Width = 284
46
    Height = 214
47
    Margins.Left = 6
48
    Margins.Top = 6
49
    Margins.Right = 6
50
    Margins.Bottom = 6
51
    BevelOuter = bvNone
52
    BorderWidth = 1
53
    BorderStyle = bsSingle
54
    Color = 15790320
55
    Ctl3D = False
56
    ParentBackground = False
57
    ParentCtl3D = False
58
    TabOrder = 1
59
    object Label4: TLabel
60
      Left = 41
61
      Top = 63
62
      Width = 69
63
      Height = 23
64
      Margins.Left = 6
65
      Margins.Top = 6
66
      Margins.Right = 6
67
      Margins.Bottom = 6
68
      Caption = 'width: '
69
    end
70
    object Label5: TLabel
71
      Left = 32
72
      Top = 109
73
      Width = 76
74
      Height = 23
75
      Margins.Left = 6
76
      Margins.Top = 6
77
      Margins.Right = 6
78
      Margins.Bottom = 6
79
      Caption = 'height: '
80
    end
81
    object Panel5: TPanel
82
      Left = 1
83
      Top = 1
84
      Width = 280
85
      Height = 35
86
      Margins.Left = 6
87
      Margins.Top = 6
88
      Margins.Right = 6
89
      Margins.Bottom = 6
90
      Align = alTop
91
      Alignment = taLeftJustify
92
      BevelOuter = bvNone
93
      Caption = '  Life new'
94
      Color = 14540253
95
      ParentBackground = False
96
      TabOrder = 0
97
    end
98
    object Edit2: TEdit
99
      Left = 123
100
      Top = 57
101
      Width = 86
102
      Height = 29
103
      Margins.Left = 6
104
      Margins.Top = 6
105
      Margins.Right = 6
106
      Margins.Bottom = 6
107
      ReadOnly = True
108
      TabOrder = 1
109
      Text = '32'
110
    end
111
    object UpDown2: TUpDown
112
      Left = 209
113
      Top = 57
114
      Width = 29
115
      Height = 34
116
      Margins.Left = 6
117
      Margins.Top = 6
118
      Margins.Right = 6
119
      Margins.Bottom = 6
120
      Max = 3
121
      TabOrder = 2
122
      OnClick = UpDown2Click
123
    end
124
    object Edit3: TEdit
125
      Left = 123
126
      Top = 102
127
      Width = 86
128
      Height = 29
129
      Margins.Left = 6
130
      Margins.Top = 6
131
      Margins.Right = 6
132
      Margins.Bottom = 6
133
      ReadOnly = True
134
      TabOrder = 3
135
      Text = '32'
136
    end
137
    object UpDown3: TUpDown
138
      Left = 209
139
      Top = 102
140
      Width = 29
141
      Height = 32
142
      Margins.Left = 6
143
      Margins.Top = 6
144
      Margins.Right = 6
145
      Margins.Bottom = 6
146
      Max = 3
147
      TabOrder = 4
148
      OnClick = UpDown3Click
149
    end
150
    object Button3: TButton
151
      Left = 14
152
      Top = 154
153
      Width = 253
154
      Height = 42
155
      Margins.Left = 6
156
      Margins.Top = 6
157
      Margins.Right = 6
158
      Margins.Bottom = 6
159
      Caption = 'create new Map'
160
      TabOrder = 5
161
      OnClick = Button3Click
162
    end
163
  end
164
  object Panel7: TPanel
165
    Left = 14
166
    Top = 238
167
    Width = 284
168
    Height = 242
169
    Margins.Left = 6
170
    Margins.Top = 6
171
    Margins.Right = 6
172
    Margins.Bottom = 6
173
    BevelOuter = bvNone
174
    BorderWidth = 1
175
    BorderStyle = bsSingle
176
    Color = 15790320
177
    Ctl3D = False
178
    ParentBackground = False
179
    ParentCtl3D = False
180
    TabOrder = 2
181
    object Label1: TLabel
182
      Left = 34
183
      Top = 62
184
      Width = 72
185
      Height = 23
186
      Margins.Left = 6
187
      Margins.Top = 6
188
      Margins.Right = 6
189
      Margins.Bottom = 6
190
      Caption = 'speed: '
191
    end
192
    object but_run: TSpeedButton
193
      Left = 14
194
      Top = 172
195
      Width = 253
196
      Height = 51
197
      Margins.Left = 6
198
      Margins.Top = 6
199
      Margins.Right = 6
200
      Margins.Bottom = 6
201
      AllowAllUp = True
202
      GroupIndex = 1
203
      Caption = 'RUN'
204
      Font.Charset = DEFAULT_CHARSET
205
      Font.Color = clWindowText
206
      Font.Height = -20
207
      Font.Name = 'Verdana'
208
      Font.Style = [fsBold]
209
      ParentFont = False
210
    end
211
    object Panel8: TPanel
212
      Left = 1
213
      Top = 1
214
      Width = 280
215
      Height = 35
216
      Margins.Left = 6
217
      Margins.Top = 6
218
      Margins.Right = 6
219
      Margins.Bottom = 6
220
      Align = alTop
221
      Alignment = taLeftJustify
222
      BevelOuter = bvNone
223
      Caption = '  Life options'
224
      Color = 14540253
225
      ParentBackground = False
226
      TabOrder = 0
227
    end
228
    object Edit4: TEdit
229
      Left = 123
230
      Top = 56
231
      Width = 86
232
      Height = 29
233
      Margins.Left = 6
234
      Margins.Top = 6
235
      Margins.Right = 6
236
      Margins.Bottom = 6
237
      ReadOnly = True
238
      TabOrder = 1
239
      Text = '10'
240
    end
241
    object UpDown4: TUpDown
242
      Left = 209
243
      Top = 56
244
      Width = 28
245
      Height = 29
246
      Margins.Left = 6
247
      Margins.Top = 6
248
      Margins.Right = 6
249
      Margins.Bottom = 6
250
      Associate = Edit4
251
      Min = 1
252
      Max = 20
253
      Position = 10
254
      TabOrder = 2
255
      OnClick = UpDown4Click
256
    end
257
    object cb: TCheckBox
258
      Left = 32
259
      Top = 112
260
      Width = 205
261
      Height = 29
262
      Margins.Left = 6
263
      Margins.Top = 6
264
      Margins.Right = 6
265
      Margins.Bottom = 6
266
      Caption = 'enable borders'
267
      TabOrder = 3
268
    end
269
  end
270
  object GLScene: TGLScene
271
    Left = 184
272
    Top = 8
273
    object hudMap: TGLHUDSprite
274
      Material.FrontProperties.Diffuse.Color = {0000803F0000803F0000803F0000803F}
275
      Material.MaterialOptions = [moNoLighting]
276
      Material.Texture.ImageClassName = 'TGLBlankImage'
277
      Material.Texture.Image.ColorFormat = 6408
278
      Material.Texture.MagFilter = maNearest
279
      Material.Texture.MinFilter = miLinear
280
      Material.Texture.TextureWrap = twNone
281
      Material.Texture.FilteringQuality = tfAnisotropic
282
      Material.Texture.Disabled = False
283
      Position.Coordinates = {00009C4300007A43000000000000803F}
284
      Width = 1.000000000000000000
285
      Height = 1.000000000000000000
286
      Rotation = 0.000000000000000000
287
    end
288
    object cam: TGLCamera
289
      DepthOfView = 100.000000000000000000
290
      FocalLength = 50.000000000000000000
291
      CameraStyle = csOrthogonal
292
      Position.Coordinates = {0000000000000000000020410000803F}
293
    end
294
  end
295
  object AsyncTimer: TGLAsyncTimer
296
    Enabled = True
297
    Interval = 100
298
    OnTimer = AsyncTimerTimer
299
    Left = 334
300
    Top = 8
301
  end
302
  object OpenDlg: TOpenPictureDialog
303
    DefaultExt = '*.bmp'
304
    Filter = 'Array|*.bmp'
305
    InitialDir = 'maps'
306
    Left = 488
307
    Top = 8
308
  end
309
  object SaveDlg: TSavePictureDialog
310
    DefaultExt = '*.bmp'
311
    Filter = 'Array|*.bmp'
312
    InitialDir = 'maps'
313
    Left = 644
314
    Top = 8
315
  end
316
  object MainMenu: TMainMenu
317
    Left = 474
318
    Top = 148
319
    object N1: TMenuItem
320
      Caption = '&File'
321
      object New1: TMenuItem
322
        Caption = '&New'
323
      end
324
      object Open1: TMenuItem
325
        Caption = '&Load Map..'
326
        OnClick = Open1Click
327
      end
328
      object Save1: TMenuItem
329
        Caption = '&Save Map..'
330
        OnClick = Save1Click
331
      end
332
      object N2: TMenuItem
333
        Caption = '-'
334
      end
335
      object Exit1: TMenuItem
336
        Caption = '&Exit'
337
      end
338
    end
339
    object Help1: TMenuItem
340
      Caption = '&Help'
341
      object About1: TMenuItem
342
        Caption = 'A&bout..'
343
        OnClick = About1Click
344
      end
345
    end
346
  end
347
end
348