Class TMainForm (unit ClipWaveUnit) |
Inherits from
TForm
This just shows a demo of the WaveClip Unit
procedure Button1Click(Sender: TObject);
procedure CopyToClipBoardClick(Sender: TObject);
This copies the wave to clipboard
procedure PlayClipboard1Click(Sender: TObject);
Called whenever the menu is shown Decide what format the clip is in
procedure SaveFromClipBoardClick(Sender: TObject);
This saves a wave file fromt the clipboard
procedure MenuShow (var message : TMessage);
Private declarations
Button1 : TButton;
CopyToClipBoard : TMenuItem;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
Edit1 : TMenuItem;
Edit2 : TEdit;
FileListBox : TFileListBox;
MainMenu1 : TMainMenu;
PlayClipboard1 : TMenuItem;
SaveDialog : TSaveDialog;
SaveFromClipBoard : TMenuItem;
procedure Button1Click(Sender: TObject);
procedure CopyToClipBoardClick(Sender: TObject);
This copies the wave to clipboard
procedure PlayClipboard1Click(Sender: TObject);
Called whenever the menu is shown Decide what format the clip is in
procedure SaveFromClipBoardClick(Sender: TObject);
This saves a wave file fromt the clipboard
procedure MenuShow (var message : TMessage);
Private declarations
Button1 : TButton;
CopyToClipBoard : TMenuItem;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
Edit1 : TMenuItem;
Edit2 : TEdit;
FileListBox : TFileListBox;
MainMenu1 : TMainMenu;
PlayClipboard1 : TMenuItem;
SaveDialog : TSaveDialog;
SaveFromClipBoard : TMenuItem;