ArenaZ

1
object EvaluateForm: TEvaluateForm
2
  Left = 1198
3
  Top = 362
4
  BorderIcons = [biSystemMenu]
5
  BorderStyle = bsDialog
6
  ClientHeight = 248
7
  ClientWidth = 320
8
  Color = clCream
9
  Font.Charset = DEFAULT_CHARSET
10
  Font.Color = clWindowText
11
  Font.Height = -11
12
  Font.Name = 'MS Sans Serif'
13
  Font.Style = []
14
  FormStyle = fsStayOnTop
15
  KeyPreview = True
16
  OldCreateOrder = False
17
  ShowHint = True
18
  PixelsPerInch = 96
19
  TextHeight = 13
20
  object GroupBox1: TGroupBox
21
    Left = 8
22
    Top = 5
23
    Width = 305
24
    Height = 235
25
    Caption = '  Evaluate function  '
26
    ParentShowHint = False
27
    ShowHint = True
28
    TabOrder = 0
29
    object Labe1: TLabel
30
      Left = 19
31
      Top = 20
32
      Width = 68
33
      Height = 13
34
      Alignment = taRightJustify
35
      AutoSize = False
36
      Caption = 'Enter X value:'
37
      Font.Charset = ANSI_CHARSET
38
      Font.Color = clBlack
39
      Font.Height = -11
40
      Font.Name = 'Tahoma'
41
      Font.Style = []
42
      ParentFont = False
43
    end
44
    object Label2: TLabel
45
      Left = 19
46
      Top = 42
47
      Width = 68
48
      Height = 13
49
      Alignment = taRightJustify
50
      AutoSize = False
51
      Caption = 'Enter Y value:'
52
      Font.Charset = ANSI_CHARSET
53
      Font.Color = clBlack
54
      Font.Height = -11
55
      Font.Name = 'Tahoma'
56
      Font.Style = []
57
      ParentFont = False
58
    end
59
    object Label3: TLabel
60
      Left = 17
61
      Top = 65
62
      Width = 68
63
      Height = 13
64
      Alignment = taRightJustify
65
      AutoSize = False
66
      Caption = 'Z value:'
67
      Font.Charset = ANSI_CHARSET
68
      Font.Color = clMaroon
69
      Font.Height = -11
70
      Font.Name = 'Tahoma'
71
      Font.Style = [fsBold]
72
      ParentFont = False
73
    end
74
    object Label6: TLabel
75
      Left = 4
76
      Top = 203
77
      Width = 56
78
      Height = 13
79
      Alignment = taRightJustify
80
      AutoSize = False
81
      Caption = 'Line width:'
82
      Font.Charset = ANSI_CHARSET
83
      Font.Color = clBlack
84
      Font.Height = -11
85
      Font.Name = 'Tahoma'
86
      Font.Style = []
87
      ParentFont = False
88
    end
89
    object ColorButton: TSpeedButton
90
      Left = 122
91
      Top = 196
92
      Width = 100
93
      Height = 29
94
      Caption = 'Line Color...'
