object MainWin: TMainWin
  Left = 281
  Top = 884
  Width = 795
  Height = 580
  HorzScrollBar.Range = 593
  VertScrollBar.Range = 473
  ActiveControl = CardGrid
  Caption = 'MythTV Setup'
  Color = clBackground
  Visible = True
  WindowState = wsMinimized
  OnCreate = FormCreate
  PixelsPerInch = 100
  TextHeight = 17
  TextWidth = 7
  object CardGrid: TDBGrid
    Left = 16
    Top = 241
    Width = 425
    Height = 120
    DataSource = CardDataSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 15
    TitleFont.Name = 'Helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    OnDblClick = CardEditActionExecute
    Columns = <
      item
        Expanded = False
        FieldName = 'cardtype'
        Title.Caption = 'Type'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'videodevice'
        Title.Caption = 'Video device'
        Width = 160
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'hostname'
        Title.Caption = 'Hostname'
        Width = 160
        Visible = True
      end>
  end
  object SourceGrid: TDBGrid
    Left = 16
    Top = 64
    Width = 425
    Height = 120
    DataSource = SourceDataSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = 15
    TitleFont.Name = 'Helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    OnDblClick = SourceEditActionExecute
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = 'Name'
        Width = 500
        Visible = True
      end>
  end
  object Label1: TLabel
    Left = 16
    Top = 216
    Width = 53
    Height = 17
    Caption = 'TV card'
  end
  object Label2: TLabel
    Left = 16
    Top = 40
    Width = 102
    Height = 17
    Caption = 'Channel source'
  end
  object SourceEditButton: TButton
    HelpType = htContext
    Left = 544
    Top = 64
    Width = 49
    Height = 49
    Action = SourceEditAction
    Caption = 'Edit...'
    TabOrder = 4
  end
  object CardEditButton: TButton
    HelpType = htContext
    Left = 544
    Top = 240
    Width = 49
    Height = 49
    Action = CardEditAction
    Caption = 'Edit...'
    TabOrder = 5
  end
  object SourceInsertButton: TButton
    HelpType = htContext
    Left = 448
    Top = 64
    Width = 49
    Height = 49
    Action = SourceInsertAction
    Caption = '+'
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object CardInsertButton: TButton
    HelpType = htContext
    Left = 448
    Top = 240
    Width = 49
    Height = 49
    Action = CardInsertAction
    Caption = '+'
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object SourceDeleteButton: TButton
    HelpType = htContext
    Left = 496
    Top = 64
    Width = 49
    Height = 49
    Action = SourceDeleteAction
    Caption = '-'
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
  end
  object CardDeleteButton: TButton
    HelpType = htContext
    Left = 496
    Top = 240
    Width = 49
    Height = 49
    Action = CardDeleteAction
    Caption = '-'
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
  end
  object SettingsOpenButton: TButton
    HelpType = htContext
    Left = 448
    Top = 432
    Width = 145
    Height = 41
    Action = SettingsOpenAction
    Caption = 'Base settings...'
    TabOrder = 10
  end
  object CardDataSource: TDataSource
    AutoEdit = False
    DataSet = CardDataSet
    Left = 480
    Top = 208
  end
  object SourceDataSource: TDataSource
    AutoEdit = False
    DataSet = SourceDataSet
    Left = 480
    Top = 32
  end
  object ActionList1: TActionList
    Left = 608
    Top = 48
    object SourceEditAction: TAction
      Caption = 'SourceEditAction'
      OnExecute = SourceEditActionExecute
    end
    object CardEditAction: TAction
      Caption = 'CardEditAction'
      OnExecute = CardEditActionExecute
    end
    object SourceInsertAction: TAction
      Caption = 'SourceInsertAction'
      OnExecute = SourceInsertActionExecute
    end
    object CardInsertAction: TAction
      Caption = 'CardInsertAction'
      OnExecute = CardInsertActionExecute
    end
    object SourceDeleteAction: TAction
      Caption = 'SourceDeleteAction'
      OnExecute = SourceDeleteActionExecute
    end
    object CardDeleteAction: TAction
      Caption = 'CardDeleteAction'
      OnExecute = CardDeleteActionExecute
    end
    object SettingsOpenAction: TAction
      OnExecute = SettingsOpenActionExecute
    end
    object Action1: TAction
      Caption = 'Action1'
    end
  end
  object SourceDataSet: TSQLClientDataSet
    CommandText = 'videosource'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    CommandType = ctTable
    DBConnection = SQLModule.Conn
    Left = 448
    Top = 32
  end
  object CardDataSet: TSQLClientDataSet
    CommandText = 'capturecard'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    CommandType = ctTable
    DBConnection = SQLModule.Conn
    Left = 448
    Top = 208
  end
end
