Class Tfm_PCSpkr (unit fm_PCSpkr1) |
Inherits from
TForm
PortTest program PC Speaker test form
Revisions
---------
98-06-01 GW Original
Copyright info: see main form unit
procedure bt_Disable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_Enable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_NoteOffClick(Sender: TObject);
---------------------------------
procedure bt_NoteOnClick(Sender: TObject);
---------------------------------
procedure bt_Test_DisableClick(Sender: TObject);
procedure bt_Test_EnableClick(Sender: TObject);
---------------------------------
function ResultOK(DriverResult: DWORD): Boolean;
Private declarations ---------------------------------
bt_Disable_Ports : TButton;
bt_Enable_Ports : TButton;
bt_NoteOff : TButton;
bt_NoteOn : TButton;
GroupBox4 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lb_Result : TLabel;
tx_Freq : TEdit;
procedure bt_Disable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_Enable_PortsClick(Sender: TObject);
---------------------------------
procedure bt_NoteOffClick(Sender: TObject);
---------------------------------
procedure bt_NoteOnClick(Sender: TObject);
---------------------------------
procedure bt_Test_DisableClick(Sender: TObject);
procedure bt_Test_EnableClick(Sender: TObject);
---------------------------------
function ResultOK(DriverResult: DWORD): Boolean;
Private declarations
---------------------------------
bt_Disable_Ports : TButton;
bt_Enable_Ports : TButton;
bt_NoteOff : TButton;
bt_NoteOn : TButton;
GroupBox4 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lb_Result : TLabel;
tx_Freq : TEdit;