| Class TMainForm (unit ClipWaveUnit) |
TForm
This just shows a demo of the WaveClip Unit
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure CopyToClipBoardClick(Sender: TObject);
procedure PlayClipboard1Click(Sender: TObject);
procedure SaveFromClipBoardClick(Sender: TObject);
procedure MenuShow (var message : TMessage);| Properties |
| Events |
| Variables |
Button1 : TButton;
CopyToClipBoard : TMenuItem;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
Edit1 : TMenuItem;
Edit2 : TEdit;
FileListBox : TFileListBox;
MainMenu1 : TMainMenu;
PlayClipboard1 : TMenuItem;
SaveDialog : TSaveDialog;
SaveFromClipBoard : TMenuItem;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
Button1 : TButton;
CopyToClipBoard : TMenuItem;
DirectoryListBox1 : TDirectoryListBox;
DriveComboBox1 : TDriveComboBox;
Edit1 : TMenuItem;
Edit2 : TEdit;
FileListBox : TFileListBox;
MainMenu1 : TMainMenu;
PlayClipboard1 : TMenuItem;
SaveDialog : TSaveDialog;
SaveFromClipBoard : TMenuItem;