home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 21 / IOPROG_21.ISO / SOFT / BEEP003.ZIP / Main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-10-24  |  2.4 KB  |  93 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;
  33.       Shift: TShiftState);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   frmMain: TfrmMain;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47.  
  48.  
  49. {------------------FormCreate----------------------------------------------------}
  50. procedure TfrmMain.FormCreate(Sender: TObject);
  51. begin
  52.   cboPresetSounds.ItemIndex:=0;
  53.   cboSongs.ItemIndex:=0;
  54. end;
  55.  
  56. {------------------FormKeyDown----------------------------------------------------}
  57. procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  58. begin
  59.   if Key = vk_Escape then Close;
  60. end;
  61.  
  62. {----------------btn_PlayDefaultSoundClick----------------------------------------}
  63. procedure TfrmMain.btn_PlayDefaultSoundClick(Sender: TObject);
  64. begin
  65.  Beeper.PlayDefaultSound;
  66. end;
  67.  
  68. {------------------btn_PlayPresetSoundClick---------------------------------------}
  69. procedure TfrmMain.btn_PlayPresetSoundClick(Sender: TObject);
  70. begin
  71.   Beeper.PlayPresetSound(TPresetSound(cboPresetSounds.ItemIndex));
  72. end;      
  73.  
  74. {------------------btn_BeepForClick-----------------------------------------------}
  75. procedure TfrmMain.btn_BeepForClick(Sender: TObject);
  76. begin
  77.   Beeper.BeepFor(spTone.Position, spMSecs.Position);
  78. end;
  79.  
  80. {------------------btn_PlayTextFileClick------------------------------------------}
  81. procedure TfrmMain.btn_PlayTextFileClick(Sender: TObject);
  82. begin
  83.   Beeper.PlayTextFile(ExtractFilePath(Application.ExeName) + '\' + edtFileName.Text,
  84.                       cboSongs.Text); 
  85. end;
  86.  
  87.  
  88.  
  89. end.
  90.  
  91.  
  92.  
  93.