Class TMainForm (unit ClipWaveUnit)

Inherits from

TForm

This just shows a demo of the WaveClip Unit

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;



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;