MidiMountain 0.4.0

Class TfrmMMMainView

Unit

Declaration

type TfrmMMMainView = class(TfrmMMBase)

Description

Hierarchy

Fields

	Name	Description
	barMainViewTimeZoom
	boxMainView
	btnMainViewLock
	lblMainViewTimeZoom
	lblTrack
	mpbMainView
	Panel1
	pnlMainView
	pnlMainViewBar
	pnlSeqPositionBar
	pnlSequence
	pnlTime
	pnlTrack
	pnlTrackColor
	scrMainView
	scrollMainView

Methods

Overview

	procedure barMainViewTimeZoomChange(Sender: TObject);
	procedure boxMainViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure boxMainViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure boxMainViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure boxMainViewPaint(Sender: TObject);
	procedure btnMainViewLockMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure FormCreate(Sender: TObject);
	procedure FormDestroy(Sender: TObject);
	procedure mpbMainViewAddKeySignature(const aOffset: Integer);
	procedure mpbMainViewAddMarker(const aOffset: Integer);
	procedure mpbMainViewAddTimeSignature(const aOffset: Integer);
	procedure mpbMainViewKeySignatureClick( const aKeySignature: TMCKeySignature);
	procedure mpbMainViewMarkerClick(const aMarker: TMCMarker);
	procedure mpbMainViewPagePositionChanged(const aPagePosition: Integer);
	procedure mpbMainViewTimeSignatureClick( const aTimeSignature: TMCTimeSignature);
	procedure pnlMainViewBarResize(Sender: TObject);
	procedure pnlSequenceResize(Sender: TObject);
	procedure scrMainViewMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
	procedure scrollMainViewChange(Sender: TObject);
	procedure scrollMainViewEnter(Sender: TObject);
	procedure scrollMainViewExit(Sender: TObject);
	procedure scrollMainViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
	procedure scrollMainViewKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
	procedure SetActivated(const Value: boolean); override;
	procedure Translate; override;

Description

procedure barMainViewTimeZoomChange(Sender: TObject);

procedure boxMainViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure boxMainViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure boxMainViewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure boxMainViewPaint(Sender: TObject);

procedure btnMainViewLockMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure mpbMainViewAddKeySignature(const aOffset: Integer);

procedure mpbMainViewAddMarker(const aOffset: Integer);

procedure mpbMainViewAddTimeSignature(const aOffset: Integer);

procedure mpbMainViewKeySignatureClick( const aKeySignature: TMCKeySignature);

procedure mpbMainViewMarkerClick(const aMarker: TMCMarker);

procedure mpbMainViewPagePositionChanged(const aPagePosition: Integer);

procedure mpbMainViewTimeSignatureClick( const aTimeSignature: TMCTimeSignature);

procedure pnlMainViewBarResize(Sender: TObject);

procedure pnlSequenceResize(Sender: TObject);

procedure scrMainViewMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

procedure scrollMainViewChange(Sender: TObject);

procedure scrollMainViewEnter(Sender: TObject);

procedure scrollMainViewExit(Sender: TObject);

procedure scrollMainViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure scrollMainViewKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure SetActivated(const Value: boolean); override;

activate the form

procedure Translate; override;

see TfrmMMBase