13.2. Исходные тексты программы на языке Object Pascal, выполненной в среде Delphi 4

13.2.1. Форма изменения размеров пера

//PENW.DFM

object Form4: TForm4

Left = 267

Top = 272

Width = 196

Height = 129

Caption = 'Толщина'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

Position = poScreenCenter

PixelsPerInch = 96

TextHeight = 13

object BitBtn1: TBitBtn

Left = 64

Top = 72

Width = 57

Height = 25

TabOrder = 0

OnClick = BitBtn1Click

Kind = bkOK

Margin = 3

end

object SpinEdit1: TSpinEdit

Left = 32

Top = 32

Width = 121

Height = 22

MaxValue = 10

MinValue = 0

TabOrder = 1

Value = 0

end

end

13.2.2. Модуль изменения размеров пера

//PENW.PAS

unit PenW;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Spin, Buttons;

type

TForm4 = class(TForm)

BitBtn1: TBitBtn;

SpinEdit1: TSpinEdit;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

WidP:integer;

implementation

{$R *.DFM}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

WidP:=SpinEdit1.Value;

end;

end.

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

//INPUTD.DFM

object Form2: TForm2

Left = 198

Top = 113

BorderStyle = bsToolWindow

Caption = 'Ввод данных'

ClientHeight = 411

ClientWidth = 519

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

Position = poScreenCenter

PixelsPerInch = 96

TextHeight = 14

object Bevel1: TBevel

Left = 0

Top = 0

Width = 303

Height = 411

Align = alLeft

end

object StaticText1: TStaticText

Left = 26

Top = 9

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

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

TabOrder = 0

end

object StaticText2: TStaticText

Left = 26

Top = 34

Width = 268

Height = 19

AutoSize = False

BorderStyle = sbsSunken

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

TabOrder = 1

end

object StaticText3: TStaticText

Left = 26

Top = 60

Width = 268

Height = 19

AutoSize = False

BorderStyle = sbsSunken

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

TabOrder = 2

end

object StaticText4: TStaticText

Left = 26

Top = 86

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

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

TabOrder = 3

end

object StaticText5: TStaticText

Left = 26

Top = 112

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

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

TabOrder = 4

end

object StaticText6: TStaticText

Left = 26

Top = 138

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSingle

Caption = 'ЧИСЛА РАЗДЕЛЯЙТЕ ТОЛЬКО ПРОБЕЛАМИ'

TabOrder = 5

end

object StaticText7: TStaticText

Left = 26

Top = 164

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

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

TabOrder = 6

end

object StaticText8: TStaticText

Left = 26

Top = 190

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

Caption = 'Показатель экспоненциального воздействия'

TabOrder = 7

end

object StaticText10: TStaticText

Left = 26

Top = 218

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

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

TabOrder = 8

end

object StaticText11: TStaticText

Left = 26

Top = 243

Width = 268

Height = 19

AutoSize = False

BorderStyle = sbsSunken

Caption = 'Конечное значение времени'

TabOrder = 9

end

object Edit1: TEdit

Left = 310

Top = 9

Width = 199

Height = 22

TabOrder = 10

Text = '2'

end

object Edit2: TEdit

Left = 310

Top = 34

Width = 199

Height = 22

TabOrder = 11

Text = '40 4 1'

end

object Edit3: TEdit

Left = 310

Top = 60

Width = 199

Height = 22

TabOrder = 12

Text = '0,1 0,3'

end

object Edit4: TEdit

Left = 310

Top = 86

Width = 199

Height = 22

TabOrder = 13

Text = '0'

end

object Edit5: TEdit

Left = 310

Top = 112

Width = 199

Height = 22

TabOrder = 14

Text = '1'

end

object Edit6: TEdit

Left = 310

Top = 164

Width = 199

Height = 22

TabOrder = 15

Text = '0,05'

end

object Edit7: TEdit

Left = 310

Top = 190

Width = 199

Height = 22

TabOrder = 16

Text = '0,05'

end

object Edit9: TEdit

Left = 310

Top = 215

Width = 199

Height = 22

TabOrder = 17

Text = '0,01'

end

object kzTime: TEdit

Left = 310

Top = 241

Width = 199

Height = 22

TabOrder = 18

Text = '200'

end

object BitBtn1: TBitBtn

Left = 362

Top = 378

Width = 81

Height = 26

TabOrder = 19

OnClick = BitBtn1Click

Kind = bkOK

end

object StaticText9: TStaticText

Left = 26

Top = 274

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

Caption = 'Шаг по времени'

TabOrder = 20

end

object StaticText12: TStaticText

Left = 26

Top = 303

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

Caption = 'Коэффициент обратной связи'

TabOrder = 21

end

object StepTime: TEdit

Left = 308

Top = 269

Width = 199

Height = 22

TabOrder = 22

Text = '1'

end

object Koefz: TEdit

Left = 308

Top = 299

Width = 199

Height = 22

TabOrder = 23

Text = '0'

end

object StaticText13: TStaticText

Left = 26

Top = 335

Width = 268

Height = 18

AutoSize = False

BorderStyle = sbsSunken

Caption = 'Порядок отображаемой производной'

TabOrder = 24

end

object Edit8: TEdit

Left = 308

Top = 331

Width = 199

Height = 22

TabOrder = 25

Text = '1'

end

end