MathgeomGLS
487 строк · 13.9 Кб
1object FormEvaluate: TFormEvaluate
2Left = 1198
3Top = 362
4Margins.Left = 5
5Margins.Top = 5
6Margins.Right = 5
7Margins.Bottom = 5
8BorderIcons = [biSystemMenu]
9BorderStyle = bsDialog
10ClientHeight = 434
11ClientWidth = 574
12Color = clCream
13Font.Charset = DEFAULT_CHARSET
14Font.Color = clWindowText
15Font.Height = -19
16Font.Name = 'MS Sans Serif'
17Font.Style = []
18FormStyle = fsStayOnTop
19KeyPreview = True
20Position = poScreenCenter
21ShowHint = True
22PixelsPerInch = 168
23TextHeight = 24
24object GroupBox1: TGroupBox
25Left = 14
26Top = 9
27Width = 534
28Height = 411
29Margins.Left = 5
30Margins.Top = 5
31Margins.Right = 5
32Margins.Bottom = 5
33Caption = ' Evaluate function '
34ParentShowHint = False
35ShowHint = True
36TabOrder = 0
37object Labe1: TLabel
38Left = 33
39Top = 35
40Width = 119
41Height = 23
42Margins.Left = 5
43Margins.Top = 5
44Margins.Right = 5
45Margins.Bottom = 5
46Alignment = taRightJustify
47AutoSize = False
48Caption = 'Enter X value:'
49Font.Charset = ANSI_CHARSET
50Font.Color = clBlack
51Font.Height = -19
52Font.Name = 'Tahoma'
53Font.Style = []
54ParentFont = False
55end
56object Label2: TLabel
57Left = 33
58Top = 74
59Width = 119
60Height = 22
61Margins.Left = 5
62Margins.Top = 5
63Margins.Right = 5
64Margins.Bottom = 5
65Alignment = taRightJustify
66AutoSize = False
67Caption = 'Enter Y value:'
68Font.Charset = ANSI_CHARSET
69Font.Color = clBlack
70Font.Height = -19
71Font.Name = 'Tahoma'
72Font.Style = []
73ParentFont = False
74end
75object Label3: TLabel
76Left = 30
77Top = 114
78Width = 119
79Height = 23
80Margins.Left = 5
81Margins.Top = 5
82Margins.Right = 5
83Margins.Bottom = 5
84Alignment = taRightJustify
85AutoSize = False
86Caption = 'Z value:'
87Font.Charset = ANSI_CHARSET
88Font.Color = clMaroon
89Font.Height = -19
90Font.Name = 'Tahoma'
91Font.Style = [fsBold]
92ParentFont = False
93end
94object Label6: TLabel
95Left = 7
96Top = 355
97Width = 98
98Height = 23
99Margins.Left = 5
100Margins.Top = 5
101Margins.Right = 5
102Margins.Bottom = 5
103Alignment = taRightJustify
104AutoSize = False
105Caption = 'Line width:'
106Font.Charset = ANSI_CHARSET
107Font.Color = clBlack
108Font.Height = -19
109Font.Name = 'Tahoma'
110Font.Style = []
111ParentFont = False
112end
113object ColorButton: TSpeedButton
114Left = 214
115Top = 343
116Width = 175
117Height = 51
118Margins.Left = 5
119Margins.Top = 5
120Margins.Right = 5
121Margins.Bottom = 5
122Caption = 'Line Color...'
123Glyph.Data = {
124F6060000424DF606000000000000360000002800000018000000180000000100
125180000000000C00600000000000000000000000000000000000082C9F77FC8F7
12686CBF78CCEF792D0F898D3F89FD6F8A5D8F9AADBF9B1DDFAB7E0FABCE3FBC2E5
127FBC7E7FBCDE9FCD2ECFCD7EEFCDCF0FDE1F3FDE6F5FDE9F7FEEDF8FEF2F9FEF5
128FBFE70C3F570C2F677C5F67EC8F784CBF78BCDF792D0F898D3F89ED6F9A6D9F9
129ACDBFAB2DEFAB8E1FBBFE3FBC4E6FBCAE9FCCFEBFCD5EDFCDAEFFDDFF2FDE4F4
130FDE8F6FEEDF7FEF2F9FE6DC1F66ABFF571C2F678C5F6FF0000FF0000FF0000FF
1310000FF00009FD6F9FF0000FF0000FF0000B8E1FAFF0000C4E6FBFF0000FF0000
132D5EDFCDAF0FDDFF2FDE4F4FDE8F6FEEEF8FE67BEF563BDF56BC0F571C3F6FF00
133007EC8F785CBF78CCDF892D0F7FF00009FD6F9A6D9F9FF0000B2DEFAFF0000BF
134E4FBFF0000CAE8FCCFEBFCD5EDFCDAF0FDDFF2FDE4F4FDEAF7FE60BBF55EBAF4
13564BDF56BC0F5FF000077C5F67EC8F785CBF78CCEF7FF000098D3F89FD6F9FF00
13600ABDCFAFF0000B9E1FBFF0000C4E6FBCAE9FCCFEBFCD5EDFCDAEFFDDFF2FDE6
137F5FD5BB9F557B7F45EBAF464BDF5FF0000FF0000FF0000FF0000FF0000FF0000
138C0C0C099D4F8FF0000C0C0C0FF0000C0C0C0FF0000BFE3FBC4E6FBCAE9FCD0EA
139FCD5EDFCDAF0FDE2F3FD56B7F451B5F458B8F45EBAF5FF00006BC0F5FF00FFFF
14000FFFF00FFFF00FFFF0000FF0000FF000000FFFFFF0000FF0000FF0000FF0000
141BFE4FBC4E6FBCAE9FCD0EBFCD6EEFCDDF1FD50B5F44AB2F351B5F457B7F4FF00
14200FF00FFFF00FFFF00FFFF00FFFF00FF0000FF0000FFFF000000FFFF00FFFF00
143FFFFFF000000FFFF00FFFFBFE3FBC5E6FBCAE9FCCFEBFCD8EFFC49B2F344B0F3
1444BB2F352B5F4FF0000FF0000FF0000FF0000FF0000FF00FF0000FF0000FFFF00
145000000FFFF000000FFFF00FFFF00FFFF00FFFFB9E1FBBFE4FBC5E6FBCAE9FCD3
146ECFC45AFF33FADF346AFF34CB2F3FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
1470000FF0000FF0000FF0000FF00FFFF00FFFF00FFFF00FFFF00FFFFC0C0C0B9E1
148FBBFE4FBC5E6FBCEE9FC3FADF339AAF240ADF346B0F3FF00FFFF00FFFF00FFFF
14900FFFF00FF80008000008000000000000000008000808000FFFF00FFFF00FFFF
15000FFFF00FFFFB3DEFAB9E1FBBFE4FBC8E7FB3AABF234A8F239ABF23FADF2FF00
151FFFF00FFFF00FFFF00FFFF00FF80000000000000000000000000000000800000
152FF0000FFFF00FFFF00FFFFC0C0C0ADDCFAB3DFFABAE1FBC4E6FB36A8F22EA6F1
15334A8F23AAAF240ADF2FF00FFFF00FFFF00FFFF0000FF00000000000000000000
1540000000000FF0000FF0000FFFF00FFFF00FFFFA0D6F9A7D9F9ADDCFAB4DFFABE
155E3FB30A7F229A3F12FA6F134A9F239ABF2FF00FFFF00FFFF0000FF0000FF0000
15680000000000000000000800000FF0000FF0000FF0000FFFF00FFFF99D4F8A0D7
157F9A6D9F9ADDCFAB8E1FA2CA6F124A2F029A4F12FA6F134A8F23AABF2FF00FFFF
1580000FF0000FF0000FF000000000000800000FF0000FF0000FF0000FF0000FFFF
1598DCEF894D1F89AD4F8A1D7F9A7DAF9B3DEFA28A3F11F9FF024A1F129A3F12FA5
160F134A9F239ABF2FFFF00FF0000FF0000FF0000FFFF00FFFF0000FF0000FF0000
161FF00FFFF0080C8F786CCF78DCEF894D1F89AD4F9A1D7F9ACDBF924A1F11A9DF0
1621FA0F024A2F129A4F12FA6F134A8F2FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
16300FFFF00FFFF00FFFF00FFFF0079C6F680C9F786CBF78DCEF893D1F89AD4F8A7
164D9F920A0F0169BF01A9EF00000FF0000FF2AA3F12FA7F1C0C0C00000FF0000FF
165FFFF00FFFF000000FFFFFF00FFFF000000FF0000FF72C3F67AC6F60000FF87CC
166F78DCFF893D1F8A1D7F81C9DF01299EF0000FF1A9EF020A0F00000FF29A4F100
16700FFFFFF00FFFF000000FFFFFF000000FFFFFF000000FFFFFF0066BEF50000FF
16873C3F60000FF80C9F787CCF78DCFF89AD4F8189CF00E98EF0000FF169BF01B9E
169F01F9FF025A1F10000FF2FA6F1FFFF000000FFFFFF000000FFFFFF000000FF59
170B8F45FBBF50000FF6DC1F60000FF79C6F680C9F787CBF794D1F8159BF00A97EF
1710000FF129AEF169CF00000FF1FA0F00000FF2AA4F12FA7F10000FFC0C0C00000
172FF47B0F30000FF53B6F459B8F40000FF66BEF50000FF73C3F67AC6F681C9F78E
173CFF71299EF0695EF0A97EF0000FF0000FF169CF01B9DF01FA0F00000FF0000FF
1742FA6F134A8F20000FF41AEF347B0F30000FF0000FF59B8F45FBBF50000FF0000
175FF0000FF7AC6F688CCF70C97EF0394EE0795EF0A96EF0E98EF1299EF169CF01B
1769DF0209FF025A1F12AA4F12FA7F10000FF3AABF240AEF347B0F34CB3F352B6F4
17759B8F460BBF566BEF56DC1F573C3F680C8F61E9FF01098EF129AEF159BF0189D
178F01C9EF020A1F024A1F128A3F12DA6F132A7F237A9F20000FF41AEF346B0F34C
179B3F452B5F457B7F45DBAF563BCF569BFF66FC2F676C5F683CBF7}
180OnClick = ColorButtonClick
181end
182object Label4: TLabel
183Left = 14
184Top = 152
185Width = 131
186Height = 32
187Margins.Left = 5
188Margins.Top = 5
189Margins.Right = 5
190Margins.Bottom = 5
191Alignment = taRightJustify
192AutoSize = False
193Caption = 'dz/dx:'
194Font.Charset = ANSI_CHARSET
195Font.Color = clMaroon
196Font.Height = -19
197Font.Name = 'Tahoma'
198Font.Style = [fsBold]
199ParentFont = False
200end
201object Label5: TLabel
202Left = 14
203Top = 191
204Width = 131
205Height = 31
206Margins.Left = 5
207Margins.Top = 5
208Margins.Right = 5
209Margins.Bottom = 5
210Alignment = taRightJustify
211AutoSize = False
212Caption = 'dz/dy:'
213Font.Charset = ANSI_CHARSET
214Font.Color = clMaroon
215Font.Height = -19
216Font.Name = 'Tahoma'
217Font.Style = [fsBold]
218ParentFont = False
219end
220object Label1: TLabel
221Left = 299
222Top = 301
223Width = 98
224Height = 23
225Margins.Left = 5
226Margins.Top = 5
227Margins.Right = 5
228Margins.Bottom = 5
229Alignment = taRightJustify
230AutoSize = False
231Caption = 'Arrow size:'
232Font.Charset = ANSI_CHARSET
233Font.Color = clBlack
234Font.Height = -19
235Font.Name = 'Tahoma'
236Font.Style = []
237ParentFont = False
238end
239object EditX: TEdit
240Tag = 1
241Left = 156
242Top = 30
243Width = 350
244Height = 31
245Margins.Left = 5
246Margins.Top = 5
247Margins.Right = 5
248Margins.Bottom = 5
249Font.Charset = ANSI_CHARSET
250Font.Color = clBlack
251Font.Height = -19
252Font.Name = 'Tahoma'
253Font.Style = []
254ParentFont = False
255TabOrder = 0
256OnKeyPress = FloatKeyPress
257OnKeyUp = EditXKeyUp
258end
259object EditY: TEdit
260Tag = 2
261Left = 156
262Top = 68
263Width = 350
264Height = 31
265Margins.Left = 5
266Margins.Top = 5
267Margins.Right = 5
268Margins.Bottom = 5
269Font.Charset = ANSI_CHARSET
270Font.Color = clBlack
271Font.Height = -19
272Font.Name = 'Tahoma'
273Font.Style = []
274ParentFont = False
275TabOrder = 1
276OnKeyPress = FloatKeyPress
277OnKeyUp = EditYKeyUp
278end
279object EditZ: TEdit
280Left = 156
281Top = 109
282Width = 350
283Height = 31
284Margins.Left = 5
285Margins.Top = 5
286Margins.Right = 5
287Margins.Bottom = 5
288Color = clCream
289Font.Charset = ANSI_CHARSET
290Font.Color = clMaroon
291Font.Height = -19
292Font.Name = 'Tahoma'
293Font.Style = [fsBold]
294ParentFont = False
295ReadOnly = True
296TabOrder = 2
297end
298object Coordinates: TCheckBox
299Left = 51
300Top = 233
301Width = 254
302Height = 30
303Margins.Left = 5
304Margins.Top = 5
305Margins.Right = 5
306Margins.Bottom = 5
307Caption = 'Show coordinate lines'
308Checked = True
309Font.Charset = ANSI_CHARSET
310Font.Color = clMaroon
311Font.Height = -19
312Font.Name = 'Tahoma'
313Font.Style = [fsBold]
314ParentFont = False
315State = cbChecked
316TabOrder = 5
317OnClick = CoordinatesClick
318end
319object ToGrids: TCheckBox
320Left = 51
321Top = 266
322Width = 332
323Height = 30
324Margins.Left = 5
325Margins.Top = 5
326Margins.Right = 5
327Margins.Bottom = 5
328Caption = 'Show coordinate lines to grids'
329Font.Charset = ANSI_CHARSET
330Font.Color = clMaroon
331Font.Height = -19
332Font.Name = 'Tahoma'
333Font.Style = [fsBold]
334ParentFont = False
335TabOrder = 6
336OnClick = ToGridsClick
337end
338object EditCoordWidth: TEdit
339Tag = 1
340Left = 112
341Top = 350
342Width = 98
343Height = 31
344Margins.Left = 5
345Margins.Top = 5
346Margins.Right = 5
347Margins.Bottom = 5
348Font.Charset = ANSI_CHARSET
349Font.Color = clBlack
350Font.Height = -19
351Font.Name = 'Tahoma'
352Font.Style = []
353ParentFont = False
354TabOrder = 7
355OnKeyPress = IntPress
356OnKeyUp = EditCoordWidthKeyUp
357end
358object Editdzdx: TEdit
359Left = 156
360Top = 147
361Width = 350
362Height = 31
363Hint = 'Right click for Popup menu'
364Margins.Left = 5
365Margins.Top = 5
366Margins.Right = 5
367Margins.Bottom = 5
368Color = clCream
369Font.Charset = ANSI_CHARSET
370Font.Color = clMaroon
371Font.Height = -19
372Font.Name = 'Tahoma'
373Font.Style = [fsBold]
374ParentFont = False
375PopupMenu = PopupMenu1
376ReadOnly = True
377TabOrder = 3
378end
379object Editdzdy: TEdit
380Left = 156
381Top = 186
382Width = 350
383Height = 31
384Hint = 'Right click for Popup menu'
385Margins.Left = 5
386Margins.Top = 5
387Margins.Right = 5
388Margins.Bottom = 5
389Color = clCream
390Font.Charset = ANSI_CHARSET
391Font.Color = clMaroon
392Font.Height = -19
393Font.Name = 'Tahoma'
394Font.Style = [fsBold]
395ParentFont = False
396PopupMenu = PopupMenu1
397ReadOnly = True
398TabOrder = 4
399end
400object dzdx_dzdy: TCheckBox
401Left = 51
402Top = 299
403Width = 236
404Height = 30
405Margins.Left = 5
406Margins.Top = 5
407Margins.Right = 5
408Margins.Bottom = 5
409Caption = 'Show dz/dx && dz/dy'
410Font.Charset = ANSI_CHARSET
411Font.Color = clMaroon
412Font.Height = -19
413Font.Name = 'Tahoma'
414Font.Style = [fsBold]
415ParentFont = False
416TabOrder = 8
417OnClick = dzdx_dzdyClick
418end
419object EditArrow: TEdit
420Tag = 1
421Left = 404
422Top = 298
423Width = 98
424Height = 31
425Margins.Left = 5
426Margins.Top = 5
427Margins.Right = 5
428Margins.Bottom = 5
429Font.Charset = ANSI_CHARSET
430Font.Color = clBlack
431Font.Height = -19
432Font.Name = 'Tahoma'
433Font.Style = []
434ParentFont = False
435TabOrder = 9
436OnKeyPress = EditArrowKeyPress
437OnKeyUp = EditArrowKeyUp
438end
439end
440object BitBtn1: TBitBtn
441Left = 406
442Top = 352
443Width = 131
444Height = 51
445Margins.Left = 5
446Margins.Top = 5
447Margins.Right = 5
448Margins.Bottom = 5
449Caption = '&Close'
450DoubleBuffered = False
451Glyph.Data = {
452F6000000424DF600000000000000760000002800000010000000100000000100
453040000000000800000000000000000000000100000001000000000000000FFFF
454000000008400FF00FF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
455FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00330000000000
4560333330244444444033333022444444403333302224444440333330222044444
4570333330222044444033333022204444403333302220444440333330222044444
4580333330222044444033333022240444403333302220444440333330222044444
4590333330212044444033333021104444403333300000000000333}
460TabOrder = 1
461OnClick = BitBtn1Click
462end
463object ColorDialog: TColorDialog
464Options = [cdFullOpen]
465Left = 16
466Top = 59
467end
468object PopupMenu1: TPopupMenu
469Left = 16
470Top = 103
471object Slope1: TMenuItem
472Caption = 'Tangent'
473Checked = True
474OnClick = MenuClick
475end
476object Degree1: TMenuItem
477Tag = 1
478Caption = 'Degree'
479OnClick = MenuClick
480end
481object Radian1: TMenuItem
482Tag = 2
483Caption = 'Radian'
484OnClick = MenuClick
485end
486end
487end
488