guimixerline.dfm

一整套声音录制控件

object frmMixerLine: TfrmMixerLine
  Left = 400
  Top = 0
  AutoSize = True
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'frmMixerLine'
  ClientHeight = 255
  ClientWidth = 115
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    115
    255)
  PixelsPerInch = 96
  TextHeight = 13
  object pnlName: TPanel
    Left = 0
    Top = 0
    Width = 54
    Height = 20
    Alignment = taLeftJustify
    AutoSize = True
    BevelInner = bvLowered
    Color = clWindow
    Constraints.MinWidth = 50
    TabOrder = 0
    object lblName: TLabel
      Left = 2
      Top = 2
      Width = 50
      Height = 16
      Caption = 'lblName'
      Constraints.MinWidth = 50
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
  end
  object trbVolume: TTrackBar
    Left = 0
    Top = 20
    Width = 50
    Height = 218
    Anchors = [akLeft, akTop, akBottom]
    Max = 100
    Orientation = trVertical
    Frequency = 17
    Position = 50
    SelEnd = 0
    SelStart = 0
    TabOrder = 1
    TickMarks = tmBoth
    TickStyle = tsAuto
    Visible = False
    OnChange = trbVolumeChange
  end
  object pnlBottum: TPanel
    Left = 0
    Top = 238
    Width = 50
    Height = 17
    AutoSize = True
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      50
      17)
    object cbxMute: TCheckBox
      Left = 0
      Top = 0
      Width = 50
      Height = 17
      Anchors = [akLeft, akBottom]
      Caption = 'Mute'
      TabOrder = 0
      Visible = False
      OnClick = cbxMuteClick
    end
    object cbxSelect: TCheckBox
      Left = 0
      Top = 0
      Width = 48
      Height = 17
      Anchors = [akLeft, akBottom]
      Caption = 'Select'
      TabOrder = 1
      Visible = False
      OnClick = cbxSelectClick
    end
  end
end