object frmMain: TfrmMain
  Left = 371
  Top = 126
  Width = 546
  Height = 648
  Caption = 'ECU Emulator 1.0'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pb: TPaintBox
    Left = 0
    Top = 169
    Width = 538
    Height = 85
    Align = alTop
    OnPaint = pbPaint
  end
  object splsg: TSplitter
    Left = 0
    Top = 455
    Width = 538
    Height = 7
    Cursor = crVSplit
    Align = alBottom
    Beveled = True
  end
  object mmo: TRichEdit
    Left = 0
    Top = 462
    Width = 538
    Height = 111
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    WordWrap = False
  end
  object cbMain: TCoolBar
    Left = 0
    Top = 0
    Width = 538
    Height = 26
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 534
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 521
      Height = 22
      AutoSize = True
      Caption = 'tbMain'
      DisabledImages = ilDisabled
      EdgeBorders = []
      Flat = True
      HotImages = ilHot
      Images = il
      TabOrder = 0
      object btnSaveLog: TToolButton
        Left = 0
        Top = 0
        Action = acSaveLog
      end
      object ToolButton3: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object btnStart: TToolButton
        Left = 31
        Top = 0
        Action = acStartEmu
        ParentShowHint = False
        ShowHint = True
      end
      object btnStop: TToolButton
        Left = 54
        Top = 0
        Action = acStopEmu
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton1: TToolButton
        Left = 77
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object btnViewConfig: TToolButton
        Left = 85
        Top = 0
        Action = acViewConfiguration
      end
      object ToolButton2: TToolButton
        Left = 108
        Top = 0
        Action = acViewTest
      end
      object ToolButton4: TToolButton
        Left = 131
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object btnExit: TToolButton
        Left = 139
        Top = 0
        Action = acExitProgram
      end
      object Panel1: TPanel
        Left = 162
        Top = 0
        Width = 155
        Height = 22
        BevelInner = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object Label5: TLabel
          Left = 4
          Top = 4
          Width = 34
          Height = 13
          Caption = 'Priority:'
        end
        object cbPriority: TComboBox
          Left = 44
          Top = 0
          Width = 109
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnChange = cbPriorityChange
          Items.Strings = (
            'Realtime'
            'High'
            'Normal'
            'Idle')
        end
      end
    end
  end
  object pnlTest: TPanel
    Left = 0
    Top = 97
    Width = 538
    Height = 72
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    object btnOpen: TButton
      Left = 4
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Open'
      TabOrder = 0
      OnClick = btnOpenClick
    end
    object btnClose: TButton
      Left = 4
      Top = 37
      Width = 75
      Height = 25
      Caption = 'Close'
      TabOrder = 1
      OnClick = btnCloseClick
    end
    object btnSetRTS: TButton
      Left = 84
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Set RTS'
      TabOrder = 2
      OnClick = btnSetRTSClick
    end
    object btnSetDTR: TButton
      Left = 84
      Top = 37
      Width = 75
      Height = 25
      Caption = 'Set DTR'
      TabOrder = 3
      OnClick = btnSetDTRClick
    end
    object btnClrRTS: TButton
      Left = 164
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Clr RTS'
      TabOrder = 4
      OnClick = btnClrRTSClick
    end
    object btnClrDTR: TButton
      Left = 164
      Top = 37
      Width = 75
      Height = 25
      Caption = 'Clr DTR'
      TabOrder = 5
      OnClick = btnClrDTRClick
    end
    object btnWrite: TButton
      Left = 244
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Write'
      TabOrder = 6
      OnClick = btnWriteClick
    end
    object btnRead: TButton
      Left = 244
      Top = 37
      Width = 75
      Height = 25
      Caption = 'Read'
      TabOrder = 7
      OnClick = btnReadClick
    end
    object Button1: TButton
      Left = 324
      Top = 9
      Width = 75
      Height = 25
      Caption = 'Modem stat'
      TabOrder = 8
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 324
      Top = 36
      Width = 75
      Height = 25
      Caption = 'Button2'
      TabOrder = 9
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 404
      Top = 36
      Width = 75
      Height = 25
      Caption = 'Button3'
      TabOrder = 10
      OnClick = Button3Click
    end
  end
  object pnlStatus: TPanel
    Left = 0
    Top = 573
    Width = 538
    Height = 29
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 4
    object Label3: TLabel
      Left = 8
      Top = 8
      Width = 71
      Height = 13
      Caption = 'Tester present:'
    end
    object shpTester: TShape
      Left = 88
      Top = 7
      Width = 15
      Height = 15
      Brush.Color = clRed
      Shape = stCircle
    end
    object Label2: TLabel
      Left = 124
      Top = 8
      Width = 66
      Height = 13
      Caption = 'Current block:'
    end
    object edtBlock: TEdit
      Left = 196
      Top = 4
      Width = 41
      Height = 21
      TabOrder = 0
      Text = '0'
    end
  end
  object pnlConfig: TPanel
    Left = 0
    Top = 26
    Width = 538
    Height = 71
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object lblPort: TLabel
      Left = 8
      Top = 16
      Width = 48
      Height = 13
      Caption = 'COM port:'
      FocusControl = cbPort
    end
    object lblConnectionType: TLabel
      Left = 136
      Top = 15
      Width = 57
      Height = 13
      Caption = 'Connection:'
    end
    object lblInterface: TLabel
      Left = 288
      Top = 15
      Width = 45
      Height = 13
      Caption = 'Interface:'
    end
    object lblProto: TLabel
      Left = 12
      Top = 39
      Width = 42
      Height = 13
      Caption = 'Protocol:'
    end
    object cbPort: TComboBox
      Left = 64
      Top = 12
      Width = 65
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
    end
    object cbConnection: TComboBox
      Left = 200
      Top = 12
      Width = 81
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
    end
    object cbInterface: TComboBox
      Left = 340
      Top = 12
      Width = 69
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
    end
    object cbProto: TComboBox
      Left = 64
      Top = 36
      Width = 93
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
    end
  end
  object sb: TScrollBar
    Left = 0
    Top = 254
    Width = 538
    Height = 16
    Align = alTop
    PageSize = 0
    TabOrder = 5
    OnChange = sbChange
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 270
    Width = 538
    Height = 185
    ActivePage = tsLog
    Align = alClient
    TabOrder = 6
    object tsMode1: TTabSheet
      Caption = 'Mode $01 - Current PowerTrain'
      ImageIndex = 1
      object pcMode1: TPageControl
        Left = 0
        Top = 0
        Width = 530
        Height = 157
        ActivePage = tsSupportedCPTPIDs
        Align = alClient
        TabOrder = 0
        object tsSupportedCPTPIDs: TTabSheet
          Caption = '$(0,2,4,6,8,A,C,E)0 - Supported PIDs'
          object lvCPTPIDs: TListView
            Left = 0
            Top = 21
            Width = 522
            Height = 108
            Align = alClient
            Checkboxes = True
            Columns = <
              item
                Caption = 'PID'
              end
              item
                Caption = 'Description'
              end
              item
                Caption = 'Value'
              end>
            ReadOnly = True
            RowSelect = True
            TabOrder = 0
            ViewStyle = vsReport
            OnDblClick = lvCPTPIDsDblClick
          end
          object pnlPIDHelp: TPanel
            Left = 0
            Top = 0
            Width = 522
            Height = 21
            Align = alTop
            AutoSize = True
            BevelOuter = bvNone
            BorderWidth = 2
            TabOrder = 1
            object lblPIDHelp: TLabel
              Left = 2
              Top = 2
              Width = 518
              Height = 17
              Align = alClient
              Caption = 'Double click on a PID to change its reported value'
            end
          end
        end
        object tsMonitorStatus: TTabSheet
          Caption = '$01 - Monitor status'
          ImageIndex = 1
          object ScrollBox1: TScrollBox
            Left = 0
            Top = 0
            Width = 522
            Height = 129
            Align = alClient
            BorderStyle = bsNone
            TabOrder = 0
            object Label4: TLabel
              Left = 132
              Top = 8
              Width = 30
              Height = 13
              Caption = 'DTCs:'
            end
            object Label1: TLabel
              Left = 4
              Top = 8
              Width = 33
              Height = 13
              Caption = 'Byte 1:'
            end
            object edtDTCs: TEdit
              Left = 168
              Top = 4
              Width = 37
              Height = 21
              TabOrder = 0
              Text = '0'
            end
            object chkMIL: TCheckBox
              Left = 44
              Top = 7
              Width = 81
              Height = 17
              Caption = 'MIL On/Off'
              TabOrder = 1
            end
            object lvCTS: TListView
              Left = 0
              Top = 28
              Width = 217
              Height = 90
              Checkboxes = True
              Columns = <
                item
                  Caption = 'Continuous tests supported'
                  Width = 200
                end>
              TabOrder = 2
              ViewStyle = vsReport
            end
            object lvCTR: TListView
              Left = 220
              Top = 27
              Width = 217
              Height = 91
              Checkboxes = True
              Columns = <
                item
                  Caption = 'Continuous tests ready'
                  Width = 200
                end>
              TabOrder = 3
              ViewStyle = vsReport
            end
            object lvNCTS: TListView
              Left = 0
              Top = 120
              Width = 217
              Height = 100
              Checkboxes = True
              Columns = <
                item
                  Caption = 'Non continuous tests supported'
                  Width = 200
                end>
              TabOrder = 4
              ViewStyle = vsReport
            end
            object lvNCTR: TListView
              Left = 220
              Top = 119
              Width = 217
              Height = 100
              Checkboxes = True
              Columns = <
                item
                  Caption = 'Non continuous tests ready'
                  Width = 200
                end>
              TabOrder = 5
              ViewStyle = vsReport
            end
          end
        end
      end
    end
    object tsLog: TTabSheet
      Caption = 'Log'
      object sg: TJITStringGrid
        Left = 0
        Top = 29
        Width = 530
        Height = 128
        Align = alClient
        ColCount = 2
        DefaultColWidth = 20
        DefaultRowHeight = 20
        FixedCols = 0
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
        PopupMenu = pmSG
        TabOrder = 0
        OnGetText = SGGetText
      end
      object pnlLogConfig: TPanel
        Left = 0
        Top = 0
        Width = 530
        Height = 29
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object lblMaxHexLines: TLabel
          Left = 4
          Top = 8
          Width = 47
          Height = 13
          Caption = 'Max lines:'
        end
        object edtMaxHexLines: TEdit
          Left = 60
          Top = 4
          Width = 53
          Height = 21
          TabOrder = 0
          Text = '100'
          OnChange = edtMaxHexLinesChange
          OnKeyPress = edtMaxHexLinesKeyPress
        end
      end
    end
  end
  object il: TImageList
    Left = 32
    Top = 172
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
  object ilHot: TImageList
    Left = 60
    Top = 172
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
  object ilDisabled: TImageList
    Left = 88
    Top = 172
    Bitmap = {
      [encoded data, 25664 characters]
      000000000000}
  end
  object mnuMain: TMainMenu
    Images = il
    Left = 32
    Top = 200
    object miFile: TMenuItem
      Caption = '&File'
      object miSaveLog: TMenuItem
        Action = acSaveLog
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object miExit: TMenuItem
        Action = acExitProgram
      end
    end
    object miView: TMenuItem
      Caption = '&View'
      object miViewConfig: TMenuItem
        Action = acViewConfiguration
      end
      object miViewTest: TMenuItem
        Action = acViewTest
      end
    end
    object miAction: TMenuItem
      Caption = '&Action'
      object miStartEmu: TMenuItem
        Action = acStartEmu
      end
      object miStopEmu: TMenuItem
        Action = acStopEmu
      end
    end
  end
  object aclMain: TActionList
    Images = il
    Left = 116
    Top = 172
    object acStartEmu: TAction
      Caption = 'Start emulator'
      Hint = 'Start emulator'
      ImageIndex = 0
      OnExecute = acStartEmuExecute
    end
    object acStopEmu: TAction
      Caption = 'Stop emulator'
      Hint = 'Stop emulator'
      ImageIndex = 1
      OnExecute = acStopEmuExecute
    end
    object acViewConfiguration: TAction
      Caption = 'Show / hide configuration'
      Hint = 'Show / hide configuration pane'
      ImageIndex = 2
      OnExecute = acViewConfigurationExecute
    end
    object acViewTest: TAction
      Caption = 'Show / hide test pane'
      Hint = 'Show / hide test pane'
      ImageIndex = 3
      OnExecute = acViewTestExecute
    end
    object acSaveLog: TAction
      Caption = 'Save Log'
      Hint = 'Save log to a file'
      ImageIndex = 4
      OnExecute = acSaveLogExecute
    end
    object acExitProgram: TAction
      Caption = 'Exit'
      Hint = 'Exit from the program'
      ImageIndex = 5
      OnExecute = acExitProgramExecute
    end
  end
  object pmSG: TPopupMenu
    Left = 148
    Top = 208
    object Clear1: TMenuItem
      Caption = 'Clear'
      OnClick = Clear1Click
    end
  end
end
