Mercurial > hg > hv

object SFDemoForm: TSFDemoForm
  Left = 178
  Top = 92
  Caption = 'Source-filter modelling demo'
  ClientHeight = 622
  ClientWidth = 879
  Color = cl3DDkShadow
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 369
    Top = 0
    Height = 622
    Beveled = True
    ExplicitTop = -2
    ExplicitHeight = 605
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 369
    Height = 622
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel1'
    Color = cl3DDkShadow
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    OnResize = Panel1Resize
    object Splitter1: TSplitter
      Left = 0
      Top = 171
      Width = 369
      Height = 3
      Cursor = crVSplit
      Align = alTop
      Beveled = True
      ExplicitLeft = 1
      ExplicitTop = 168
    end
    object Splitter5: TSplitter
      Left = 0
      Top = 338
      Width = 369
      Height = 3
      Cursor = crVSplit
      Align = alTop
      ExplicitTop = 361
      ExplicitWidth = 239
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 369
      Height = 171
      Align = alTop
      BevelOuter = bvNone
      Color = cl3DDkShadow
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 0
      Top = 174
      Width = 369
      Height = 164
      Align = alTop
      BevelOuter = bvNone
      Color = cl3DDkShadow
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 1
    end
    object PanelControl: TPanel
      Left = 0
      Top = 341
      Width = 369
      Height = 281
      Align = alClient
      Color = cl3DDkShadow
      TabOrder = 2
      ExplicitLeft = 1
      ExplicitTop = 344
      DesignSize = (
        369
        281)
      object Splitter4: TSplitter
        Left = 1
        Top = 81
        Width = 367
        Height = 3
        Cursor = crVSplit
        Align = alTop
        ExplicitTop = 42
        ExplicitWidth = 215
      end
      object Splitter6: TSplitter
        Left = 1
        Top = 162
        Width = 367
        Height = 3
        Cursor = crVSplit
        Align = alTop
        ExplicitLeft = 3
        ExplicitTop = 173
      end
      object Label1: TLabel
        Left = 218
        Top = 171
        Width = 87
        Height = 13
        Caption = 'Source-filter model'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clSilver
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object MethodListBox: TListBox
        Left = 218
        Top = 187
        Width = 49
        Height = 63
        Anchors = [akLeft, akBottom]
        Ctl3D = True
        ItemHeight = 13
        Items.Strings = (
          'FB'
          'SV')
        ParentCtl3D = False
        TabOrder = 0
        OnClick = MethodListBoxClick
      end
      object FEdit: TEdit
        Left = 266
        Top = 187
        Width = 49
        Height = 21
        Anchors = [akLeft, akBottom]
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        Text = '400'
      end
      object FScaleCombo: TComboBox
        Left = 266
        Top = 208
        Width = 49
        Height = 21
        BevelInner = bvNone
        BevelOuter = bvNone
        Anchors = [akLeft, akBottom]
        Ctl3D = True
        ItemHeight = 13
        ItemIndex = 0
        ParentCtl3D = False
        TabOrder = 2
        Text = 'Hz'
        Items.Strings = (
          'Hz'
          'mel')
      end
      object ThetaEdit: TEdit
        Left = 266
        Top = 229
        Width = 49
        Height = 21
        Anchors = [akLeft, akBottom]
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 3
        Text = '0.5'
      end
      object Panel7: TPanel
        Left = 1
        Top = 1
        Width = 367
        Height = 80
        Align = alTop
        Color = cl3DDkShadow
        TabOrder = 4
        OnResize = Panel7Resize
        object Image0: TImage
          Left = 1
          Top = 1
          Width = 365
          Height = 78
          Align = alClient
          OnMouseDown = AImage1MouseDown
          OnMouseMove = Image1MouseMove
          OnMouseUp = AImage1MouseUp
          ExplicitWidth = 368
        end
      end
      object Panel8: TPanel
        Left = 1
        Top = 84
        Width = 367
        Height = 78
        Align = alTop
        Color = cl3DDkShadow
        TabOrder = 5
        OnResize = Panel8Resize
        object Image1: TImage
          Left = 1
          Top = 1
          Width = 365
          Height = 76
          Align = alClient
          OnMouseDown = AImage1MouseDown
          OnMouseMove = Image1MouseMove
          OnMouseUp = AImage1MouseUp
          ExplicitLeft = -31
          ExplicitTop = 41
        end
      end
      object CheckBox1: TCheckBox
        Left = 218
        Top = 256
        Width = 105
        Height = 17
        Hint = 'looped play'
        Anchors = [akRight, akBottom]
        Caption = 'Looped playback'
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clSilver
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 6
        OnClick = CheckBox1Click
      end
      object TrackBar1: TTrackBar
        Left = 13
        Top = 223
        Width = 126
        Height = 11
        Hint = 'depth'
        Max = 20
        Position = 10
        TabOrder = 7
        OnChange = UseButtonClick
      end
      object ComboBox1: TComboBox
        Left = 19
        Top = 192
        Width = 113
        Height = 21
        Anchors = [akLeft, akBottom]
        ItemHeight = 13
        ItemIndex = 2
        TabOrder = 8
        Text = 'Source and filter'
        Items.Strings = (
          'Source'
          'Filter'
          'Source and filter'
          'Towards'
          'Towards and back')
      end
      object SaveButton: TButton
        Left = 138
        Top = 192
        Width = 39
        Height = 16
        Anchors = [akLeft, akBottom]
        Caption = 'Save'
        TabOrder = 9
        OnClick = SaveButtonClick
      end
      object UseButton: TButton
        Left = 138
        Top = 207
        Width = 39
        Height = 17
        Anchors = [akLeft, akBottom]
        Caption = 'Use'
        TabOrder = 10
        OnClick = UseButtonClick
      end
      object TrackBar2: TTrackBar
        Left = 13
        Top = 242
        Width = 126
        Height = 12
        Hint = 'gain'
        Max = 100
        Position = 50
        TabOrder = 11
        OnChange = UseButtonClick
      end
    end
  end
  object Panel4: TPanel
    Left = 372
    Top = 0
    Width = 507
    Height = 622
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel4'
    Color = cl3DDkShadow
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    OnResize = Panel4Resize
    object Splitter3: TSplitter
      Left = 0
      Top = 61
      Width = 507
      Height = 3
      Cursor = crVSplit
      Align = alTop
      Beveled = True
      ExplicitTop = 385
      ExplicitWidth = 533
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 507
      Height = 61
      Align = alTop
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Color = cl3DDkShadow
      Ctl3D = True
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 0
      DesignSize = (
        507
        61)
      object updbEdit: TEdit
        Left = 8
        Top = 8
        Width = 41
        Height = 21
        TabOrder = 0
        Text = '100'
        OnKeyPress = fmaxEditKeyPress
      end
      object downdbEdit: TEdit
        Left = 8
        Top = 32
        Width = 41
        Height = 21
        TabOrder = 1
        Text = '-60'
        OnKeyPress = fmaxEditKeyPress
      end
      object FShiftdBEdit: TEdit
        Left = 55
        Top = 8
        Width = 34
        Height = 21
        TabOrder = 2
        Text = '0'
        OnKeyPress = fmaxEditKeyPress
      end
      object fmaxEdit: TEdit
        Left = 456
        Top = 8
        Width = 41
        Height = 21
        Anchors = [akTop, akRight]
        TabOrder = 3
        Text = '0.25'
        OnKeyPress = fmaxEditKeyPress
      end
      object SFPicShift: TEdit
        Left = 56
        Top = 32
        Width = 33
        Height = 21
        TabOrder = 4
        Text = '-40'
        OnKeyPress = fmaxEditKeyPress
      end
      object TmplListBox: TListBox
        Left = 96
        Top = 8
        Width = 145
        Height = 49
        ItemHeight = 13
        TabOrder = 5
      end
      object Button1: TButton
        Left = 456
        Top = 32
        Width = 41
        Height = 21
        Caption = '>>'
        TabOrder = 6
        OnClick = Button1Click
      end
    end
    object Panel10: TPanel
      Left = 0
      Top = 64
      Width = 507
      Height = 558
      Align = alClient
      BevelOuter = bvNone
      Color = cl3DDkShadow
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        507
        558)
      object Label13: TLabel
        Left = 0
        Top = 541
        Width = 3
        Height = 13
        Anchors = [akLeft, akBottom]
        ExplicitTop = 208
      end
      object PageControl1: TPageControl
        Left = 0
        Top = 0
        Width = 507
        Height = 539
        ActivePage = AmpOverSheet
        Align = alTop
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 0
        OnChange = PageControl1Change
        object AmpOverSheet: TTabSheet
          Caption = 'Amplitudes: Overall'
          ImageIndex = 2
          OnResize = AmpOverSheetResize
          object Splitter7: TSplitter
            Left = 0
            Top = 273
            Width = 499
            Height = 3
            Cursor = crVSplit
            Align = alTop
            OnMoved = Splitter7Moved
            ExplicitTop = 193
            ExplicitWidth = 298
          end
          object Panel9: TPanel
            Left = 0
            Top = 0
            Width = 499
            Height = 273
            Align = alTop
            BevelOuter = bvNone
            Caption = 'Panel9'
            Color = cl3DDkShadow
            TabOrder = 0
            DesignSize = (
              499
              273)
            object Label7: TLabel
              Left = -1
              Top = 4
              Width = 493
              Height = 9
              Alignment = taCenter
              Anchors = [akLeft, akTop, akRight]
              AutoSize = False
              Color = cl3DDkShadow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clAqua
              Font.Height = 12
              Font.Name = 'Arial'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Panel15: TPanel
              Left = 2
              Top = 15
              Width = 493
              Height = 258
              Anchors = [akLeft, akTop, akRight, akBottom]
              BevelOuter = bvSpace
              Color = cl3DDkShadow
              TabOrder = 0
              object AImage3: TImage
                Left = 1
                Top = 1
                Width = 491
                Height = 256
                Align = alClient
                IncrementalDisplay = True
                OnDblClick = AImage3DblClick
                OnMouseDown = AImage1MouseDown
                OnMouseMove = AImage3MouseMove
                OnMouseUp = AImage1MouseUp
                ExplicitLeft = -4
                ExplicitTop = -1
              end
            end
          end
          object Panel12: TPanel
            Left = 0
            Top = 276
            Width = 499
            Height = 235
            Align = alClient
            BevelOuter = bvNone
            Caption = 'Panel12'
            Color = cl3DDkShadow
            TabOrder = 1
            DesignSize = (
              499
              235)
            object Panel13: TPanel
              Left = 2
              Top = 2
              Width = 493
              Height = 215
              Anchors = [akLeft, akTop, akRight, akBottom]
              BevelOuter = bvSpace
              Color = cl3DDkShadow
              TabOrder = 0
              object AImage1: TImage
                Left = 1
                Top = 1
                Width = 491
                Height = 213
                Align = alClient
                OnDblClick = AImage3DblClick
                OnMouseDown = AImage1MouseDown
                OnMouseMove = AImage3MouseMove
                OnMouseUp = AImage1MouseUp
                ExplicitLeft = 0
                ExplicitHeight = 203
              end
            end
            object SFCheck: TCheckBox
              Left = 5
              Top = 218
              Width = 124
              Height = 17
              Anchors = [akLeft, akBottom]
              Caption = 'Source-filter output'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clSilver
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 1
              OnClick = SFCheckClick
            end
            object MACheck: TCheckBox
              Left = 120
              Top = 218
              Width = 97
              Height = 17
              Anchors = [akLeft, akBottom]
              Caption = 'Moving average'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clSilver
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 2
              OnClick = SFCheckClick
            end
          end
        end
        object AmpCycleSheet: TTabSheet
          Caption = 'Amplitudes: Cycles'
          ImageIndex = 3
          OnResize = AmpCycleSheetResize
          ExplicitLeft = 0
          ExplicitTop = 0
          ExplicitWidth = 0
          ExplicitHeight = 0
          DesignSize = (
            499
            511)
          object Label9: TLabel
            Left = 8
            Top = 160
            Width = 225
            Height = 9
            Alignment = taCenter
            AutoSize = False
            Color = cl3DDkShadow
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clAqua
            Font.Height = 12
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
          end
          object Label15: TLabel
            Left = 8
            Top = 490
            Width = 225
            Height = 9
            Alignment = taCenter
            Anchors = [akLeft, akBottom]
            AutoSize = False
            Color = cl3DDkShadow
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clAqua
            Font.Height = 12
            Font.Name = 'Arial'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            ExplicitTop = 160
          end
          object Label16: TLabel
            Left = 219
            Top = 490
            Width = 273
            Height = 12
            Alignment = taCenter
            Anchors = [akRight, akBottom]
            AutoSize = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = 12
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
            ExplicitLeft = 245
            ExplicitTop = 160
          end
          object Splitter8: TSplitter
            Left = 0
            Top = 273
            Width = 499
            Height = 3
            Cursor = crVSplit
            Align = alTop
            OnMoved = Splitter7Moved
          end
          object Panel6: TPanel
            Left = 0
            Top = 0
            Width = 499
            Height = 273
            Align = alTop
            BevelOuter = bvNone
            Caption = 'Panel9'
            Color = cl3DDkShadow
            TabOrder = 0
            DesignSize = (
              499
              273)
            object Label8: TLabel
              Left = -1
              Top = 4
              Width = 493
              Height = 9
              Alignment = taCenter
              Anchors = [akLeft, akTop, akRight]
              AutoSize = False
              Color = cl3DDkShadow
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clAqua
              Font.Height = 12
              Font.Name = 'Arial'
              Font.Style = []
              ParentColor = False
              ParentFont = False
            end
            object Panel11: TPanel
              Left = 2
              Top = 15
              Width = 493
              Height = 258
              Anchors = [akLeft, akTop, akRight, akBottom]
              BevelOuter = bvSpace
              Color = cl3DDkShadow
              TabOrder = 0
              object AImage4: TImage
                Left = 1
                Top = 1
                Width = 491
                Height = 256
                Align = alClient
                IncrementalDisplay = True
                OnMouseDown = AImage1MouseDown
                OnMouseMove = AImage3MouseMove
                OnMouseUp = AImage1MouseUp
                ExplicitLeft = 0
              end
            end
          end
          object Panel14: TPanel
            Left = 0
            Top = 276
            Width = 499
            Height = 235
            Align = alClient
            BevelOuter = bvNone
            Caption = 'Panel12'
            Color = cl3DDkShadow
            TabOrder = 1
            DesignSize = (
              499
              235)
            object Panel16: TPanel
              Left = 2
              Top = 2
              Width = 493
              Height = 215
              Anchors = [akLeft, akTop, akRight, akBottom]
              BevelOuter = bvSpace
              Color = cl3DDkShadow
              TabOrder = 0
              object AImage2: TImage
                Left = 1
                Top = 1
                Width = 491
                Height = 213
                Align = alClient
                OnMouseDown = AImage1MouseDown
                OnMouseMove = AImage3MouseMove
                OnMouseUp = AImage1MouseUp
                ExplicitLeft = 33
                ExplicitTop = -39
                ExplicitWidth = 483
                ExplicitHeight = 98
              end
            end
          end
        end
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 180
    Top = 104
  end
end
author	wenx <xue.wen@eecs.qmul.ac.uk>
date	Wed, 10 Aug 2011 14:56:28 +0100
parents	a6a46af64546
children