95
      Glyph.Data = {
96
        F6060000424DF606000000000000360000002800000018000000180000000100
97
        180000000000C00600000000000000000000000000000000000082C9F77FC8F7
98
        86CBF78CCEF792D0F898D3F89FD6F8A5D8F9AADBF9B1DDFAB7E0FABCE3FBC2E5
99
        FBC7E7FBCDE9FCD2ECFCD7EEFCDCF0FDE1F3FDE6F5FDE9F7FEEDF8FEF2F9FEF5
100
        FBFE70C3F570C2F677C5F67EC8F784CBF78BCDF792D0F898D3F89ED6F9A6D9F9
101
        ACDBFAB2DEFAB8E1FBBFE3FBC4E6FBCAE9FCCFEBFCD5EDFCDAEFFDDFF2FDE4F4
102
        FDE8F6FEEDF7FEF2F9FE6DC1F66ABFF571C2F678C5F6FF0000FF0000FF0000FF
103
        0000FF00009FD6F9FF0000FF0000FF0000B8E1FAFF0000C4E6FBFF0000FF0000
104
        D5EDFCDAF0FDDFF2FDE4F4FDE8F6FEEEF8FE67BEF563BDF56BC0F571C3F6FF00
105
        007EC8F785CBF78CCDF892D0F7FF00009FD6F9A6D9F9FF0000B2DEFAFF0000BF
106
        E4FBFF0000CAE8FCCFEBFCD5EDFCDAF0FDDFF2FDE4F4FDEAF7FE60BBF55EBAF4
107
        64BDF56BC0F5FF000077C5F67EC8F785CBF78CCEF7FF000098D3F89FD6F9FF00
108
        00ABDCFAFF0000B9E1FBFF0000C4E6FBCAE9FCCFEBFCD5EDFCDAEFFDDFF2FDE6
109
        F5FD5BB9F557B7F45EBAF464BDF5FF0000FF0000FF0000FF0000FF0000FF0000
110
        C0C0C099D4F8FF0000C0C0C0FF0000C0C0C0FF0000BFE3FBC4E6FBCAE9FCD0EA
111
        FCD5EDFCDAF0FDE2F3FD56B7F451B5F458B8F45EBAF5FF00006BC0F5FF00FFFF
112
        00FFFF00FFFF00FFFF0000FF0000FF000000FFFFFF0000FF0000FF0000FF0000
113
        BFE4FBC4E6FBCAE9FCD0EBFCD6EEFCDDF1FD50B5F44AB2F351B5F457B7F4FF00
114
        00FF00FFFF00FFFF00FFFF00FFFF00FF0000FF0000FFFF000000FFFF00FFFF00
115
        FFFFFF000000FFFF00FFFFBFE3FBC5E6FBCAE9FCCFEBFCD8EFFC49B2F344B0F3
116
        4BB2F352B5F4FF0000FF0000FF0000FF0000FF0000FF00FF0000FF0000FFFF00
117
        000000FFFF000000FFFF00FFFF00FFFF00FFFFB9E1FBBFE4FBC5E6FBCAE9FCD3
118
        ECFC45AFF33FADF346AFF34CB2F3FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
119
        0000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFFC0C0C0B9E1
120
        FBBFE4FBC5E6FBCEE9FC3FADF339AAF240ADF346B0F3FF00FFFF00FFFF00FFFF
121
        00FFFF00FF80008000008000000000000000008000808000FFFF00FFFF00FFFF
122
        00FFFF00FFFFB3DEFAB9E1FBBFE4FBC8E7FB3AABF234A8F239ABF23FADF2FF00
123
        FFFF00FFFF00FFFF00FFFF00FF80000000000000000000000000000000800000
124
        FF0000FFFF00FFFF00FFFFC0C0C0ADDCFAB3DFFABAE1FBC4E6FB36A8F22EA6F1
125
        34A8F23AAAF240ADF2FF00FFFF00FFFF00FFFF0000FF00000000000000000000
126
        0000000000FF0000FF0000FFFF00FFFF00FFFFA0D6F9A7D9F9ADDCFAB4DFFABE
127
        E3FB30A7F229A3F12FA6F134A9F239ABF2FF00FFFF00FFFF0000FF0000FF0000
128
        80000000000000000000800000FF0000FF0000FF0000FFFF00FFFF99D4F8A0D7
129
        F9A6D9F9ADDCFAB8E1FA2CA6F124A2F029A4F12FA6F134A8F23AABF2FF00FFFF
130
        0000FF0000FF0000FF000000000000800000FF0000FF0000FF0000FF0000FFFF
131
        8DCEF894D1F89AD4F8A1D7F9A7DAF9B3DEFA28A3F11F9FF024A1F129A3F12FA5
132
        F134A9F239ABF2FFFF00FF0000FF0000FF0000FFFF00FFFF0000FF0000FF0000
133
        FF00FFFF0080C8F786CCF78DCEF894D1F89AD4F9A1D7F9ACDBF924A1F11A9DF0
134
        1FA0F024A2F129A4F12FA6F134A8F2FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
135
        00FFFF00FFFF00FFFF00FFFF0079C6F680C9F786CBF78DCEF893D1F89AD4F8A7
136
        D9F920A0F0169BF01A9EF00000FF0000FF2AA3F12FA7F1C0C0C00000FF0000FF
137
        FFFF00FFFF000000FFFFFF00FFFF000000FF0000FF72C3F67AC6F60000FF87CC
138
        F78DCFF893D1F8A1D7F81C9DF01299EF0000FF1A9EF020A0F00000FF29A4F100
139
        00FFFFFF00FFFF000000FFFFFF000000FFFFFF000000FFFFFF0066BEF50000FF
140
        73C3F60000FF80C9F787CCF78DCFF89AD4F8189CF00E98EF0000FF169BF01B9E
141
        F01F9FF025A1F10000FF2FA6F1FFFF000000FFFFFF000000FFFFFF000000FF59
142
        B8F45FBBF50000FF6DC1F60000FF79C6F680C9F787CBF794D1F8159BF00A97EF
143
        0000FF129AEF169CF00000FF1FA0F00000FF2AA4F12FA7F10000FFC0C0C00000
144
        FF47B0F30000FF53B6F459B8F40000FF66BEF50000FF73C3F67AC6F681C9F78E
145
        CFF71299EF0695EF0A97EF0000FF0000FF169CF01B9DF01FA0F00000FF0000FF
146
        2FA6F134A8F20000FF41AEF347B0F30000FF0000FF59B8F45FBBF50000FF0000
147
        FF0000FF7AC6F688CCF70C97EF0394EE0795EF0A96EF0E98EF1299EF169CF01B
148
        9DF0209FF025A1F12AA4F12FA7F10000FF3AABF240AEF347B0F34CB3F352B6F4
149
        59B8F460BBF566BEF56DC1F573C3F680C8F61E9FF01098EF129AEF159BF0189D
150
        F01C9EF020A1F024A1F128A3F12DA6F132A7F237A9F20000FF41AEF346B0F34C
151
        B3F452B5F457B7F45DBAF563BCF569BFF66FC2F676C5F683CBF7}
