object FormService: TFormService
  Left = 329
  Top = 110
  Width = 587
  Height = 290
  Caption = 'Service'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PageControlService: TPageControl
    Left = 0
    Top = 0
    Width = 464
    Height = 268
    ActivePage = TabCut
    Align = alClient
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabHeight = 40
    TabOrder = 0
    object TabConv: TTabSheet
      Caption = 'Conv.'
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 218
        Align = alClient
        BevelInner = bvLowered
        BevelWidth = 3
        BorderWidth = 3
        Caption = ' '
        TabOrder = 0
        object ButtonConvForward: TkSpeedButton
          Left = 251
          Top = 102
          Width = 171
          Height = 81
          AllowAllUp = True
          Caption = 'Forward'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonConvForwardMouseDown
          OnMouseUp = ButtonConvForwardMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonConvBack: TkSpeedButton
          Left = 251
          Top = 17
          Width = 162
          Height = 79
          AllowAllUp = True
          Caption = 'Back'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonConvBackMouseDown
          OnMouseUp = ButtonConvForwardMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object SBConvBack: TScrollBar
          Left = 86
          Top = 39
          Width = 132
          Height = 32
          Max = 40
          Min = 1
          Position = 10
          TabOrder = 0
          OnChange = SBConvBackChange
        end
        object SBConvForward: TScrollBar
          Left = 86
          Top = 126
          Width = 132
          Height = 32
          Max = 50
          Min = 1
          Position = 20
          TabOrder = 1
          OnChange = SBConvForwardChange
        end
        object ParamHzConvBack: TkParam
          Left = 14
          Top = 40
          Width = 66
          Height = 33
          Cursor = crDefault
          Hint = 'Speed to  back the convoyer in Hz'
          Caption = 'Hz'
          ParentColor = True
          TabOrder = 2
          Value = 10
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 28
          AsString = '10'
          AsInteger = 10
          MinValue = 1
          MaxValue = 40
          AfterSet = ParamHzConvBackAfterSet
        end
        object ParamHzConvForward: TkParam
          Left = 13
          Top = 126
          Width = 66
          Height = 33
          Cursor = crDefault
          Hint = 'Speed to drive the convoyer forward in Hz'
          Caption = 'Hz'
          ParentColor = True
          TabOrder = 3
          Value = 20
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 28
          AsString = '20'
          AsInteger = 20
          MinValue = 1
          MaxValue = 50
          AfterSet = ParamHzConvForwardAfterSet
        end
      end
    end
    object TabPush: TTabSheet
      Caption = 'Push'
      object Panel8: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 218
        Align = alClient
        BevelInner = bvLowered
        BevelWidth = 3
        BorderWidth = 3
        Caption = ' '
        TabOrder = 0
        object ButtonPushDown: TkSpeedButton
          Left = 20
          Top = 99
          Width = 162
          Height = 81
          AllowAllUp = True
          GroupIndex = 1
          Caption = 'Down'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphRight
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnClick = ButtonPushDownClick
          OnMouseDown = ButtonPushDownMouseDown
          OnMouseUp = ButtonPushDownMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonDrop: TkSpeedButton
          Left = 21
          Top = 15
          Width = 162
          Height = 79
          AllowAllUp = True
          Caption = 'Drop'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphRight
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonDropMouseDown
          OnMouseUp = ButtonDropMouseUp
          BitFileName = 'BUTTONS\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonDoPush: TkSpeedButton
          Left = 260
          Top = 100
          Width = 160
          Height = 81
          AllowAllUp = True
          Caption = 'Push'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonDoPushMouseDown
          OnMouseUp = ButtonDropMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ParamTimeDrop: TkParam
          Left = 180
          Top = 70
          Width = 65
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 0
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
        object ParamTimePushDown: TkParam
          Left = 180
          Top = 158
          Width = 65
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 1
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
        object ParamTimeDoPush: TkParam
          Left = 332
          Top = 158
          Width = 65
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 2
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
      end
    end
    object TabCut: TTabSheet
      Caption = 'Cut'
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 218
        Align = alClient
        BevelInner = bvLowered
        BevelWidth = 3
        BorderWidth = 3
        Caption = ' '
        TabOrder = 0
        object ButtonCutDown: TkSpeedButton
          Left = 34
          Top = 108
          Width = 171
          Height = 81
          AllowAllUp = True
          Caption = 'Down'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphRight
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonCutDownMouseDown
          OnMouseUp = ButtonCutUpMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonCutUp: TkSpeedButton
          Left = 42
          Top = 15
          Width = 162
          Height = 79
          AllowAllUp = True
          Caption = 'Up'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphRight
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonCutUpMouseDown
          OnMouseUp = ButtonCutUpMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonHydr: TkSpeedButton
          Left = 307
          Top = 15
          Width = 137
          Height = 116
          AllowAllUp = True
          GroupIndex = 1
          Caption = 'Hydraulic'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphTop
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnClick = ButtonHydrClick
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ParamTimeCutUp: TkParam
          Left = 229
          Top = 38
          Width = 70
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 0
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
        object ParamTimeCutDown: TkParam
          Left = 229
          Top = 132
          Width = 70
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 1
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
      end
    end
    object TabPress: TTabSheet
      Caption = 'Press'
      object Panel6: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 218
        Align = alClient
        BevelInner = bvLowered
        BevelWidth = 3
        BorderWidth = 3
        Caption = ' '
        TabOrder = 0
        object ButtonPressDown: TkSpeedButton
          Left = 19
          Top = 98
          Width = 152
          Height = 81
          AllowAllUp = True
          Caption = 'Down'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphRight
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonPressDownMouseDown
          OnMouseUp = ButtonPressUpMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonPressUp: TkSpeedButton
          Left = 19
          Top = 13
          Width = 152
          Height = 79
          AllowAllUp = True
          Caption = 'Up'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphRight
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonPressUpMouseDown
          OnMouseUp = ButtonPressUpMouseUp
          BitFileName = 'BUTTONS\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonLowerBulk: TkSpeedButton
          Left = 232
          Top = 98
          Width = 203
          Height = 81
          AllowAllUp = True
          Caption = 'Lower bulk'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonLowerBulkMouseDown
          OnMouseUp = ButtonPressUpMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonSpray: TkSpeedButton
          Left = 232
          Top = 13
          Width = 203
          Height = 81
          AllowAllUp = True
          Caption = 'Spray'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonSprayMouseDown
          OnMouseUp = ButtonPressUpMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ParamTimePressUp: TkParam
          Left = 164
          Top = 75
          Width = 65
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 0
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
        object ParamTimePressDown: TkParam
          Left = 163
          Top = 159
          Width = 65
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 1
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
        object ParamTimeLowerBulk: TkParam
          Left = 310
          Top = 159
          Width = 65
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 2
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
        object ParamTimeSpray: TkParam
          Left = 310
          Top = 75
          Width = 65
          Height = 33
          Cursor = crDefault
          Hint = 'Time to do the function'
          Caption = 's'
          ParentColor = True
          TabOrder = 3
          Desim = 2
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 15
          AsString = '0.00'
          AsInteger = 0
          MaxValue = 30
        end
      end
    end
    object TabLine: TTabSheet
      Caption = 'Line'
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 218
        Align = alClient
        BevelInner = bvLowered
        BevelWidth = 3
        BorderWidth = 3
        Caption = ' '
        TabOrder = 0
        object ButtonForward: TkSpeedButton
          Left = 251
          Top = 102
          Width = 171
          Height = 81
          AllowAllUp = True
          Caption = 'Forward'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonForwardMouseDown
          OnMouseUp = ButtonForwardMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonBack: TkSpeedButton
          Left = 251
          Top = 17
          Width = 162
          Height = 79
          AllowAllUp = True
          Caption = 'Back'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonBackMouseDown
          OnMouseUp = ButtonForwardMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object SBBack: TScrollBar
          Left = 86
          Top = 40
          Width = 132
          Height = 32
          Max = 40
          Min = 1
          Position = 10
          TabOrder = 0
          OnChange = SBBackChange
        end
        object SBForward: TScrollBar
          Left = 86
          Top = 126
          Width = 132
          Height = 32
          Max = 60
          Min = 1
          Position = 20
          TabOrder = 1
          OnChange = SBForwardChange
        end
        object ParamHzBack: TkParam
          Left = 14
          Top = 40
          Width = 66
          Height = 33
          Cursor = crDefault
          Hint = 'Speed to  back the line in Hz'
          Caption = 'Hz'
          ParentColor = True
          TabOrder = 2
          Value = 10
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 28
          AsString = '10'
          AsInteger = 10
          MinValue = 1
          MaxValue = 40
          AfterSet = ParamHzBackAfterSet
        end
        object ParamHzForward: TkParam
          Left = 13
          Top = 126
          Width = 66
          Height = 33
          Cursor = crDefault
          Hint = 'Speed to drive the line forward in Hz'
          Caption = 'Hz'
          ParentColor = True
          TabOrder = 3
          Value = 20
          LAlign = alRight
          LAlignment = taRightJustify
          LabelWidth = 28
          AsString = '20'
          AsInteger = 20
          MinValue = 1
          MaxValue = 60
          AfterSet = ParamHzForwardAfterSet
        end
      end
    end
    object TabRearCat: TTabSheet
      Caption = 'Rear cut'
      object Panel7: TPanel
        Left = 0
        Top = 0
        Width = 456
        Height = 218
        Align = alClient
        BevelInner = bvLowered
        BevelWidth = 3
        BorderWidth = 3
        Caption = ' '
        TabOrder = 0
        object ButtonRearCutHome: TkSpeedButton
          Left = 21
          Top = 56
          Width = 171
          Height = 81
          AllowAllUp = True
          Caption = 'Home'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Layout = blGlyphRight
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnMouseDown = ButtonRearCutHomeMouseDown
          OnMouseUp = ButtonRearCutHomeMouseUp
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
        object ButtonRearCut: TkSpeedButton
          Left = 230
          Top = 55
          Width = 190
          Height = 81
          AllowAllUp = True
          Caption = 'Cut'
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          Margin = 1
          NumGlyphs = 4
          ParentFont = False
          Spacing = 10
          OnClick = ButtonRearCutClick
          BitFileName = 'buttons\napits.bmp'
          IniSection = 'Buttons'
        end
      end
    end
  end
  object PanelButton: TPanel
    Left = 464
    Top = 0
    Width = 115
    Height = 268
    Align = alRight
    BevelInner = bvLowered
    BevelWidth = 3
    BorderWidth = 4
    Caption = ' '
    TabOrder = 1
    object ButtonClose: TButton
      Left = 14
      Top = 196
      Width = 86
      Height = 41
      Caption = '&Close'
      TabOrder = 0
      OnClick = ButtonCloseClick
    end
    object CheckBoxUseTimings: TkCheckBox
      Left = 15
      Top = 23
      Width = 79
      Height = 37
      Caption = 'Use Timings'
      TabOrder = 1
      OnClick = CheckBoxUseTimingsClick
    end
  end
  object SavePos1: TSavePos
    IniSection = 'Pos'
    Left = 411
    Top = 2
  end
  object TimerUp: TTimer
    Enabled = False
    OnTimer = TimerUpTimer
    Left = 394
    Top = 1
  end
end
