Unit CDCtrl

Classes

TCDControl -

Functions

Register -

Types

TCDButton
TCDClick
TCDModes

Constants

Variables


Functions


procedure Register;


Types


TCDButton = (cdbPlay,cdbStop,cdbPause,cdbPrev,cdbNext);

TCDClick = procedure (Sender: TObject; Button: TCDButton;
                        var Continue: boolean) of object

TCDModes = (cdNotReady,cdStopped,cdPlaying,cdRecording,cdSeeking,cdPaused,cdOpen);

Constants


Variables