Delphi ASIO & VST Package: DGuiMidiKeys

Delphi ASIO & VST

previous page next page

Unit DGuiMidiKeys

DescriptionusesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

 

Overview

Classes, Interfaces, Objects and Records

Name Description
record TGuiKbMouseDragInfo  
record TGuiZbMouseDragInfo  
record TGuiColorRect  
record TGuiSingleKey  
Class TGuiMidiKeys  

Types

TGuiZoneMousePosType = set of (mptOutside, mptInZone, mptOnLowestKey, mptOnHighestKey, mptOnLowestBorder, mptOnHighestBorder);
TGuiKbMouseAction = (...);
TGuiKeyFlags = set of (kfBlackKey, kfVisible, kfPressed, kfMouseOver, kfByMouse, kfMousePinned);
TGuiKeyDownMode = (...);
TGuiKeyArray = array[0..GUI_KB_HIGHESTKEY] of TGuiSingleKey;
TGuiOnMouseUpOnMidiKey = procedure (Sender: TObject; KeyNr: Byte; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnMouseDownOnMidiKey = procedure (Sender: TObject; KeyNr: Byte; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnMouseUpOnKeyZoneBar = procedure (Sender: TObject; KeyNr: Byte; Zone: TGuiKeyZoneItem; MouseOverType: TGuiZoneMousePosType; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnMouseDownOnKeyZoneBar = procedure (Sender: TObject; KeyNr: Byte; Zone: TGuiKeyZoneItem; MouseOverType: TGuiZoneMousePosType; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnZoneBarMouseEnter = procedure (Sender: TObject; KeyNr: Byte; Shift: TShiftState; X, Y: Integer) of Object;
TGuiOnZoneBarMouseLeave = TNotifyEvent;
TGuiOnZoneMouseEnter = procedure (Sender: TObject; Zone: TGuiKeyZoneItem; Shift: TShiftState; X, Y: Integer) of Object;
TGuiOnZoneMouseLeave = procedure (Sender: TObject; Zone: TGuiKeyZoneItem) of Object;
TGuiOnZoneMouseOverChanged = procedure (Sender: TObject; KeyNr: Byte; Zone: TGuiKeyZoneItem; MouseOverType: TGuiZoneMousePosType; Shift: TShiftState; X, Y: Integer) of Object;
TGuiOnZoneSelectionChanged = procedure (Sender: TObject; Zone: TGuiKeyZoneItem) of Object;
TGuiOnKeyMouseEnter = procedure (Sender: TObject; KeyNr: Byte; Shift: TShiftState; X, Y: Integer) of Object;
TGuiOnKeyMouseLeave = procedure (Sender: TObject; KeyNr: Byte) of Object;
TGuiOnStartZoneBarDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiZbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnMoveZoneBarDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiZbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnEndZoneBarDragging = procedure (Sender: TObject; var DragInfo: TGuiZbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnStartKeyDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiKbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnMoveKeyDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiKbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnEndKeyDragging = procedure (Sender: TObject; var DragInfo: TGuiKbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
TGuiOnNoteOn = procedure (Sender: TObject; KeyNr: Byte; Velocity: Single) of Object;
TGuiOnNoteOff = procedure (Sender: TObject; KeyNr: Byte) of Object;

Constants

GUI_KB_MAXOCTAVES = 11;
GUI_KB_HIGHESTKEY = GUI_KB_MAXOCTAVES*12+1;

Description

Types

TGuiZoneMousePosType = set of (mptOutside, mptInZone, mptOnLowestKey, mptOnHighestKey, mptOnLowestBorder, mptOnHighestBorder);

Octaves + Highest C

TGuiKbMouseAction = (...);
 
Values
  • kmaMove:
  • kmaDown:
  • kmaUp:
  • kmaStartDrag:
TGuiKeyFlags = set of (kfBlackKey, kfVisible, kfPressed, kfMouseOver, kfByMouse, kfMousePinned);
 
TGuiKeyDownMode = (...);
 
Values
  • kdmUp:
  • kdmFlat:
  • kdmDown:
TGuiKeyArray = array[0..GUI_KB_HIGHESTKEY] of TGuiSingleKey;
 
TGuiOnMouseUpOnMidiKey = procedure (Sender: TObject; KeyNr: Byte; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnMouseDownOnMidiKey = procedure (Sender: TObject; KeyNr: Byte; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnMouseUpOnKeyZoneBar = procedure (Sender: TObject; KeyNr: Byte; Zone: TGuiKeyZoneItem; MouseOverType: TGuiZoneMousePosType; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnMouseDownOnKeyZoneBar = procedure (Sender: TObject; KeyNr: Byte; Zone: TGuiKeyZoneItem; MouseOverType: TGuiZoneMousePosType; Button: TMouseButton; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnZoneBarMouseEnter = procedure (Sender: TObject; KeyNr: Byte; Shift: TShiftState; X, Y: Integer) of Object;
 
TGuiOnZoneBarMouseLeave = TNotifyEvent;
 
TGuiOnZoneMouseEnter = procedure (Sender: TObject; Zone: TGuiKeyZoneItem; Shift: TShiftState; X, Y: Integer) of Object;
 
TGuiOnZoneMouseLeave = procedure (Sender: TObject; Zone: TGuiKeyZoneItem) of Object;
 
TGuiOnZoneMouseOverChanged = procedure (Sender: TObject; KeyNr: Byte; Zone: TGuiKeyZoneItem; MouseOverType: TGuiZoneMousePosType; Shift: TShiftState; X, Y: Integer) of Object;
 
TGuiOnZoneSelectionChanged = procedure (Sender: TObject; Zone: TGuiKeyZoneItem) of Object;
 
TGuiOnKeyMouseEnter = procedure (Sender: TObject; KeyNr: Byte; Shift: TShiftState; X, Y: Integer) of Object;
 
TGuiOnKeyMouseLeave = procedure (Sender: TObject; KeyNr: Byte) of Object;
 
TGuiOnStartZoneBarDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiZbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnMoveZoneBarDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiZbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnEndZoneBarDragging = procedure (Sender: TObject; var DragInfo: TGuiZbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnStartKeyDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiKbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnMoveKeyDragging = procedure (Sender: TObject; KeyNr: Integer; var DragInfo: TGuiKbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnEndKeyDragging = procedure (Sender: TObject; var DragInfo: TGuiKbMouseDragInfo; Shift: TShiftState; X,Y: Integer) of Object;
 
TGuiOnNoteOn = procedure (Sender: TObject; KeyNr: Byte; Velocity: Single) of Object;
 
TGuiOnNoteOff = procedure (Sender: TObject; KeyNr: Byte) of Object;
 

Constants

GUI_KB_MAXOCTAVES = 11;

-$DEFINE Debug

GUI_KB_HIGHESTKEY = GUI_KB_MAXOCTAVES*12+1;
 
Generated by PasDoc 0.10.0 on 2007-11-13 13:04:17
previous page start next page