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