object Main: TMain
  Left = 627
  Height = 765
  Top = 142
  Width = 854
  HorzScrollBar.Page = 770
  VertScrollBar.Page = 496
  Caption = 'Test Sound Source Allocation'
  ClientHeight = 765
  ClientWidth = 854
  DesignTimePPI = 140
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poDesktopCenter
  LCLVersion = '1.9.0.0'
  object PanelLists: TPanel
    AnchorSideTop.Control = PanelSourcePlaying
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 355
    Top = 409
    Width = 835
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Top = 8
    ClientHeight = 355
    ClientWidth = 835
    TabOrder = 0
    object Label2: TLabel
      Left = 4
      Height = 27
      Top = 0
      Width = 223
      Caption = 'Allocated Sound Sources'
      ParentColor = False
    end
    object ListAllocatedSources: TListBox
      Left = 8
      Height = 308
      Top = 32
      Width = 811
      Anchors = [akTop, akLeft, akRight, akBottom]
      ItemHeight = 0
      ScrollWidth = 809
      TabOrder = 0
      TopIndex = -1
    end
    object CheckKeepRefreshingUsed: TCheckBox
      AnchorSideLeft.Control = ListAllocatedSources
      AnchorSideLeft.Side = asrBottom
      Left = 516
      Height = 31
      Top = 0
      Width = 303
      Anchors = [akTop, akRight]
      BorderSpacing.Left = 10
      Caption = 'Automatically Keep Refreshing'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
  end
  object PanelAllocatorLimits: TPanel
    AnchorSideTop.Control = LabelDescription
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 79
    Top = 184
    Width = 835
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    ClientHeight = 79
    ClientWidth = 835
    TabOrder = 1
    object LabelMaxAllocatedSources: TLabel
      Left = 1
      Height = 27
      Top = 41
      Width = 211
      Caption = 'Max allocated sources :'
      ParentColor = False
    end
    object LabelMinAllocatedSources: TLabel
      Left = 4
      Height = 27
      Top = 1
      Width = 207
      Caption = 'Min allocated sources :'
      ParentColor = False
    end
    object ButtonApplyAllocatorLimits: TButton
      AnchorSideLeft.Control = SpinEditMaxAllocatedSources
      AnchorSideLeft.Side = asrBottom
      Left = 270
      Height = 47
      Top = 31
      Width = 305
      AutoSize = True
      BorderSpacing.Left = 8
      BorderSpacing.InnerBorder = 4
      Caption = 'Set Min / Max allocated sources'
      OnClick = ButtonApplyAllocatorLimitsClick
      TabOrder = 0
    end
    object SpinEditMaxAllocatedSources: TSpinEdit
      AnchorSideLeft.Control = LabelMaxAllocatedSources
      AnchorSideLeft.Side = asrBottom
      Left = 212
      Height = 37
      Top = 41
      Width = 50
      MaxValue = 1000
      MinValue = 1
      TabOrder = 1
      Value = 6
    end
    object SpinEditMinAllocatedSources: TSpinEdit
      AnchorSideLeft.Control = LabelMinAllocatedSources
      AnchorSideLeft.Side = asrBottom
      Left = 211
      Height = 37
      Top = 1
      Width = 50
      MaxValue = 1000
      MinValue = 1
      TabOrder = 2
      Value = 4
    end
  end
  object PanelSourcePlaying: TPanel
    AnchorSideTop.Control = PanelAllocatorLimits
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 138
    Top = 263
    Width = 835
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.InnerBorder = 5
    ClientHeight = 138
    ClientWidth = 835
    TabOrder = 2
    object LabelSourceImportance: TLabel
      Left = 6
      Height = 27
      Top = 13
      Width = 182
      BorderSpacing.Left = 5
      Caption = 'Source importance :'
      ParentColor = False
    end
    object Label3: TLabel
      AnchorSideTop.Control = FileNameEditSound
      AnchorSideTop.Side = asrCenter
      Left = 6
      Height = 27
      Top = 48
      Width = 152
      Caption = 'Sound filename :'
      ParentColor = False
    end
    object FileNameEditSound: TFileNameEdit
      AnchorSideLeft.Control = Label3
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = SpinEditSourceImportance
      AnchorSideTop.Side = asrBottom
      Left = 158
      Height = 37
      Top = 43
      Width = 288
      FileName = 'tone.wav'
      DialogOptions = []
      Filter = 'WAV files (*.wav)|*.wav|All files (*)|*'
      FilterIndex = 0
      HideDirectories = False
      ButtonWidth = 23
      NumGlyphs = 1
      MaxLength = 0
      TabOrder = 0
      Text = 'tone.wav'
    end
    object SpinEditSourceImportance: TSpinEdit
      AnchorSideLeft.Control = LabelSourceImportance
      AnchorSideLeft.Side = asrBottom
      Left = 188
      Height = 37
      Top = 6
      Width = 50
      BorderSpacing.Top = 5
      MaxValue = 1000
      MinValue = -1000
      TabOrder = 1
    end
    object ButtonAllocateAndPlay: TButton
      AnchorSideTop.Control = FileNameEditSound
      AnchorSideTop.Side = asrBottom
      Left = 6
      Height = 47
      Top = 80
      Width = 121
      AutoSize = True
      BorderSpacing.InnerBorder = 4
      Caption = 'Play Sound'
      OnClick = ButtonAllocateAndPlayClick
      TabOrder = 2
    end
    object CheckBoxPlayLooping: TCheckBox
      AnchorSideLeft.Control = SpinEditSourceImportance
      AnchorSideLeft.Side = asrBottom
      Left = 246
      Height = 31
      Top = 6
      Width = 137
      BorderSpacing.Left = 8
      Caption = 'Play looping'
      TabOrder = 3
    end
  end
  object LabelDescription: TLabel
    AnchorSideTop.Control = LabelTitle
    AnchorSideTop.Side = asrBottom
    Left = 8
    Height = 147
    Top = 37
    Width = 832
    AutoSize = False
    Caption = 'Press "Play sound" a couple of times, and note that multiple sound sources will be intelligently allocated.'#10'- The sources are managed based on their Importance.  When there are no more free slots, the least important sound is released.'#10'- Test with your own, longer sounds too, so that you can see many sounds playing at once.'
    ParentColor = False
    WordWrap = True
  end
  object LabelTitle: TLabel
    Left = 8
    Height = 27
    Top = 10
    Width = 271
    Caption = 'Test Sound Source Allocation'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object TimerToDisplaySounds: TTimer
    Enabled = False
    Interval = 10
    OnTimer = TimerToDisplaySoundsTimer
    Left = 744
    Top = 280
  end
  object ApplicationProperties1: TApplicationProperties
    Left = 656
    Top = 320
  end
  object TimerToRefreshUsedSounds: TTimer
    Interval = 1
    OnTimer = TimerToRefreshUsedSoundsTimer
    Left = 560
    Top = 286
  end
end
