Class TSignalDisplay (unit ZoomMain)

Inherits from

TForm

Constructors



Functions

procedure AlignToBottom1Click(Sender: TObject);


procedure AlignToTop1Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

position shown by InvertRect in ZoomDisplay1Paint

procedure Hollow1Click(Sender: TObject);


procedure Horizontal1Click(Sender: TObject);


procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);


procedure MediaPlayer1Notify(Sender: TObject);


procedure Open1Click(Sender: TObject);

while mmioDescend

procedure SaveDialogTypeChange(Sender: TObject);


procedure SaveSignalImageClick(Sender: TObject);


procedure Solid1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure TrackBar1Change(Sender: TObject);


procedure Vertical1Click(Sender: TObject);


procedure ZoomDisplay1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure ZoomDisplay1GetHorzScalePoint(Sender: TObject; var Value: Extended);


procedure ZoomDisplay1GetVertScalePoint(Sender: TObject; var Value: Extended);


procedure ZoomDisplay1MouseLeave(Sender: TObject);


procedure ZoomDisplay1Paint(Sender: TObject);


procedure ZoomDisplay1SelectionChange(Sender: TObject);


procedure ZoomDisplay1WorldPosChange(Sender: TObject; X, Y: Single);


procedure ZoomDisplay1ZoomMax(Sender: TObject);


procedure ZoomDisplay1ZoomMin(Sender: TObject);


procedure ZoomIn1Click(Sender: TObject);


procedure ZoomOff1Click(Sender: TObject);

right channel: red lines

procedure ZoomOut1Click(Sender: TObject);


procedure ChangeSelection(Sender: TObject; var Pos: TWorldCoord);


procedure OpenFile(FileName: string);


function Percent(Value: Extended): Extended;


procedure ReadWavFile(FileName: string);


Properties

Events

Variables

AlignToBottom1 : TMenuItem;


AlignToTop1 : TMenuItem;


File1 : TMenuItem;


Hollow1 : TMenuItem;


Horizontal1 : TMenuItem;


MainMenu1 : TMainMenu;


Markers1 : TMenuItem;


MediaPlayer1 : TMediaPlayer;


Open1 : TMenuItem;


OpenDialog : TOpenDialog;


PaintMode1 : TMenuItem;


Panel1 : TPanel;


SaveDialog : TSaveDialog;


SaveSignalImage : TMenuItem;


Scales1 : TMenuItem;


Solid1 : TMenuItem;


SpeedButton1 : TSpeedButton;


StatusBar : TStatusBar;


Timer1 : TTimer;


TrackBar1 : TTrackBar;


Vertical1 : TMenuItem;


Zoom1 : TMenuItem;


ZoomDisplay1 : TZoomDisplay;


ZoomIn1 : TMenuItem;


ZoomOff1 : TMenuItem;


ZoomOut1 : TMenuItem;


Buf : PByteArray;


FBitsPerSample : Integer;


FChannels : Integer;


FMark : THorzMarker;


FMonochrome : Boolean;


FPlayPos : Integer;


FSampleRate : Integer;


FSelEnd : THorzMarker;


FSelStart : THorzMarker;



Constructors


Functions


procedure AlignToBottom1Click(Sender: TObject);


procedure AlignToTop1Click(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

position shown by InvertRect in ZoomDisplay1Paint


procedure Hollow1Click(Sender: TObject);


procedure Horizontal1Click(Sender: TObject);


procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean);


procedure MediaPlayer1Notify(Sender: TObject);


procedure Open1Click(Sender: TObject);

while mmioDescend


procedure SaveDialogTypeChange(Sender: TObject);


procedure SaveSignalImageClick(Sender: TObject);


procedure Solid1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure Timer1Timer(Sender: TObject);


procedure TrackBar1Change(Sender: TObject);


procedure Vertical1Click(Sender: TObject);


procedure ZoomDisplay1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure ZoomDisplay1GetHorzScalePoint(Sender: TObject; var Value: Extended);


procedure ZoomDisplay1GetVertScalePoint(Sender: TObject; var Value: Extended);


procedure ZoomDisplay1MouseLeave(Sender: TObject);


procedure ZoomDisplay1Paint(Sender: TObject);


procedure ZoomDisplay1SelectionChange(Sender: TObject);


procedure ZoomDisplay1WorldPosChange(Sender: TObject; X, Y: Single);


procedure ZoomDisplay1ZoomMax(Sender: TObject);


procedure ZoomDisplay1ZoomMin(Sender: TObject);


procedure ZoomIn1Click(Sender: TObject);


procedure ZoomOff1Click(Sender: TObject);

right channel: red lines


procedure ZoomOut1Click(Sender: TObject);


procedure ChangeSelection(Sender: TObject; var Pos: TWorldCoord);


procedure OpenFile(FileName: string);


function Percent(Value: Extended): Extended;


procedure ReadWavFile(FileName: string);


Properties


Events


Variables


AlignToBottom1 : TMenuItem;


AlignToTop1 : TMenuItem;


File1 : TMenuItem;


Hollow1 : TMenuItem;


Horizontal1 : TMenuItem;


MainMenu1 : TMainMenu;


Markers1 : TMenuItem;


MediaPlayer1 : TMediaPlayer;


Open1 : TMenuItem;


OpenDialog : TOpenDialog;


PaintMode1 : TMenuItem;


Panel1 : TPanel;


SaveDialog : TSaveDialog;


SaveSignalImage : TMenuItem;


Scales1 : TMenuItem;


Solid1 : TMenuItem;


SpeedButton1 : TSpeedButton;


StatusBar : TStatusBar;


Timer1 : TTimer;


TrackBar1 : TTrackBar;


Vertical1 : TMenuItem;


Zoom1 : TMenuItem;


ZoomDisplay1 : TZoomDisplay;


ZoomIn1 : TMenuItem;


ZoomOff1 : TMenuItem;


ZoomOut1 : TMenuItem;


Buf : PByteArray;


FBitsPerSample : Integer;


FChannels : Integer;


FMark : THorzMarker;


FMonochrome : Boolean;


FPlayPos : Integer;


FSampleRate : Integer;


FSelEnd : THorzMarker;


FSelStart : THorzMarker;