Computer Panoráma/computer_panorama_1997-12-hibas.iso/SHARE/SOUND/DFC097.ZIP/Dfc.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-09-27 | 28KB | 1,236 lines

object Form1: TForm1
  Left = 193
  Top = 107
  Width = 600
  Height = 564
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Defractor 0.97�'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnActivate = DefractorOnActivate
  OnClick = DefractorOnActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 3
    Width = 84
    Height = 18
    Caption = 'Oscillator 1'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 501
    Top = 3
    Width = 84
    Height = 18
    Caption = 'Oscillator 2'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 6
    Top = 156
    Width = 53
    Height = 13
    Caption = 'Frequency:'
  end
  object Label4: TLabel
    Left = 318
    Top = 156
    Width = 53
    Height = 13
    Caption = 'Frequency:'
  end
  object Osc1TextInfo: TLabel
    Left = 207
    Top = 147
    Width = 32
    Height = 16
    Alignment = taRightJustify
    Caption = 'None'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Osc2TextInfo: TLabel
    Left = 555
    Top = 147
    Width = 32
    Height = 16
    Alignment = taRightJustify
    Caption = 'None'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 261
    Top = 174
    Width = 16
    Height = 16
    Caption = 'Hz'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 570
    Top = 174
    Width = 16
    Height = 16
    Caption = 'Hz'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object O1AmpText: TLabel
    Left = 182
    Top = 6
    Width = 53
    Height = 13
    Alignment = taRightJustify
    Caption = 'Amp: 1.00x'
  end
  object O2AmpText: TLabel
    Left = 354
    Top = 6
    Width = 53
    Height = 13
    Caption = 'Amp: 1.00x'
  end
  object Label18: TLabel
    Left = 261
    Top = 24
    Width = 11
    Height = 13
    Caption = '0x'
  end
  object Label19: TLabel
    Left = 261
    Top = 129
    Width = 17
    Height = 13
    Caption = '10x'
  end
  object Label21: TLabel
    Left = 315
    Top = 129
    Width = 17
    Height = 13
    Caption = '10x'
  end
  object Label22: TLabel
    Left = 321
    Top = 24
    Width = 11
    Height = 13
    Caption = '0x'
  end
  object Label23: TLabel
    Left = 204
    Top = 216
    Width = 99
    Height = 16
    Caption = 'Sample Preview'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
  end
  object Osc1FreqSB: TScrollBar
    Left = 6
    Top = 174
    Width = 190
    Height = 16
    Hint = 'Oscillator 1 Frequency '
    LargeChange = 10
    Max = 32000
    Min = 1
    ParentShowHint = False
    Position = 220
    ShowHint = True
    TabOrder = 0
    OnChange = Osc1FreqSBChange
  end
  object Osc1EBFreq: TEdit
    Left = 201
    Top = 171
    Width = 55
    Height = 21
    Hint = 'Oscillator 1 Frequency'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Text = '220.0'
    OnChange = Osc1EBFreqChange
  end
  object Osc2FreqSB: TScrollBar
    Left = 318
    Top = 174
    Width = 187
    Height = 16
    Hint = 'Oscillator 2 Frequency'
    LargeChange = 10
    Max = 32000
    Min = 1
    ParentShowHint = False
    Position = 110
    ShowHint = True
    TabOrder = 2
    OnChange = Osc2FreqSBChange
  end
  object Osc2EBFreq: TEdit
    Left = 510
    Top = 171
    Width = 55
    Height = 21
    Hint = 'Oscillator 2 Frequency'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Text = '110.0'
    OnChange = Osc2EBFreqChange
  end
  object Panel1: TPanel
    Left = 6
    Top = 195
    Width = 106
    Height = 37
    TabOrder = 4
    object Osc1Options: TButton
      Left = 6
      Top = 6
      Width = 94
      Height = 25
      Hint = 'More settings for oscillator 1'
      Caption = 'More Settings...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Osc1OptionsClick
    end
  end
  object Panel2: TPanel
    Left = 480
    Top = 195
    Width = 106
    Height = 37
    TabOrder = 5
    object Osc2Options: TButton
      Left = 6
      Top = 6
      Width = 94
      Height = 25
      Hint = 'More settings for Oscillator 2'
      Caption = 'More Settings...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = Osc2OptionsClick
    end
  end
  object FilterGroup: TGroupBox
    Left = 6
    Top = 321
    Width = 580
    Height = 94
    Caption = ' Filters '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    TabOrder = 6
    object Label10: TLabel
      Left = 111
      Top = 18
      Width = 33
      Height = 13
      Caption = 'Power:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 111
      Top = 42
      Width = 33
      Height = 13
      Caption = 'Power:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 336
      Top = 42
      Width = 50
      Height = 13
      Caption = 'Threshold:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 111
      Top = 66
      Width = 28
      Height = 13
      Caption = 'Ratio:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SText: TLabel
      Left = 450
      Top = 66
      Width = 39
      Height = 13
      Caption = '0.00700'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SmText: TLabel
      Left = 531
      Top = 18
      Width = 27
      Height = 13
      Caption = '2.100'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SmoCBox: TCheckBox
      Left = 6
      Top = 18
      Width = 88
      Height = 17
      Hint = 'Enable/Disable Smoothing Filter'
      Caption = 'Smoothing:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SmoCBoxClick
    end
    object SmoPower: TScrollBar
      Left = 150
      Top = 18
      Width = 376
      Height = 14
      Hint = 'Smoothing Power'
      LargeChange = 10
      Max = 10000
      Min = 1
      ParentShowHint = False
      Position = 100
      ShowHint = True
      TabOrder = 1
      OnChange = SmoPowerChange
    end
    object PPCBox: TCheckBox
      Left = 6
      Top = 42
      Width = 100
      Height = 17
      Hint = 'Enable/Disable Pinch/Punch Filter'
      Caption = 'Pinch/Punch:'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = PPCBoxClick
    end
    object PPPowSB: TScrollBar
      Left = 150
      Top = 42
      Width = 172
      Height = 14
      Hint = 'Pinch/Punch Po