config.dfm

Some source code for creating a media player in delphi

object FormConfig: TFormConfig
  Left = 648
  Top = 157
  BorderStyle = bsDialog
  Caption = 'Config'
  ClientHeight = 303
  ClientWidth = 343
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 329
    Height = 105
    Caption = 'Device'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 32
      Height = 13
      Caption = 'Output'
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 28
      Height = 13
      Caption = 'Buffer'
    end
    object Label3: TLabel
      Left = 200
      Top = 56
      Width = 31
      Height = 13
      Caption = 'Priority'
    end
    object Label4: TLabel
      Left = 104
      Top = 56
      Width = 50
      Height = 13
      Caption = 'Frequency'
    end
    object ComboDevice: TComboBox
      Left = 8
      Top = 32
      Width = 305
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboDeviceChange
    end
    object BuffComboBox: TComboBox
      Left = 8
      Top = 72
      Width = 89
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      OnChange = BuffComboBoxChange
      Items.Strings = (
        '150 ms'
        '300 ms'
        '500 ms'
        '750 ms'
        '1 s'
        '1,5 s'
        '2 s')
    end
    object ComboFreq: TComboBox
      Left = 104
      Top = 72
      Width = 89
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
      OnChange = ComboFreqChange
      Items.Strings = (
        '96kHz'
        '48kHz'
        '44.1kHz'
        '22.05kHz'
        '11.025kHz')
    end
    object PriorityComboBox: TComboBox
      Left = 200
      Top = 72
      Width = 113
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      OnChange = PriorityComboBoxChange
      Items.Strings = (
        'HIGHEST'
        'IDLE'
        'NORMAL'
        'CRITICAL')
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 120
    Width = 329
    Height = 89
    Caption = 'General'
    TabOrder = 1
    object InvTimeCheckBox: TCheckBox
      Left = 16
      Top = 16
      Width = 97
      Height = 17
      Caption = 'Invert Time'
      TabOrder = 0
    end
    object NumPLCheckBox: TCheckBox
      Left = 16
      Top = 40
      Width = 137
      Height = 17
      Caption = 'Numbers in playlist'
      TabOrder = 1
      OnClick = NumPLCheckBoxClick
    end
    object PLClearCheck: TCheckBox
      Left = 16
      Top = 64
      Width = 153
      Height = 17
      Caption = 'Clear playlist on open'
      TabOrder = 2
    end
    object MoveCheck: TCheckBox
      Left = 176
      Top = 16
      Width = 97
      Height = 17
      Caption = 'Move all'
      TabOrder = 3
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 216
    Width = 257
    Height = 81
    Caption = 'Visualization'
    TabOrder = 2
    object Bevel1: TBevel
      Left = 80
      Top = 12
      Width = 169
      Height = 62
      Shape = bsFrame
    end
    object LabelFrames: TLabel
      Left = 92
      Top = 16
      Width = 123
      Height = 13
      Caption = 'Frame per second (30 fps)'
    end
    object Label5: TLabel
      Left = 96
      Top = 56
      Width = 23
      Height = 13
      Caption = 'Slow'
    end
    object Label6: TLabel
      Left = 216
      Top = 56
      Width = 20
      Height = 13
      Caption = 'Fast'
    end
    object NoneDrawCheck: TRadioButton
      Left = 16
      Top = 16
      Width = 57
      Height = 17
      Caption = 'None'
      TabOrder = 0
    end
    object WaveDrawCheck: TRadioButton
      Left = 16
      Top = 36
      Width = 57
      Height = 17
      Caption = 'Wave'
      Checked = True
      TabOrder = 1
      TabStop = True
    end
    object FpsBar: TTrackBar
      Left = 88
      Top = 32
      Width = 153
      Height = 25
      Max = 4
      Orientation = trHorizontal
      Frequency = 1
      Position = 2
      SelEnd = 0
      SelStart = 0
      TabOrder = 2
      ThumbLength = 10
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = FpsBarChange
    end
    object FFTDrawCheck: TRadioButton
      Left = 16
      Top = 56
      Width = 57
      Height = 17
      Caption = 'FFT'
      TabOrder = 3
    end
  end
  object BtnClose: TButton
    Left = 272
    Top = 224
    Width = 67
    Height = 25
    Caption = '&Close'
    TabOrder = 3
    OnClick = BtnCloseClick
  end
end