152
      OnClick = ColorButtonClick
153
    end
154
    object Label4: TLabel
155
      Left = 8
156
      Top = 87
157
      Width = 75
158
      Height = 18
159
      Alignment = taRightJustify
160
      AutoSize = False
161
      Caption = 'dz/dx:'
162
      Font.Charset = ANSI_CHARSET
163
      Font.Color = clMaroon
164
      Font.Height = -11
165
      Font.Name = 'Tahoma'
166
      Font.Style = [fsBold]
167
      ParentFont = False
168
    end
169
    object Label5: TLabel
170
      Left = 8
171
      Top = 109
172
      Width = 75
173
      Height = 18
174
      Alignment = taRightJustify
175
      AutoSize = False
176
      Caption = 'dz/dy:'
177
      Font.Charset = ANSI_CHARSET
178
      Font.Color = clMaroon
179
      Font.Height = -11
180
      Font.Name = 'Tahoma'
181
      Font.Style = [fsBold]
182
      ParentFont = False
183
    end
184
    object Label1: TLabel
185
      Left = 171
186
      Top = 172
187
      Width = 56
188
      Height = 13
189
      Alignment = taRightJustify
190
      AutoSize = False
191
      Caption = 'Arrow size:'
192
      Font.Charset = ANSI_CHARSET
193
      Font.Color = clBlack
194
      Font.Height = -11
195
      Font.Name = 'Tahoma'
196
      Font.Style = []
197
      ParentFont = False
198
    end
199
    object EditX: TEdit
200
      Tag = 1
201
      Left = 89
202
      Top = 17
203
      Width = 200
204
      Height = 21
205
      Font.Charset = ANSI_CHARSET
206
      Font.Color = clBlack
207
      Font.Height = -11
208
      Font.Name = 'Tahoma'
209
      Font.Style = []
210
      ParentFont = False
211
      TabOrder = 0
212
      OnKeyPress = FloatKeyPress
213
      OnKeyUp = EditXKeyUp
214
    end
215
    object EditY: TEdit
216
      Tag = 2
217
      Left = 89
218
      Top = 39
219
      Width = 200
220
      Height = 21
221
      Font.Charset = ANSI_CHARSET
222
      Font.Color = clBlack
223
      Font.Height = -11
224
      Font.Name = 'Tahoma'
225
      Font.Style = []
226
      ParentFont = False
227
      TabOrder = 1
228
      OnKeyPress = FloatKeyPress
229
      OnKeyUp = EditYKeyUp
230
    end
231
    object EditZ: TEdit
232
      Left = 89
233
      Top = 62
234
      Width = 200
235
      Height = 21
236
      Color = clCream
237
      Font.Charset = ANSI_CHARSET
238
      Font.Color = clMaroon
239
      Font.Height = -11
240
      Font.Name = 'Tahoma'
241
      Font.Style = [fsBold]
242
      ParentFont = False
243
      ReadOnly = True
244
      TabOrder = 2
245
    end
246
    object Coordinates: TCheckBox
247
      Left = 29
248
      Top = 133
249
      Width = 145
250
      Height = 17
251
      Caption = 'Show coordinate lines'
252
      Checked = True
253
      Font.Charset = ANSI_CHARSET
254
      Font.Color = clMaroon
255
      Font.Height = -11
256
      Font.Name = 'Tahoma'
257
      Font.Style = [fsBold]
258
      ParentFont = False
259
      State = cbChecked
260
      TabOrder = 5
261
      OnClick = CoordinatesClick
262
    end
263
    object ToGrids: TCheckBox
264
      Left = 29
265
      Top = 152
266
      Width = 190
