Class TVumeter (unit VUMeter)

Inherits from

TComponent

---------------------------------------------------------} { } { This code was written by : KiCk - kick@forum96.ml.org } { } { This code is copyright 1997 by } { (c) 1997 Viorel Dehelean } { } {---------------------------------------------------------} {-----------------------------------------------------} { } { This component returns the sound peak for left and } { right channels , using the mixer driver. } { Big thanx to Miladin Pavlicic for his portions } { } { Thanx also to Pasha A. Poskryakoff (pap@savva.ru) } { for sending me his impreved version of VUmeter } { } { This code is FREEWARE but credits and a email will } { be apreciated. } { Maybe you send me a copy of your program that makes } { use of my component } {-----------------------------------------------------

Constructors


constructor Create(AOwner: TComponent);

Public Declarations

--------------------------------------} { TVumeter.



Functions

destructor Destroy;

--------------------------------------} { TVumeter.

procedure Start;

--------------------------------------} { TVumeter.

procedure Stop;

--------------------------------------} { TVumeter.

function Update:boolean;

--------------------------------------} { TVumeter.

Properties

property LeftPeak : longint


property RightPeak : longint


Events

Variables

FLeftPeak : longint;

Private Declarations

FRightPeak : longint;



Constructors


constructor Create(AOwner: TComponent);

Public Declarations

--------------------------------------} { TVumeter.Create } {--------------------------------------


Functions


destructor Destroy;

--------------------------------------} { TVumeter.Destroy } {--------------------------------------


procedure Start;

--------------------------------------} { TVumeter.Start } {--------------------------------------


procedure Stop;

--------------------------------------} { TVumeter.Stop } {--------------------------------------


function Update:boolean;

--------------------------------------} { TVumeter.Update } {--------------------------------------


Properties


property LeftPeak : longint


property RightPeak : longint


Events


Variables


FLeftPeak : longint;

Private Declarations


FRightPeak : longint;