| Class TVumeter (unit VUMeter) |
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);--------------------------------------} { TVumeter.
| Functions |
destructor Destroy;
procedure Start;
procedure Stop;
function Update:boolean;| Properties |
property LeftPeak : longint
property RightPeak : longint| Events |
| Variables |
FLeftPeak : longint;
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;