| Class TSignalDisplay (unit ZoomMain) |
TForm
| Constructors |
| Functions |
procedure AlignToBottom1Click(Sender: TObject);
procedure AlignToTop1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
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);
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);
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;