267
      Height = 17
268
      Caption = 'Show coordinate lines to grids'
269
      Font.Charset = ANSI_CHARSET
270
      Font.Color = clMaroon
271
      Font.Height = -11
272
      Font.Name = 'Tahoma'
273
      Font.Style = [fsBold]
274
      ParentFont = False
275
      TabOrder = 6
276
      OnClick = ToGridsClick
277
    end
278
    object EditCoordWidth: TEdit
279
      Tag = 1
280
      Left = 64
281
      Top = 200
282
      Width = 56
283
      Height = 21
284
      Font.Charset = ANSI_CHARSET
285
      Font.Color = clBlack
286
      Font.Height = -11
287
      Font.Name = 'Tahoma'
288
      Font.Style = []
289
      ParentFont = False
290
      TabOrder = 7
291
      OnKeyPress = IntPress
292
      OnKeyUp = EditCoordWidthKeyUp
293
    end
294
    object Editdzdx: TEdit
295
      Left = 89
296
      Top = 84
297
      Width = 200
298
      Height = 21
299
      Hint = 'Right click for Popup menu'
300
      Color = clCream
301
      Font.Charset = ANSI_CHARSET
302
      Font.Color = clMaroon
303
      Font.Height = -11
304
      Font.Name = 'Tahoma'
305
      Font.Style = [fsBold]
306
      ParentFont = False
307
      PopupMenu = PopupMenu1
308
      ReadOnly = True
309
      TabOrder = 3
310
    end
311
    object Editdzdy: TEdit
312
      Left = 89
313
      Top = 106
314
      Width = 200
315
      Height = 21
316
      Hint = 'Right click for Popup menu'
317
      Color = clCream
318
      Font.Charset = ANSI_CHARSET
319
      Font.Color = clMaroon
320
      Font.Height = -11
321
      Font.Name = 'Tahoma'
322
      Font.Style = [fsBold]
323
      ParentFont = False
324
      PopupMenu = PopupMenu1
325
      ReadOnly = True
326
      TabOrder = 4
327
    end
328
    object dzdx_dzdy: TCheckBox
329
      Left = 29
330
      Top = 171
331
      Width = 135
332
      Height = 17
333
      Caption = 'Show dz/dx && dz/dy'
334
      Font.Charset = ANSI_CHARSET
335
      Font.Color = clMaroon
336
      Font.Height = -11
337
      Font.Name = 'Tahoma'
338
      Font.Style = [fsBold]
339
      ParentFont = False
340
      TabOrder = 8
341
      OnClick = dzdx_dzdyClick
342
    end
343
    object EditArrow: TEdit
344
      Tag = 1
345
      Left = 231
346
      Top = 170
347
      Width = 56
348
      Height = 21
349
      Font.Charset = ANSI_CHARSET
350
      Font.Color = clBlack
351
      Font.Height = -11
352
      Font.Name = 'Tahoma'
353
      Font.Style = []
354
      ParentFont = False
355
      TabOrder = 9
356
      OnKeyPress = EditArrowKeyPress
357
      OnKeyUp = EditArrowKeyUp
358
    end
359
  end
360
  object BitBtn1: TBitBtn
361
    Left = 232
362
    Top = 201
363
    Width = 75
364
    Height = 29
365
    Caption = '&Close'
366
    DoubleBuffered = False
367
    Glyph.Data = {
368
      F6000000424DF600000000000000760000002800000010000000100000000100
369
      040000000000800000000000000000000000100000001000000000000000FFFF
370
      000000008400FF00FF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
371
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00330000000000
372
      0333330244444444033333022444444403333302224444440333330222044444
373
      0333330222044444033333022204444403333302220444440333330222044444
374
      0333330222044444033333022240444403333302220444440333330222044444
375
      0333330212044444033333021104444403333300000000000333}
376
    TabOrder = 1
377
    OnClick = BitBtn1Click
378
  end
379
  object ColorDialog: TColorDialog
380
    Options = [cdFullOpen]
381
    Left = 16
382
    Top = 59
383
  end
384
  object PopupMenu1: TPopupMenu
385
    Left = 16
386
    Top = 103
387
    object Slope1: TMenuItem
388
      Caption = 'Tangent'
389
      Checked = True
390
      OnClick = MenuClick
391
    end
392
    object Degree1: TMenuItem
393
      Tag = 1
394
      Caption = 'Degree'
395
      OnClick = MenuClick
396
    end
397
    object Radian1: TMenuItem
398
      Tag = 2
399
      Caption = 'Radian'
400
      OnClick = MenuClick
401
    end
402
  end
403
end
404