Class TGuiLevelMeter

Unit

DGuiLevelMeter

Declaration

type TGuiLevelMeter = class(TGuiBaseControl)

Description

Hierarchy

• TGraphicControl
• TGuiBaseControl
• TGuiLevelMeter

Overview

Methods

	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
	procedure RedrawBuffer(doBufferFlip: Boolean); override;
	procedure ResetPeaks;
	procedure ProcessBufferIndirect(NewWaveData: TAVDArrayOfSingleDynArray; Channels, SampleFrames: Integer);
	procedure ProcessBuffer(NewWaveData: TAVDSingleDynArray; InpLen: Integer = -1); overload;
	procedure ProcessBuffer(NewWaveData: TAVDArrayOfSingleDynArray; InpLen: Integer = -1); overload;

Properties

	property Transparent;
	property LineWidth;
	property LineColor;
	property Color;
	property RedrawInterval;
	property FillColor: TColor read FFillColor write SetFillColor default clGreen;
	property FillStyle: TBrushStyle read FFillStyle write SetFillStyle default bsSolid;
	property LineStyle: TPenStyle read FLineStyle write SetLineStyle default psSolid;
	property MaxLineColor: TColor read FMaxLineColor write SetMaxLineColor default clBlue;
	property MaxLineStyle: TPenStyle read FMaxLineStyle write SetMaxLineStyle default psSolid;
	property MaxLineWidth: Integer read FMaxLineWidth write SetMaxLineWidth default 1;
	property ClippingLineColor: TColor read FClippingLineColor write SetClippingLineColor default clBlack;
	property ClippingLineStyle: TPenStyle read FClippingLineStyle write SetClippingLineStyle default psSolid;
	property ClippingLineWidth: Integer read FClippingLineWidth write SetClippingLineWidth default 1;
	property ClippingFillColor: TColor read FClippingFillColor write SetClippingFillColor default clRed;
	property ClippingFillStyle: TBrushStyle read FClippingFillStyle write SetClippingFillStyle default bsSolid;
	property ClippingBoxSize: Integer read FClippingBoxSize write SetClippingBoxSize default 5;
	property ShowMaximum: Boolean read FShowMaximum write SetShowMaximum default true;
	property ShowClipping: TGuiShowClipping read FShowClipping write SetShowClipping default scTop;
	property SampleRate: single read GetSampleRate write SetSampleRate;
	property MaximumTimeFactor: Single read FMaximumTimeFactor write SetMaximumTimeFactor;
	property LevelAttack: Single read GetLevelAttack write SetLevelAttack;
	property LevelRelease: Single read GetLevelRelease write SetLevelRelease;
	property LevelDirection: TGuiLevelDirection read FLevelDirection write SetLevelDirection default ldmVertical;
	property DisplayChannels: Integer read FDisplayChannels write SetDisplayChannels default 2;
	property BarWidthPercentage: Single read FBarWidthPercentage write SetBarWidthPercentage;

Description

Methods

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

	procedure RedrawBuffer(doBufferFlip: Boolean); override;

	procedure ResetPeaks;

	procedure ProcessBufferIndirect(NewWaveData: TAVDArrayOfSingleDynArray; Channels, SampleFrames: Integer);

	procedure ProcessBuffer(NewWaveData: TAVDSingleDynArray; InpLen: Integer = -1); overload;

	procedure ProcessBuffer(NewWaveData: TAVDArrayOfSingleDynArray; InpLen: Integer = -1); overload;

Properties

	property Transparent;

	property LineWidth;

	property LineColor;

	property Color;

	property RedrawInterval;

	property FillColor: TColor read FFillColor write SetFillColor default clGreen;

	property FillStyle: TBrushStyle read FFillStyle write SetFillStyle default bsSolid;

	property LineStyle: TPenStyle read FLineStyle write SetLineStyle default psSolid;

	property MaxLineColor: TColor read FMaxLineColor write SetMaxLineColor default clBlue;

	property MaxLineStyle: TPenStyle read FMaxLineStyle write SetMaxLineStyle default psSolid;

	property MaxLineWidth: Integer read FMaxLineWidth write SetMaxLineWidth default 1;

	property ClippingLineColor: TColor read FClippingLineColor write SetClippingLineColor default clBlack;

	property ClippingLineStyle: TPenStyle read FClippingLineStyle write SetClippingLineStyle default psSolid;

	property ClippingLineWidth: Integer read FClippingLineWidth write SetClippingLineWidth default 1;

	property ClippingFillColor: TColor read FClippingFillColor write SetClippingFillColor default clRed;

	property ClippingFillStyle: TBrushStyle read FClippingFillStyle write SetClippingFillStyle default bsSolid;

	property ClippingBoxSize: Integer read FClippingBoxSize write SetClippingBoxSize default 5;

	property ShowMaximum: Boolean read FShowMaximum write SetShowMaximum default true;

	property ShowClipping: TGuiShowClipping read FShowClipping write SetShowClipping default scTop;

	property SampleRate: single read GetSampleRate write SetSampleRate;

	property MaximumTimeFactor: Single read FMaximumTimeFactor write SetMaximumTimeFactor;

	property LevelAttack: Single read GetLevelAttack write SetLevelAttack;

	property LevelRelease: Single read GetLevelRelease write SetLevelRelease;

	property LevelDirection: TGuiLevelDirection read FLevelDirection write SetLevelDirection default ldmVertical;

	property DisplayChannels: Integer read FDisplayChannels write SetDisplayChannels default 2;

	property BarWidthPercentage: Single read FBarWidthPercentage write SetBarWidthPercentage;