MidiMountain 0.4.0

Class TfrmMMEventProperties

Unit

Declaration

type TfrmMMEventProperties = class(TfrmMMBaseProperties)

Description

Hierarchy

Fields

	Name	Description
	actNote
	actNote1_1
	actNote1_16
	actNote1_2
	actNote1_32
	actNote1_4
	actNote1_8
	Bevel1
	Bevel2
	Bevel3
	Bevel4
	Bevel5
	btnCancel
	btnControllerPreview
	btnNote1_1
	btnNote1_16
	btnNote1_2
	btnNote1_32
	btnNote1_4
	btnNote1_8
	btnNoteOctaves
	btnNotePreview
	btnOK
	btnPitchWheelCenter
	btnPitchWheelDown
	btnPitchWheelUp
	btnProgramGroups
	btnProgramPreview
	bvlNote
	cboAftertouchNote
	cboController
	cboNotePitch
	cboProgram
	cbxTrack
	chkDotted
	chkTripplet
	grpGlobal
	lblAftertouchNote
	lblChannel
	lblController
	lblControllerValue
	lblDuration
	lblMeasure
	lblNoteResolution
	lblPitch
	lblPitchWheel
	lblPitchWheelPercent
	lblProgram
	lblTrack
	lblVelocity
	mbtEvent
	mnuNoteOctaves
	mnuProgramGroups
	pcEvent
	rboAftertouchChannel
	rboAftertouchPolyphonic
	redAftertouchChannel
	redAftertouchPolyphonic
	redControllerValue
	redNoteVelocity
	redPitchWheel
	spiChannel
	spiNoteDurationQuarter
	spiNoteDurationTicks
	tabAftertouch
	tabController
	tabNote
	tabPitchWheel
	tabProgramChange

Methods

Overview

	procedure btnControllerPreviewClick(Sender: TObject);
	procedure btnNoteOctavesClick(Sender: TObject);
	procedure btnNotePreviewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure btnNotePreviewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure btnOKClick(Sender: TObject);
	procedure btnPitchWheelCenterClick(Sender: TObject);
	procedure btnPitchWheelDownClick(Sender: TObject);
	procedure btnPitchWheelUpClick(Sender: TObject);
	procedure btnProgramGroupsClick(Sender: TObject);
	procedure btnProgramPreviewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure btnProgramPreviewMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure cbxTrackDrawItem(Sender: TObject; Index: Integer; Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
	procedure DurationPick(Sender: TObject);
	procedure FormCreate(Sender: TObject);
	function GetItem: TMCItem; override;
	procedure mbtEventChange(Sender: TObject);
	procedure redAftertouchChannelChange(Sender: TObject);
	procedure redPitchWheelChange(Sender: TObject);
	function Show( const aItem: TMCItem; const aOffset: TMidiOffset ): integer; override;
	procedure Translate; override;

Description

procedure btnControllerPreviewClick(Sender: TObject);

procedure btnNoteOctavesClick(Sender: TObject);

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

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

procedure btnOKClick(Sender: TObject);

procedure btnPitchWheelCenterClick(Sender: TObject);

procedure btnPitchWheelDownClick(Sender: TObject);

procedure btnPitchWheelUpClick(Sender: TObject);

procedure btnProgramGroupsClick(Sender: TObject);

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

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

procedure cbxTrackDrawItem(Sender: TObject; Index: Integer; Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);

procedure DurationPick(Sender: TObject);

procedure FormCreate(Sender: TObject);

function GetItem: TMCItem; override;

procedure mbtEventChange(Sender: TObject);

procedure redAftertouchChannelChange(Sender: TObject);

procedure redPitchWheelChange(Sender: TObject);

function Show( const aItem: TMCItem; const aOffset: TMidiOffset ): integer; override;

show the dialog with the selected Event

procedure Translate; override;

see TfrmMMBase

Properties

Overview

	property Event: TMCEvent;
	property Track: TMCTrack;

Description

property Event: TMCEvent;

access to the new event

property Track: TMCTrack;

MIDI track to add a new event to