13.1.4. Форма ввода данных

//OKCANCL.DFM

object Dlg1: TDlg1

Left = 85

Top = 115

BorderStyle = bsDialog

Caption = 'Ввод уравнения линейной системы'

ClientHeight = 402

ClientWidth = 616

ParentFont = True

Position = poScreenCenter

PixelsPerInch = 96

TextHeight = 13

object Dlg1: TBevel

Left = 8

Top = -8

Width = 745

Height = 201

Shape = bsFrame

end

object OKBtn: TButton

Left = 255

Top = 372

Width = 75

Height = 25

Caption = 'OK'

Default = True

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Courier New'

Font.Style = []

ModalResult = 1

ParentFont = False

TabOrder = 15

OnClick = OKBtnClick

end

object ST1: TStaticText

Left = 24

Top = 16

Width = 137

Height = 17

Caption = 'Порядок уравнения слева'

TabOrder = 14

end

object ST2: TStaticText

Left = 24

Top = 40

Width = 171

Height = 17

Caption = 'Коэффициенты уравнения слева'

TabOrder = 16

end

object E2: TEdit

Left = 224

Top = 40

Width = 65

Height = 21

TabOrder = 2

Text = '40 4 1'

end

object ST3: TStaticText

Left = 24

Top = 64

Width = 105

Height = 17

Caption = 'Начальные условия'

TabOrder = 17

end

object E3: TEdit

Left = 224

Top = 64

Width = 65

Height = 21

TabOrder = 3

Text = '0.1 -0.1'

end

object Memo1: TMemo

Left = 8

Top = 200

Width = 745

Height = 169

Font.Charset = DEFAULT_CHARSET

Font.Color = clNavy

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

Lines.Strings = (

'Лаб. раб. №7. Задание и комментарий.')

ParentFont = False

ReadOnly = True

TabOrder = 0

end

object E1: TEdit

Left = 224

Top = 16

Width = 65

Height = 21

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

TabOrder = 1

Text = '2'

end

object St4: TStaticText

Left = 24

Top = 88

Width = 187

Height = 17

Caption = 'Максимальное значение аргумента'

TabOrder = 18

end

object ST5: TStaticText

Left = 24

Top = 112

Width = 187

Height = 17

Caption = 'Шаг по аргументу функции решения'

TabOrder = 19

end

object E4: TEdit

Left = 224

Top = 88

Width = 65

Height = 21

TabOrder = 4

Text = '500'

end

object E5: TEdit

Left = 224

Top = 112

Width = 65

Height = 21

TabOrder = 5

Text = '1'

end

object E6: TEdit

Left = 224

Top = 136

Width = 65

Height = 21

TabOrder = 6

Text = '1'

end

object ST6: TStaticText

Left = 24

Top = 136

Width = 189

Height = 17

Caption = 'Порядок вычисляемой производной'

TabOrder = 20

end

object E7: TEdit

Left = 536

Top = 16

Width = 65

Height = 21

TabOrder = 7

Text = '0'

end

object E8: TEdit

Left = 536

Top = 40

Width = 65

Height = 21

TabOrder = 8

Text = '1'

end

object E9: TEdit

Left = 536

Top = 64

Width = 65

Height = 21

TabOrder = 9

Text = '0.05'

end

object E10: TEdit

Left = 536

Top = 88

Width = 65

Height = 21

TabOrder = 10

Text = '0.05'

end

object E11: TEdit

Left = 536

Top = 112

Width = 65

Height = 21

TabOrder = 11

Text = '0.01'

end

object ST7: TStaticText

Left = 336

Top = 16

Width = 143

Height = 17

Caption = 'Порядок уравнения справа'

TabOrder = 21

end

object ST8: TStaticText

Left = 336

Top = 40

Width = 177

Height = 17

Caption = 'Коэффициенты уравнения справа'

TabOrder = 22

end

object ST9: TStaticText

Left = 336

Top = 64

Width = 193

Height = 17

Caption = 'Частота гармонических возмущений'

TabOrder = 23

end

object ST10: TStaticText

Left = 336

Top = 88

Width = 137

Height = 17

Caption = 'Показатель у экспоненты'

TabOrder = 24

end

object ST11: TStaticText

Left = 336

Top = 112

Width = 144

Height = 17

Caption = 'Усиление на частоте среза'

TabOrder = 25

end

object E12: TEdit

Left = 480

Top = 136

Width = 121

Height = 21

TabOrder = 12

Text = 'func.txt'

end

object ST12: TStaticText

Left = 336

Top = 136

Width = 144

Height = 17

Caption = 'Имя файла с произв. возм.'

TabOrder = 26

end

object E13: TEdit

Left = 224

Top = 160

Width = 65

Height = 21

TabOrder = 13

end

object ST13: TStaticText

Left = 24

Top = 160

Width = 146

Height = 17

Caption = 'Усиление в обратной связи'

TabOrder = 27

end

end