MidiMountain 0.4.0


Units
Classes, Interfaces and Objects
Types
Variables
Constants
Functions and Procedures
Identifiers

Class TfrmMMEventList

Unit

MMFormEventList

Declaration

type TfrmMMEventList = class(TfrmMMBaseList)

Description

MidiMountain Events
View of Events

Hierarchy

TfrmMMBaseList > TfrmMMBase

Fields

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

Methods

Overview

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

Description

Public procedure actEventAddExecute(Sender: TObject);

 

Public procedure actEventDeleteExecute(Sender: TObject);

 

Public procedure actEventPropertiesExecute(Sender: TObject);

 

Public procedure actFilterNotesExecute(Sender: TObject);

 

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

 

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

 

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

 

Public procedure boxEventListPaint(Sender: TObject);

 

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

 

Public procedure btnEventListLockClick(Sender: TObject);

 

Protected procedure ClearSelection;

clear the selection

Public procedure FormCreate(Sender: TObject);

 

Public procedure FormDestroy(Sender: TObject);

 

Public procedure hcEventListResize(Sender: TObject);

 

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

 

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

check for the event index under the mouse

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

 

Protected procedure RebuildList; override;

rebuild the list with events

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

 

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

 

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

 

Protected procedure SetActivated(const Value: boolean); override;

activate the event list

Public procedure tmrEventListTimer(Sender: TObject);

 

Public procedure Translate; override;

see TfrmMMBase

Protected procedure ValidateGUI; override;

validate the GUI


MidiMountain 0.4.0 1999-2002 Adrian Meyer, developed with Delphi and Kylix


Generated by DIPasDoc 0.8.0 on Wed 29 Oct 2003 21:59:09