object Main: TMain
  Left = 220
  Top = 132
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = 'Main'
  ClientHeight = 436
  ClientWidth = 640
  Color = clBtnFace
  Font.Charset = SHIFTJIS_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  OnMouseWheelDown = FileGridMouseWheelDown
  OnMouseWheelUp = FileGridMouseWheelUp
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object NetPrgImg: TImage
    Left = 16
    Top = 220
    Width = 400
    Height = 64
  end
  object MuteCheckImage: TImage
    Left = 347
    Top = 196
    Width = 288
    Height = 97
    OnMouseDown = MuteCheckImageMouseDown
  end
  object VolumeBarImg: TImage
    Left = 299
    Top = 46
    Width = 64
    Height = 16
    OnMouseDown = VolumeBarImgMouseDown
    OnMouseMove = VolumeBarImgMouseMove
  end
  object TempoBarImg: TImage
    Left = 299
    Top = 80
    Width = 64
    Height = 16
    OnMouseDown = TempoBarImgMouseDown
    OnMouseMove = TempoBarImgMouseMove
    OnMouseUp = TempoBarImgMouseUp
  end
  object TitleBarImg: TImage
    Left = 2
    Top = 2
    Width = 636
    Height = 16
    AutoSize = True
    OnDblClick = TitleBarImgDblClick
    OnMouseDown = TitleBarImgMouseDown
    OnMouseMove = TitleBarImgMouseMove
    OnMouseUp = TitleBarImgMouseUp
  end
  object SeekBarImg: TImage
    Left = 2
    Top = 318
    Width = 636
    Height = 16
    OnMouseUp = SeekBarImgMouseUp
  end
  object _SpeFlame: TShape
    Left = 293
    Top = 112
    Width = 50
    Height = 89
    Brush.Style = bsClear
    Visible = False
  end
  object SpeBarLbl: TLabel
    Left = 295
    Top = 132
    Width = 46
    Height = 10
    Alignment = taCenter
    AutoSize = False
    Caption = 'Bar'
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnClick = SpeBarLblClick
  end
  object SpeScrLbl: TLabel
    Left = 295
    Top = 148
    Width = 46
    Height = 11
    Alignment = taCenter
    AutoSize = False
    Caption = 'Scroll'
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnClick = SpeScrLblClick
  end
  object SpeLineLbl: TLabel
    Left = 295
    Top = 164
    Width = 46
    Height = 11
    Alignment = taCenter
    AutoSize = False
    Caption = 'Line'
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnClick = SpeLineLblClick
  end
  object SpeWaveLbl: TLabel
    Left = 295
    Top = 117
    Width = 46
    Height = 10
    Alignment = taCenter
    AutoSize = False
    Caption = 'Wave'
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnClick = SpeWaveLblClick
  end
  object MusicTitleImg: TImage
    Left = 75
    Top = 298
    Width = 560
    Height = 18
    OnClick = MusicTitleImgClick
  end
  object SpeVisSetLbl: TLabel
    Left = 296
    Top = 180
    Width = 45
    Height = 11
    Alignment = taCenter
    AutoSize = False
    Caption = 'VisSet'
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnClick = SpeVisSetLblClick
  end
  object FileGridImg: TImage
    Left = 616
    Top = 336
    Width = 17
    Height = 72
  end
  object FuncImg: TImage
    Left = 0
    Top = 416
    Width = 65
    Height = 17
  end
  object CompactImg: TImage
    Left = 0
    Top = 19
    Width = 640
    Height = 24
  end
  object FileGrid: TStringGrid
    Left = 2
    Top = 336
    Width = 607
    Height = 73
    BorderStyle = bsNone
    Color = clBlack
    ColCount = 1
    DefaultDrawing = False
    FixedCols = 0
    RowCount = 2
    FixedRows = 0
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #65325#65331' '#12468#12471#12483#12463
    Font.Style = []
    GridLineWidth = 0
    Options = [goRowSelect, goThumbTracking]
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    OnDblClick = FileGridDblClick
    OnDragOver = FileGridDragOver
    OnDrawCell = FileGridDrawCell
    OnEndDrag = FileGridEndDrag
    OnMouseDown = FileGridMouseDown
    OnMouseUp = FileGridMouseUp
    OnMouseWheelDown = FileGridMouseWheelDown
    OnMouseWheelUp = FileGridMouseWheelUp
    OnStartDrag = FileGridStartDrag
    RowHeights = (
      24
      24)
  end
  object InfomationTimer: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = InfomationTimerTimer
    Left = 40
    Top = 40
  end
  object FileGridTimer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = FileGridTimerTimer
    Left = 8
    Top = 72
  end
  object RewriteTimer: TTimer
    Enabled = False
    Interval = 8
    OnTimer = RewriteTimerTimer
    Left = 72
    Top = 40
  end
  object DragTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = DragTimerTimer
    Left = 72
    Top = 72
  end
  object IdTCPServer: TIdTCPServer
    Bindings = <>
    CommandHandlers = <
      item
        CmdDelimiter = ' '
        Command = 'GETVERSION'
        Disconnect = False
        Name = 'CmdHnd_GETVERSION'
        OnCommand = IdTCPServerCmdHnd_GETVERSIONCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'LOGIN'
        Disconnect = False
        Name = 'CmdHnd_LOGIN'
        OnCommand = IdTCPServerCmdHnd_LOGINCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'LOGOUT'
        Disconnect = True
        Name = 'CmdHnd_LOGOUT'
        OnCommand = IdTCPServerCmdHnd_LOGOUTCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'GETSTATUS'
        Disconnect = False
        Name = 'CmdHnd_GETSTATUS'
        OnCommand = IdTCPServerCmdHnd_GETSTATUSCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'CHDRV'
        Disconnect = False
        Name = 'CmdHnd_CHDRV'
        OnCommand = IdTCPServerCmdHnd_CHDRVCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'CHDIR'
        Disconnect = False
        Name = 'CmdHnd_CHDIR'
        OnCommand = IdTCPServerCmdHnd_CHDIRCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'EXECUTE'
        Disconnect = False
        Name = 'CmdHnd_EXECUTE'
        OnCommand = IdTCPServerCmdHnd_EXECUTECommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'GETDIR'
        Disconnect = False
        Name = 'CmdHnd_GETDIR'
        OnCommand = IdTCPServerCmdHnd_GETDIRCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'SETSEEK'
        Disconnect = False
        Name = 'CmdHnd_SETSEEK'
        OnCommand = IdTCPServerCmdHnd_SETSEEKCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'PLAY'
        Disconnect = False
        Name = 'CmdHnd_PLAY'
        OnCommand = IdTCPServerCmdHnd_PLAYCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'SETTOTALVOLUME'
        Disconnect = False
        Name = 'CmdHnd_SETTOTALVOLUME'
        OnCommand = IdTCPServerCmdHnd_SETTOTALVOLUMECommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'SETTRANSTEMPO'
        Disconnect = False
        Name = 'CmdHnd_SETTRANSTEMPO'
        OnCommand = IdTCPServerCmdHnd_SETTRANSTEMPOCommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end
      item
        CmdDelimiter = ' '
        Command = 'SETPLAYMODE'
        Disconnect = False
        Name = 'CmdHnd_SETPLAYMODE'
        OnCommand = IdTCPServerCmdHnd_SETPLAYMODECommand
        ParamDelimiter = ' '
        ParseParams = False
        ReplyExceptionCode = 0
        ReplyNormal.NumericCode = 0
        Tag = 0
      end>
    DefaultPort = 9999
    Greeting.NumericCode = 200
    Greeting.Text.Strings = (
      'OK')
    Greeting.TextCode = '200'
    MaxConnectionReply.NumericCode = 500
    MaxConnectionReply.Text.Strings = (
      'Internal Server Error')
    MaxConnectionReply.TextCode = '500'
    MaxConnections = 1
    OnConnect = IdTCPServerConnect
    OnDisconnect = IdTCPServerDisconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 400
    ReplyUnknownCommand.Text.Strings = (
      'Bad Request')
    ReplyUnknownCommand.TextCode = '400'
    TerminateWaitTime = 500
    Left = 40
    Top = 104
  end
  object NetStatusTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = NetStatusTimerTimer
    Left = 104
    Top = 40
  end
  object NextTimerFromPCMOut: TTimer
    Enabled = False
    Interval = 1
    OnTimer = NextTimerFromPCMOutTimer
    Left = 40
    Top = 72
  end
  object DriveMenu: TPopupMenu
    AutoHotkeys = maManual
    Left = 8
    Top = 104
    object DriveMenu_Set: TMenuItem
      Caption = #35469#35672#12373#12428#12383#12489#12521#12452#12502
    end
    object DriveMenu_All: TMenuItem
      Caption = #20840#12390#12398#12489#12521#12452#12502
    end
    object DriveMenu_RegUser: TMenuItem
      Caption = #29694#22312#12398#12497#12473#12434#30331#37682
    end
    object DriveMenu_UnregUser: TMenuItem
      Caption = #30331#37682#12375#12383#12497#12473#12434#21066#38500
    end
    object DriveMenu_EditUser: TMenuItem
      Caption = #12518#12540#12470#12540#23450#32681#12497#12473#32232#38598
    end
  end
  object BootED1Timer: TTimer
    Enabled = False
    OnTimer = BootED1TimerTimer
    Left = 104
    Top = 72
  end
  object SKIOpenDlg: TOpenDialog
    OnClose = SKIOpenDlgClose
    OnShow = SKIOpenDlgShow
    DefaultExt = 'ski'
    Filter = 'SimpleSkin Setting (*.ski)|*.ski'
    Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = #22793#26356#12377#12427#12473#12461#12531#12501#12449#12452#12523#12398#35373#23450#12501#12449#12452#12523#12434#25351#23450#12375#12390#12367#12384#12373#12356#12290
    OnSelectionChange = SKIOpenDlgSelectionChange
    Left = 72
    Top = 104
  end
end
