unit1.~dfm

Cellular Automata Simulator for one Lane flow with traffic light

object Form1: TForm1
  Left = 91
  Top = 17
  Width = 1175
  Height = 862
  Caption = #1050#1083#1077#1090#1086#1095#1085#1086' '#1072#1074#1090#1086#1084#1072#1090#1085#1072#1103' '#1084#1086#1076#1077#1083#1100' '#1090#1088#1072#1085#1089#1087#1086#1088#1090#1085#1086#1075#1086' '#1087#1086#1090#1086#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 537
    Top = 139
    Width = 30
    Height = 30
  end
  object Label1: TLabel
    Left = 440
    Top = 152
    Width = 83
    Height = 13
    Caption = #1062#1074#1077#1090' '#1089#1074#1077#1090#1086#1092#1086#1088#1072
  end
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 625
    Height = 137
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.AdjustFrame = False
    Title.Text.Strings = (
      'TChart')
    Title.Visible = False
    BottomAxis.Automatic = False
    BottomAxis.AutomaticMaximum = False
    BottomAxis.AutomaticMinimum = False
    BottomAxis.ExactDateTime = False
    BottomAxis.Increment = 1.000000000000000000
    BottomAxis.LabelsOnAxis = False
    BottomAxis.Maximum = 500.000000000000000000
    BottomAxis.TickOnLabelsOnly = False
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMaximum = False
    LeftAxis.AutomaticMinimum = False
    LeftAxis.Visible = False
    Legend.Visible = False
    RightAxis.Visible = False
    TopAxis.Visible = False
    View3D = False
    TabOrder = 0
    object Series1: TPointSeries
      Marks.ArrowLength = 0
      Marks.Visible = False
      SeriesColor = clRed
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
  object Button1: TButton
    Left = 216
    Top = 152
    Width = 75
    Height = 25
    Caption = #1055#1086#1077#1093#1072#1083#1080
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 304
    Top = 152
    Width = 75
    Height = 25
    Caption = #1057#1090#1086#1087
    TabOrder = 2
    OnClick = Button2Click
  end
  object Chart2: TChart
    Left = 656
    Top = 0
    Width = 489
    Height = 817
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #1055#1088#1086#1089#1090#1088#1072#1085#1089#1090#1074#1077#1085#1085#1086'-'#1074#1088#1077#1084#1077#1085#1085#1072#1103' '#1076#1080#1072#1075#1088#1072#1084#1084#1072)
    BottomAxis.Automatic = False
    BottomAxis.AutomaticMaximum = False
    BottomAxis.AutomaticMinimum = False
    BottomAxis.Axis.Visible = False
    BottomAxis.ExactDateTime = False
    BottomAxis.Grid.Visible = False
    BottomAxis.Increment = 1.000000000000000000
    BottomAxis.LabelsSeparation = 100
    BottomAxis.Maximum = 500.000000000000000000
    BottomAxis.Title.Caption = #1050#1086#1086#1088#1076#1080#1085#1072#1090#1072
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMinimum = False
    LeftAxis.ExactDateTime = False
    LeftAxis.Grid.Visible = False
    LeftAxis.Increment = 1.000000000000000000
    LeftAxis.Inverted = True
    LeftAxis.Title.Caption = #1042#1088#1077#1084#1103
    Legend.Visible = False
    View3D = False
    Color = clWhite
    TabOrder = 3
    object Series2: TPointSeries
      Marks.ArrowLength = 0
      Marks.Visible = False
      SeriesColor = clRed
      Pointer.HorizSize = 1
      Pointer.InflateMargins = True
      Pointer.Style = psCircle
      Pointer.VertSize = 1
      Pointer.Visible = True
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
  object LabeledEdit1: TLabeledEdit
    Left = 32
    Top = 152
    Width = 41
    Height = 21
    EditLabel.Width = 26
    EditLabel.Height = 13
    EditLabel.Caption = 'Vmax'
    TabOrder = 4
    Text = '5'
  end
  object LabeledEdit2: TLabeledEdit
    Left = 88
    Top = 152
    Width = 49
    Height = 21
    EditLabel.Width = 32
    EditLabel.Height = 13
    EditLabel.Caption = 'Pnoise'
    TabOrder = 5
    Text = '0,3'
  end
  object LabeledEdit3: TLabeledEdit
    Left = 152
    Top = 152
    Width = 41
    Height = 21
    EditLabel.Width = 30
    EditLabel.Height = 13
    EditLabel.Caption = 'Ptrans'
    Enabled = False
    TabOrder = 6
    Text = '0,5'
  end
  object Chart3: TChart
    Left = 8
    Top = 176
    Width = 633
    Height = 649
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #1048#1085#1090#1077#1085#1089#1080#1074#1085#1086#1089#1090#1100' '#1087#1086#1090#1086#1082#1072' '#1085#1072' '#1082#1086#1085#1094#1077' '#1091#1095#1072#1089#1090#1082#1072' '#1089#1086' '#1074#1088#1077#1084#1077#1085#1077#1084)
    BottomAxis.Title.Caption = #1074#1088#1077#1084#1103
    LeftAxis.Automatic = False
    LeftAxis.AutomaticMaximum = False
    LeftAxis.AutomaticMinimum = False
    LeftAxis.Maximum = 0.500000000000000000
    LeftAxis.Title.Caption = #1048#1085#1090#1077#1085#1089#1080#1074#1085#1086#1089#1090#1100
    Legend.Visible = False
    View3D = False
    TabOrder = 7
    object Series3: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
end