Chip 2001 September/Chip_2001-09_cd1.bin/zkuste/delphi/kompon/d2345/BEEP004.ZIP/Main.dfm/Main.txt

Text File | 2001-05-27 | 3KB | 173 lines

object frmMain: TfrmMain
  Left = 239
  Top = 207
  Width = 512
  Height = 174
  Caption = 'Beeper Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 216
    Top = 84
    Width = 25
    Height = 13
    Caption = 'Tone'
  end
  object Label2: TLabel
    Left = 350
    Top = 76
    Width = 51
    Height = 13
    Caption = 'MSeconds'
  end
  object Label3: TLabel
    Left = 184
    Top = 113
    Width = 44
    Height = 13
    Caption = 'FileName'
  end
  object Label4: TLabel
    Left = 328
    Top = 113
    Width = 25
    Height = 13
    Caption = 'Song'
  end
  object btn_PlayDefaultSound: TButton
    Left = 8
    Top = 8
    Width = 161
    Height = 25
    Caption = 'btn_PlayDefaultSound'
    TabOrder = 0
    OnClick = btn_PlayDefaultSoundClick
  end
  object btn_PlayPresetSound: TButton
    Left = 8
    Top = 40
    Width = 161
    Height = 25
    Caption = 'btn_PlayPresetSound'
    TabOrder = 1
    OnClick = btn_PlayPresetSoundClick
  end
  object cboPresetSounds: TComboBox
    Left = 184
    Top = 40
    Width = 137
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Items.Strings = (
      'psOK'
      'psError'
      'psWelcome'
      'psEmergency'
      'psWrong'
      'psCall'
      'psOfficial'
      'psDaze'
      'psFall'
      'psChord'
      'psWhisle'
      'psHanging'
      'psClimb')
  end
  object btn_BeepFor: TButton
    Left = 8
    Top = 72
    Width = 161
    Height = 25
    Caption = 'btn_BeepFor'
    TabOrder = 3
    OnClick = btn_BeepForClick
  end
  object spTone: TUpDown
    Left = 305
    Top = 76
    Width = 15
    Height = 21
    Associate = edtTone
    Min = 40
    Max = 5000
    Increment = 10
    Position = 440
    TabOrder = 4
    Wrap = False
  end
  object edtTone: TEdit
    Left = 248
    Top = 76
    Width = 57
    Height = 21
    TabOrder = 5
    Text = '440'
  end
  object edtMSecs: TEdit
    Left = 406
    Top = 76
    Width = 57
    Height = 21
    TabOrder = 6
    Text = '300'
  end
  object spMSecs: TUpDown
    Left = 463
    Top = 76
    Width = 15
    Height = 21
    Associate = edtMSecs
    Min = 50
    Max = 5000
    Increment = 50
    Position = 300
    TabOrder = 7
    Wrap = False
  end
  object btn_PlayTextFile: TButton
    Left = 8
    Top = 104
    Width = 161
    Height = 25
    Caption = 'btn_PlayTextFile'
    TabOrder = 8
    OnClick = btn_PlayTextFileClick
  end
  object edtFileName: TEdit
    Left = 240
    Top = 105
    Width = 81
    Height = 21
    TabOrder = 9
    Text = 'Songs.txt'
  end
  object cboSongs: TComboBox
    Left = 376
    Top = 105
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 10
    Text = 'cboSongs'
    Items.Strings = (
      'Entertainer'
      'Yesterday')
  end
  object Beeper: TbtBeeper
    DefaultSound = psHanging
    Left = 399
    Top = 25
  end
end