tmainform.~dfm

This is realization of the Petri Networks. Language: Russian only

object MainForm: TMainForm
  Left = 163
  Top = 61
  Width = 603
  Height = 439
  Anchors = [akLeft, akTop, akRight]
  Caption = #1057#1077#1090#1080' '#1055#1077#1090#1088#1080
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnDblClick = FormDblClick
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object MemoHelp: TMemo
    Left = 0
    Top = 0
    Width = 289
    Height = 97
    Color = cl3DLight
    Enabled = False
    Lines.Strings = (
      #1065#1077#1083#1095#1086#1082' '#1083#1077#1074#1086#1081' - '#1057#1086#1079#1076#1072#1085#1080#1077' '#1103#1095#1077#1081#1082#1080
      #1065#1077#1083#1095#1086#1082' '#1087#1088#1072#1074#1086#1081' - '#1057#1086#1079#1076#1072#1085#1080#1077' '#1087#1077#1088#1077#1093#1086#1076#1072
      #1057#1086#1077#1076#1080#1085#1077#1085#1080#1077' '#1086#1073#1098#1077#1082#1090#1086#1074' - '#1083#1077#1074#1086#1081' '#1082#1085#1086#1087#1082#1086#1081
      #1055#1077#1088#1077#1084#1077#1097#1077#1085#1080#1077' '#1086#1073#1098#1077#1082#1090#1072' - '#1087#1088#1072#1074#1086#1081' '#1082#1085#1086#1087#1082#1086#1081
      #1055#1077#1088#1077#1084#1077#1097#1077#1085#1080#1077' '#1074' '#1082#1086#1088#1079#1080#1085#1091' - '#1091#1076#1072#1083#1080#1090#1100' '#1086#1073#1098#1077#1082#1090
      #1044#1074#1086#1081#1085#1086#1081' '#1097#1077#1083#1095#1086#1082' '#1087#1086' '#1103#1095#1077#1081#1082#1077' - '#1076#1086#1073#1072#1074#1080#1090#1100' '#1101#1083#1077#1084#1077#1085#1090
      #1044#1074#1086#1081#1085#1086#1081' '#1097#1077#1083#1095#1086#1082' '#1087#1086' '#1087#1077#1088#1077#1093#1086#1076#1091' - '#1074#1099#1087#1086#1083#1085#1080#1090#1100' '#1087#1077#1088#1077#1093#1086#1076)
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 288
    Top = 0
    Width = 305
    Height = 113
    Color = cl3DLight
    Enabled = False
    Lines.Strings = (
      #1054#1090#1082#1088#1099#1090#1099#1081' '#1087#1077#1088#1077#1093#1086#1076' - '#1079#1077#1083#1077#1085#1099#1081
      #1047#1072#1082#1088#1099#1090#1099#1081' '#1087#1077#1088#1077#1093#1086#1076' - '#1082#1088#1072#1089#1085#1099#1081
      #1056#1077#1073#1088#1086' '#1086#1090' '#1103#1095#1077#1081#1082#1080' '#1082' '#1087#1077#1088#1077#1093#1086#1076#1091'  - '#1089#1080#1085#1077#1077
      #1056#1077#1073#1088#1086' '#1086#1090' '#1087#1077#1088#1077#1093#1086#1076#1072' '#1082' '#1103#1095#1077#1081#1082#1077' - '#1075#1086#1083#1091#1073#1086#1077
      #1063#1080#1089#1083#1086' '#1085#1072' '#1083#1080#1085#1080#1080' - '#1082#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1086#1076#1080#1085#1072#1082#1086#1074#1099#1093' '#1088#1077#1073#1077#1088
      #1063#1080#1089#1083#1086' '#1074' '#1103#1095#1077#1081#1082#1077' - '#1082#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1101#1083#1077#1084#1077#1085#1090#1086#1074
      #1063#1080#1089#1083#1086' '#1074' '#1087#1077#1088#1077#1093#1086#1076#1077' - '#1085#1086#1084#1077#1088' '#1087#1086' '#1087#1086#1088#1103#1076#1082#1091
      #1050#1086#1088#1079#1080#1085#1072'  - '#1074' '#1087#1088#1072#1074#1086#1084' '#1085#1080#1078#1085#1077#1084' '#1091#1075#1083#1091)
    TabOrder = 1
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 366
    Width = 595
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 150
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Top = 120
    object File1: TMenuItem
      Caption = '&'#1060#1072#1081#1083
      object miNew: TMenuItem
        Caption = '&'#1053#1086#1074#1072#1103
        ShortCut = 16462
        OnClick = miNewClick
      end
      object miOpen: TMenuItem
        Caption = '&'#1054#1090#1082#1088#1099#1090#1100'...'
        ShortCut = 16463
        OnClick = miOpenClick
      end
      object miSave: TMenuItem
        Caption = '&'#1057#1086#1093#1088#1072#1085#1080#1090#1100
        ShortCut = 16467
        OnClick = miSaveClick
      end
      object miSaveAs: TMenuItem
        Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1050#1072#1082'...'
        OnClick = miSaveAsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Caption = #1042#1099#1093#1086#1076
        OnClick = miExitClick
      end
    end
    object miRegime: TMenuItem
      Caption = #1056#1077#1078#1080#1084
      object miManual: TMenuItem
        AutoCheck = True
        Caption = #1042#1088#1091#1095#1085#1091#1102
        Checked = True
        GroupIndex = 1
        RadioItem = True
        ShortCut = 113
        OnClick = miManualClick
      end
      object miInOrder: TMenuItem
        AutoCheck = True
        Caption = #1055#1086' '#1087#1086#1088#1103#1076#1082#1091
        GroupIndex = 1
        RadioItem = True
        ShortCut = 114
        OnClick = miInOrderClick
      end
      object miRandom: TMenuItem
        AutoCheck = True
        Caption = #1057#1083#1091#1095#1072#1081#1085#1086
        GroupIndex = 1
        RadioItem = True
        ShortCut = 115
        OnClick = miRandomClick
      end
      object N6: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object miDuration: TMenuItem
        Caption = #1055#1088#1086#1076#1086#1083#1078#1080#1090#1077#1083#1100#1085#1086#1089#1090#1100
        GroupIndex = 1
        object miUntilStop: TMenuItem
          AutoCheck = True
          Caption = #1044#1086' '#1086#1089#1090#1072#1085#1086#1074#1082#1080
          Checked = True
          GroupIndex = 2
          RadioItem = True
          ShortCut = 16454
          OnClick = miUntilStopClick
        end
        object miSteps: TMenuItem
          AutoCheck = True
          Caption = 'N '#1064#1072#1075#1086#1074'...'
          GroupIndex = 2
          RadioItem = True
          ShortCut = 16451
          OnClick = miStepsClick
        end
      end
      object miDelay: TMenuItem
        Caption = #1047#1072#1076#1077#1088#1078#1082#1072
        GroupIndex = 1
        object miDelayOn: TMenuItem
          AutoCheck = True
          Caption = #1042#1082#1083
          Checked = True
          ShortCut = 16452
          OnClick = miDelayOnClick
        end
        object miDelayTime: TMenuItem
          Caption = #1042#1088#1077#1084#1103', '#1084#1089
          ShortCut = 16468
          OnClick = miDelayTimeClick
        end
      end
    end
    object miRunTop: TMenuItem
      Caption = #1055#1091#1089#1082
      object miRun: TMenuItem
        Caption = #1055#1091#1089#1082
        ShortCut = 120
        OnClick = miRunClick
      end
      object miStop: TMenuItem
        Caption = #1057#1090#1086#1087
        ShortCut = 121
        OnClick = miStopClick
      end
      object miResetStep: TMenuItem
        Caption = #1057#1073#1088#1086#1089' '#1096#1072#1075#1086#1074
        ShortCut = 16466
        OnClick = miResetStepClick
      end
    end
  end
  object dlgOpenFile: TOpenDialog
    DefaultExt = 'ptr'
    Filter = 'Petri (*.ptr)|*.ptr|All Files (*.*)|*.*'
    Left = 32
    Top = 120
  end
  object dlgSaveFile: TSaveDialog
    DefaultExt = 'ptr'
    FileName = 'Net1'
    Filter = 'Petri (*.ptr)|*.ptr'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 64
    Top = 120
  end
end