view VibratoDemoUnit.dfm @ 1:f3fd4e19cec0 tip

first binary upload

object VibratoDemoForm: TVibratoDemoForm
  Left = 165
  Top = 72
  Caption = 'Vibrato analysis/synthesis demo'
  ClientHeight = 600
  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 = 600
    Beveled = True
    ExplicitHeight = 613
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 369
    Height = 600
    Align = alLeft
    BevelOuter = bvNone
    Caption = 'Panel1'
    Color = cl3DDkShadow
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    OnResize = Panel1Resize
    object Splitter1: TSplitter
      Left = 0
      Top = 305
      Width = 369
      Height = 3
      Cursor = crVSplit
      Align = alTop
      Beveled = True
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 369
      Height = 305
      Align = alTop
      BevelOuter = bvNone
      Color = cl3DDkShadow
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 0
      Top = 308
      Width = 369
      Height = 292
      Align = alClient
      BevelOuter = bvNone
      Color = cl3DDkShadow
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 372
    Top = 0
    Width = 507
    Height = 600
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel4'
    Color = cl3DDkShadow
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    OnResize = Panel4Resize
    object Splitter3: TSplitter
      Left = 0
      Top = 372
      Width = 507
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Beveled = True
      ExplicitTop = 385
      ExplicitWidth = 533
    end
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 507
      Height = 372
      Align = alClient
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Caption = 'Panel5'
      Color = cl3DDkShadow
      Ctl3D = True
      ParentBiDiMode = False
      ParentCtl3D = False
      TabOrder = 0
      ExplicitLeft = 3
      ExplicitTop = -33
      DesignSize = (
        507
        372)
      object Splitter6: TSplitter
        Left = 367
        Top = 0
        Height = 372
        Beveled = True
        ExplicitLeft = 393
        ExplicitHeight = 385
      end
      object Label15: TLabel
        Left = 392
        Top = 112
        Width = 87
        Height = 13
        Caption = 'Source-filter model'
        Color = cl3DDkShadow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clSilver
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object ListBox1: TListBox
        Left = 392
        Top = 129
        Width = 49
        Height = 60
        Hint = 's-f technique to use'
        ItemHeight = 13
        Items.Strings = (
          'AES124'
          'AES126_SV')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = ListBox1Click
      end
      object Panel8: TPanel
        Left = 0
        Top = 0
        Width = 367
        Height = 372
        Align = alLeft
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelOuter = bvNone
        Caption = 'Panel8'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        OnResize = Panel8Resize
        object Splitter4: TSplitter
          Left = 0
          Top = 122
          Width = 367
          Height = 3
          Cursor = crVSplit
          Align = alTop
          Beveled = True
          Color = cl3DDkShadow
          ParentColor = False
          ExplicitLeft = 3
          ExplicitTop = 123
        end
        object Splitter5: TSplitter
          Left = 0
          Top = 247
          Width = 367
          Height = 3
          Cursor = crVSplit
          Align = alTop
          Beveled = True
          Color = cl3DDkShadow
          ParentColor = False
          ExplicitTop = 257
          ExplicitWidth = 393
        end
        object Panel7: TPanel
          Left = 0
          Top = 125
          Width = 367
          Height = 122
          Align = alTop
          BevelOuter = bvNone
          Color = cl3DDkShadow
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 0
          OnResize = Panel7Resize
          object Image1: TImage
            Left = 0
            Top = 0
            Width = 367
            Height = 122
            Align = alClient
            AutoSize = True
            OnMouseDown = AImage1MouseDown
            OnMouseMove = Image1MouseMove
            OnMouseUp = AImage1MouseUp
            ExplicitWidth = 393
            ExplicitHeight = 125
          end
        end
        object Panel6: TPanel
          Left = 0
          Top = 250
          Width = 367
          Height = 122
          Align = alClient
          BevelOuter = bvNone
          Color = cl3DDkShadow
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 1
          object Image2: TImage
            Left = 0
            Top = 0
            Width = 367
            Height = 122
            Align = alClient
            AutoSize = True
            IncrementalDisplay = True
            OnDblClick = Image2DblClick
            OnMouseMove = Image2MouseMove
            ExplicitWidth = 393
            ExplicitHeight = 125
          end
        end
        object Panel9: TPanel
          Left = 0
          Top = 0
          Width = 367
          Height = 122
          Align = alTop
          BevelOuter = bvNone
          Color = cl3DDkShadow
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 2
          OnResize = Panel9Resize
          object Image0: TImage
            Left = 0
            Top = 0
            Width = 367
            Height = 122
            Align = alClient
            OnMouseMove = Image1MouseMove
          end
        end
      end
      object PeakMarksCheck: TCheckBox
        Left = 387
        Top = 16
        Width = 110
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'Cycle boundaries'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = SFCheckClick
      end
      object RegButton: TButton
        Left = 392
        Top = 47
        Width = 97
        Height = 18
        Anchors = [akTop, akRight]
        Caption = 'Regulate'
        TabOrder = 2
        OnClick = RegButtonClick
      end
      object FEdit: TEdit
        Left = 439
        Top = 129
        Width = 49
        Height = 21
        Hint = 'bandwidth for s-f modelling'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        Text = '400'
      end
      object FScaleCombo: TComboBox
        Left = 439
        Top = 148
        Width = 49
        Height = 21
        Hint = 'freq. scale for s-f modelling'
        ItemHeight = 13
        ItemIndex = 0
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        Text = 'Hz'
        Items.Strings = (
          'Hz'
          'mel')
      end
      object Button1: TButton
        Left = 392
        Top = 71
        Width = 97
        Height = 18
        Caption = '>>'
        TabOrder = 7
        OnClick = Button1Click
      end
      object ThetaEdit: TEdit
        Left = 439
        Top = 168
        Width = 49
        Height = 21
        Hint = 'balancing factor of slow-variation SF modelling'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        Text = '0.5'
      end
    end
    object Panel10: TPanel
      Left = 0
      Top = 375
      Width = 507
      Height = 225
      Align = alBottom
      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
        225)
      object Label13: TLabel
        Left = 0
        Top = 208
        Width = 3
        Height = 13
        Anchors = [akLeft, akBottom]
      end
      object PageControl1: TPageControl
        Left = 0
        Top = 0
        Width = 507
        Height = 209
        ActivePage = ModOverSheet
        Align = alTop
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 0
        OnChange = PageControl1Change
        object ModOverSheet: TTabSheet
          Caption = 'Modulator: Overall'
          DesignSize = (
            499
            181)
          object Label1: TLabel
            Left = 10
            Top = 80
            Width = 47
            Height = 13
            Alignment = taRightJustify
            Caption = 'Regularity'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 34
            Top = 48
            Width = 23
            Height = 13
            Alignment = taRightJustify
            Caption = 'Rate'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label11: TLabel
            Left = 240
            Top = 160
            Width = 3
            Height = 12
            Alignment = taCenter
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clAqua
            Font.Height = 12
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Label14: TLabel
            Left = 17
            Top = 16
            Width = 40
            Height = 13
            Alignment = taRightJustify
            Caption = 'Duration'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object ResidueCheck: TCheckBox
            Left = 367
            Top = 3
            Width = 120
            Height = 17
            Anchors = [akTop, akRight]
            Caption = 'Show Fourier residue'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 4
            OnClick = SFCheckClick
          end
          object RegEdit: TEdit
            Left = 64
            Top = 80
            Width = 65
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 0
            Text = '1.0'
          end
          object RateEdit: TEdit
            Left = 64
            Top = 48
            Width = 65
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Text = '1.0'
            OnMouseMove = CycleRateEditMouseMove
          end
          object Panel11: TPanel
            Left = 240
            Top = 22
            Width = 247
            Height = 147
            Anchors = [akLeft, akTop, akRight, akBottom]
            BevelOuter = bvSpace
            Color = cl3DDkShadow
            TabOrder = 2
            object MImage1: TImage
              Left = 1
              Top = 1
              Width = 245
              Height = 145
              Align = alClient
              OnMouseDown = AImage1MouseDown
              OnMouseMove = MImage1MouseMove
              ExplicitTop = 6
              ExplicitHeight = 143
            end
          end
          object DurationEdit: TEdit
            Left = 64
            Top = 16
            Width = 161
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 3
            Text = '1.0'
            OnMouseMove = CycleRateEditMouseMove
          end
        end
        object ModCycleSheet: TTabSheet
          Caption = 'Modulator: Cycles'
          ImageIndex = 1
          DesignSize = (
            499
            181)
          object Label3: TLabel
            Left = 34
            Top = 48
            Width = 23
            Height = 13
            Alignment = taRightJustify
            Caption = 'Rate'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 17
            Top = 16
            Width = 40
            Height = 13
            Alignment = taRightJustify
            Caption = 'Duration'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 27
            Top = 112
            Width = 30
            Height = 13
            Alignment = taRightJustify
            Caption = 'Extent'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label6: TLabel
            Left = 6
            Top = 144
            Width = 51
            Height = 13
            Alignment = taRightJustify
            Caption = 'Avg. Dept.'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object TLabel
            Left = 8
            Top = 80
            Width = 49
            Height = 13
            Alignment = taRightJustify
            Caption = 'Avg. Pitch'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label12: TLabel
            Left = 240
            Top = 160
            Width = 3
            Height = 12
            Alignment = taCenter
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clAqua
            Font.Height = 12
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object CycleRateEdit: TEdit
            Left = 64
            Top = 48
            Width = 65
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Text = '1.0'
            OnMouseMove = CycleRateEditMouseMove
          end
          object CycleDurationEdit: TEdit
            Left = 64
            Top = 16
            Width = 161
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Text = '1.0'
            OnMouseMove = CycleRateEditMouseMove
          end
          object CycleExtentEdit: TEdit
            Left = 64
            Top = 112
            Width = 89
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 2
            Text = '1.0'
          end
          object CycleAvgPDEdit: TEdit
            Left = 64
            Top = 144
            Width = 89
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 3
            Text = '1.0'
          end
          object CyclePitchEdit: TEdit
            Left = 64
            Top = 80
            Width = 89
            Height = 19
            BevelEdges = []
            BevelInner = bvNone
            BevelOuter = bvNone
            BorderStyle = bsNone
            Color = cl3DDkShadow
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 4
            Text = '1.0'
            OnMouseMove = CycleRateEditMouseMove
          end
          object Panel12: TPanel
            Left = 240
            Top = 22
            Width = 247
            Height = 147
            Anchors = [akLeft, akTop, akRight, akBottom]
            BevelOuter = bvSpace
            Color = cl3DDkShadow
            TabOrder = 5
            object MImage2: TImage
              Left = 1
              Top = 1
              Width = 245
              Height = 145
              Align = alClient
              OnMouseDown = AImage1MouseDown
              OnMouseMove = MImage1MouseMove
              ExplicitWidth = 271
              ExplicitHeight = 143
            end
          end
        end
        object AmpOverSheet: TTabSheet
          Caption = 'Amplitudes: Overall'
          ImageIndex = 2
          OnResize = AmpOverSheetResize
          DesignSize = (
            499
            181)
          object Label7: TLabel
            Left = 8
            Top = 160
            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
          end
          object Label8: TLabel
            Left = 219
            Top = 160
            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
          end
          object Panel13: TPanel
            Left = 219
            Top = 20
            Width = 275
            Height = 145
            Anchors = [akTop, akRight, akBottom]
            BevelOuter = bvSpace
            Color = cl3DDkShadow
            TabOrder = 0
            object AImage1: TImage
              Left = 1
              Top = 1
              Width = 273
              Height = 143
              Align = alClient
              OnMouseDown = AImage1MouseDown
              OnMouseMove = AImage3MouseMove
              OnMouseUp = AImage1MouseUp
              ExplicitWidth = 271
            end
          end
          object Panel15: TPanel
            Left = 8
            Top = 20
            Width = 225
            Height = 145
            Anchors = [akLeft, akTop, akBottom]
            BevelOuter = bvSpace
            Color = cl3DDkShadow
            TabOrder = 1
            object AImage3: TImage
              Left = 1
              Top = 1
              Width = 223
              Height = 143
              Align = alClient
              IncrementalDisplay = True
              OnMouseDown = AImage1MouseDown
              OnMouseMove = AImage3MouseMove
              OnMouseUp = AImage1MouseUp
              ExplicitLeft = -6
              ExplicitTop = 9
            end
          end
          object SFCheck: TCheckBox
            Left = 230
            Top = 3
            Width = 115
            Height = 17
            Anchors = [akTop, akRight]
            Caption = 'Source-filter output'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
            OnClick = SFCheckClick
          end
          object MACheck: TCheckBox
            Left = 351
            Top = 3
            Width = 97
            Height = 17
            Anchors = [akTop, akRight]
            Caption = 'Moving average'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clSilver
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
            OnClick = SFCheckClick
          end
        end
        object AmpCycleSheet: TTabSheet
          Caption = 'Amplitudes: Cycles'
          ImageIndex = 3
          OnResize = AmpCycleSheetResize
          DesignSize = (
            499
            181)
          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 Label10: TLabel
            Left = 245
            Top = 160
            Width = 273
            Height = 12
            Alignment = taCenter
            AutoSize = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlack
            Font.Height = 12
            Font.Name = 'Arial'
            Font.Style = []
            ParentFont = False
          end
          object Panel14: TPanel
            Left = 219
            Top = 20
            Width = 275
            Height = 145
            Anchors = [akTop, akRight, akBottom]
            BevelOuter = bvSpace
            Color = cl3DDkShadow
            TabOrder = 0
            object AImage2: TImage
              Left = 1
              Top = 1
              Width = 273
              Height = 143
              Align = alClient
              OnMouseDown = AImage1MouseDown
              OnMouseMove = AImage3MouseMove
              OnMouseUp = AImage1MouseUp
              ExplicitWidth = 271
            end
          end
          object Panel16: TPanel
            Left = 8
            Top = 20
            Width = 225
            Height = 145
            Anchors = [akLeft, akTop, akBottom]
            BevelOuter = bvSpace
            Color = cl3DDkShadow
            TabOrder = 1
            object AImage4: TImage
              Left = 1
              Top = 1
              Width = 223
              Height = 143
              Align = alClient
              OnMouseDown = AImage1MouseDown
              OnMouseMove = AImage3MouseMove
              OnMouseUp = AImage1MouseUp
            end
          end
        end
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 724
    Top = 40
  end
end