MidiMountain 0.4.0

Class TfrmMMEventList

Unit

Declaration

type TfrmMMEventList = class(TfrmMMBaseList)

Description

Hierarchy

Fields

	Name	Description
	actEventAdd
	actEventDelete
	actEventProperties
	actEvents
	actFilterController
	actFilterNotes
	actFilterOtherEvents
	AddEvent1
	barEvents
	boxEventList
	btnEventAdd
	btnEventDelete
	btnEventListFrequencies
	btnEventListLock
	btnEventProperties
	btnEventSep
	chkController
	chkNotes
	chkOtherEvents
	Controller1
	DeleteEvent1
	hcEventList
	imeSignatureProperties1
	lblEventCount
	mnuEvents
	N1
	N2
	Notes1
	OtherEvents1
	pnlEventList
	pnlMainViewBar
	scrEventList
	tmrEventList
	ToolButton1

Methods

Overview

	procedure actEventAddExecute(Sender: TObject);
	procedure actEventDeleteExecute(Sender: TObject);
	procedure actEventPropertiesExecute(Sender: TObject);
	procedure actFilterNotesExecute(Sender: TObject);
	procedure boxEventListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure boxEventListMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure boxEventListMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure boxEventListPaint(Sender: TObject);
	procedure btnEventListFrequenciesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure btnEventListLockClick(Sender: TObject);
	procedure ClearSelection;
	procedure FormCreate(Sender: TObject);
	procedure FormDestroy(Sender: TObject);
	procedure hcEventListResize(Sender: TObject);
	procedure hcEventListSectionResize(HeaderControl: TCustomHeaderControl; Section: TCustomHeaderSection);
	function HitTestIndex( const x,y: integer ): integer;
	procedure listEventListCustomDrawSubItem(Sender: TCustomViewControl; Item: TCustomViewItem; SubItem: Integer; Canvas: TCanvas; const Rect: TRect; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
	procedure RebuildList; override;
	procedure scrEventListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
	procedure scrEventListKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
	procedure scrEventListScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
	procedure SetActivated(const Value: boolean); override;
	procedure tmrEventListTimer(Sender: TObject);
	procedure Translate; override;
	procedure ValidateGUI; override;

Description

procedure actEventAddExecute(Sender: TObject);

procedure actEventDeleteExecute(Sender: TObject);

procedure actEventPropertiesExecute(Sender: TObject);

procedure actFilterNotesExecute(Sender: TObject);

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

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

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

procedure boxEventListPaint(Sender: TObject);

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

procedure btnEventListLockClick(Sender: TObject);

procedure ClearSelection;

clear the selection

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure hcEventListResize(Sender: TObject);

procedure hcEventListSectionResize(HeaderControl: TCustomHeaderControl; Section: TCustomHeaderSection);

function HitTestIndex( const x,y: integer ): integer;

check for the event index under the mouse

procedure listEventListCustomDrawSubItem(Sender: TCustomViewControl; Item: TCustomViewItem; SubItem: Integer; Canvas: TCanvas; const Rect: TRect; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean);

procedure RebuildList; override;

rebuild the list with events

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

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

procedure scrEventListScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);

procedure SetActivated(const Value: boolean); override;

activate the event list

procedure tmrEventListTimer(Sender: TObject);

procedure Translate; override;

see TfrmMMBase

procedure ValidateGUI; override;

validate the GUI