home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d2345 / BEEP004.ZIP / Main.pas < prev    next >
Pascal/Delphi Source File  |  2001-05-27  |  2KB  |  88 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   BTOdeum, StdCtrls, ComCtrls;
  8.  
  9. type
  10.   TfrmMain = class(TForm)
  11.     Beeper: TBTBeeper;
  12.     btn_PlayDefaultSound: TButton;
  13.     btn_PlayPresetSound: TButton;
  14.     cboPresetSounds: TComboBox;
  15.     btn_BeepFor: TButton;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     spTone: TUpDown;
  19.     edtTone: TEdit;
  20.     edtMSecs: TEdit;
  21.     spMSecs: TUpDown;
  22.     btn_PlayTextFile: TButton;
  23.     edtFileName: TEdit;
  24.     Label3: TLabel;
  25.     cboSongs: TComboBox;
  26.     Label4: TLabel;
  27.     procedure btn_PlayDefaultSoundClick(Sender: TObject);
  28.     procedure btn_PlayPresetSoundClick(Sender: TObject);
  29.     procedure FormCreate(Sender: TObject);
  30.     procedure btn_BeepForClick(Sender: TObject);
  31.     procedure btn_PlayTextFileClick(Sender: TObject);
  32.     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   frmMain: TfrmMain;
  41.  
  42. implementation
  43.  
  44. {$R *.DFM}
  45.  
  46.  
  47.  
  48. procedure TfrmMain.FormCreate(Sender: TObject);
  49. begin
  50.   cboPresetSounds.ItemIndex := 0;
  51.   cboSongs.ItemIndex := 0;
  52. end;
  53.  
  54. procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  55. begin
  56.   if Key = vk_Escape then Close;
  57. end;
  58.  
  59. procedure TfrmMain.btn_PlayDefaultSoundClick(Sender: TObject);
  60. begin
  61.   Beeper.PlayDefaultSound;
  62. end;
  63.  
  64. procedure TfrmMain.btn_PlayPresetSoundClick(Sender: TObject);
  65. begin
  66.   Beeper.PlayPresetSound(TPresetSound(cboPresetSounds.ItemIndex));
  67. end;
  68.  
  69. procedure TfrmMain.btn_BeepForClick(Sender: TObject);
  70. begin
  71.   Beeper.BeepFor(spTone.Position, spMSecs.Position);
  72. end;
  73.  
  74. procedure TfrmMain.btn_PlayTextFileClick(Sender: TObject);
  75. begin
  76.   Beeper.PlayTextFile(ExtractFilePath(Application.ExeName) + edtFileName.Text, cboSongs.Text);
  77. end;
  78.  
  79.  
  80.  
  81. end.
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.