MidiMountain 0.4.0

Class TfrmMMMain

Unit

Declaration

type TfrmMMMain = class(TfrmMMBase)

Description

Hierarchy

Fields

	Name	Description
	actFileExit
	actFileNew
	actFileOpen
	actFileSave
	actFileSaveAs
	actHelpAbout
	actMain
	actOptionFont
	actOptionLanguageDump
	actOptionLanguageEnglish
	actOptionLargeIcons
	actOptionNoIcons
	actOptionPreferences
	actOptionSmallIcons
	actOptionStyleCDE
	actOptionStyleCDE1
	actOptionStyleDefault
	actOptionStyleDefault1
	actOptionStyleMotif
	actOptionStyleMotif1
	actOptionStyleMotifPlus
	actOptionStyleMotifPlus1
	actOptionStylePlatinum
	actOptionStylePlatinum1
	actOptionStyleSGI
	actOptionStyleSGI1
	actOptionStyleWindows
	actOptionStyleWindows1
	actOptionToolText
	actPlayEnd
	actPlayPanic
	actPlayRecord
	actPlayStart
	actPlayStop
	actPlayTop
	actTrackAdd
	actTrackDelete
	actTrackProperties
	actTracks
	actViewEventlist
	actViewMain
	actViewPianoRoll
	actViewSequence
	actViewSequenceProperties
	actViewStaff
	barMain
	barTrack
	dlgFont
	dlgOpen
	dlgSave
	dlgSaveLanguage
	End1
	English1
	Exit1
	Exit2
	FileSaveAs1
	LargeIcons1
	lblTracks
	lbxTracks
	mnuApplicationStyle
	mnuFile
	mnuFileSep1
	mnuHelp
	mnuLanguage
	mnuMain
	mnuOptionFont
	mnuOptions
	mnuPlay
	mnuPlayRecord
	mnuPlaySep1
	mnuPlayStart
	mnuPlayStop
	mnuToolBar
	mnuView
	mnuViewEventList
	mnuViewMain
	mnuViewPianoRoll
	mnuViewSep0
	mnuViewSep1
	mnuViewSep10
	mnuViewSequence
	mnuViewStaff
	N1
	New1
	NoIcons1
	op1
	Open1
	Panel1
	Panel2
	pcMain
	pcSequence
	pnlAll
	pnlConsole
	pnlDisplay
	pnlMain
	pnlSequence
	pnlTrack
	pnlTracksLabel
	Save1
	SaveEnglishLanguageFile1
	SequenceProperties1
	SequencerPreferences1
	ShowText1
	SmallIcons1
	SpeedButton1
	Splitter2
	splMain
	StatusBar1
	tabEventList
	tabMainView
	tabPianoRoll
	tabSequence
	tabSequenceCuePoints
	tabSequenceKeySignatures
	tabSequenceMarkers
	tabSequenceMetaData
	tabSequenceSMPTEOffsets
	tabSequenceSysEx
	tabSequenceTempo
	tabSequenceTimeSignatures
	tabStaff
	ToolButton1
	ToolButton10
	ToolButton11
	ToolButton12
	ToolButton13
	ToolButton14
	ToolButton15
	ToolButton16
	ToolButton2
	ToolButton3
	ToolButton4
	ToolButton5
	ToolButton6
	ToolButton7
	ToolButton8
	ToolButton9

Methods

Overview

	procedure actFileExitExecute(Sender: TObject);
	procedure actFileNewExecute(Sender: TObject);
	procedure actFileOpenExecute(Sender: TObject);
	procedure actFileSaveAsExecute(Sender: TObject);
	procedure actFileSaveExecute(Sender: TObject);
	procedure actHelpAboutExecute(Sender: TObject);
	procedure actMainUpdate(Action: TBasicAction; var Handled: Boolean);
	procedure actOptionFontExecute(Sender: TObject);
	procedure actOptionLanguageDumpExecute(Sender: TObject);
	procedure actOptionLanguageEnglishExecute(Sender: TObject);
	procedure actOptionPreferencesExecute(Sender: TObject);
	procedure actOptionStyleExecute(Sender: TObject);
	procedure actOptionToolTextExecute(Sender: TObject);
	procedure actPlayEndExecute(Sender: TObject);
	procedure actPlayPanicExecute(Sender: TObject);
	procedure actPlayRecordExecute(Sender: TObject);
	procedure actPlayStartExecute(Sender: TObject);
	procedure actPlayStopExecute(Sender: TObject);
	procedure actPlayTopExecute(Sender: TObject);
	procedure actTrackAddExecute(Sender: TObject);
	procedure actTrackDeleteExecute(Sender: TObject);
	procedure actTrackPropertiesExecute(Sender: TObject);
	procedure actViewSequencePropertiesExecute(Sender: TObject);
	procedure FormClose(Sender: TObject; var Action: TCloseAction);
	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
	procedure FormCreate(Sender: TObject);
	procedure FormDestroy(Sender: TObject);
	procedure FormResize(Sender: TObject);
	procedure FormShow(Sender: TObject);
	procedure lbxTracksDrawItem(Sender: TObject; Index: Integer; Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
	procedure lbxTracksMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure mnuLanguageClick(Sender: TObject);
	procedure pcMainPageChanging(Sender: TObject; NewPage: TTabSheet; var AllowChange: Boolean);
	procedure pnlConsoleResize(Sender: TObject);
	procedure pnlMainResize(Sender: TObject);
	procedure ToolbarChange(Sender: TObject);
	procedure Translate; override;
	procedure ViewChanged(Sender: TObject);

Description

procedure actFileExitExecute(Sender: TObject);

procedure actFileNewExecute(Sender: TObject);

procedure actFileOpenExecute(Sender: TObject);

procedure actFileSaveAsExecute(Sender: TObject);

procedure actFileSaveExecute(Sender: TObject);

procedure actHelpAboutExecute(Sender: TObject);

procedure actMainUpdate(Action: TBasicAction; var Handled: Boolean);

procedure actOptionFontExecute(Sender: TObject);

procedure actOptionLanguageDumpExecute(Sender: TObject);

procedure actOptionLanguageEnglishExecute(Sender: TObject);

procedure actOptionPreferencesExecute(Sender: TObject);

procedure actOptionStyleExecute(Sender: TObject);

procedure actOptionToolTextExecute(Sender: TObject);

procedure actPlayEndExecute(Sender: TObject);

procedure actPlayPanicExecute(Sender: TObject);

procedure actPlayRecordExecute(Sender: TObject);

procedure actPlayStartExecute(Sender: TObject);

procedure actPlayStopExecute(Sender: TObject);

procedure actPlayTopExecute(Sender: TObject);

procedure actTrackAddExecute(Sender: TObject);

procedure actTrackDeleteExecute(Sender: TObject);

procedure actTrackPropertiesExecute(Sender: TObject);

procedure actViewSequencePropertiesExecute(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure FormShow(Sender: TObject);

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

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

procedure mnuLanguageClick(Sender: TObject);

procedure pcMainPageChanging(Sender: TObject; NewPage: TTabSheet; var AllowChange: Boolean);

procedure pnlConsoleResize(Sender: TObject);

procedure pnlMainResize(Sender: TObject);

procedure ToolbarChange(Sender: TObject);

procedure Translate; override;

see TfrmMMBase

procedure ViewChanged(Sender: TObject);