Delphi ASIO & VST Package: DGuiMidiKeys: Class TGuiMidiKeys

Delphi ASIO & VST

Class TGuiMidiKeys

DescriptionHierarchyFieldsMethodsProperties

Unit

DGuiMidiKeys

Declaration

type TGuiMidiKeys = class(TGuiBaseControl)

Description

no description available, TGuiBaseControl description follows

Hierarchy

Overview

Methods

Public constructor Create(AOwner: TComponent); override;
Public destructor Destroy; override;
Public procedure SetKeyColor(FromKey, ToKey: Byte; BaseColor: TColor = clNone; Over: TColor = clNone; Pressed: TColor = clNone);
Public procedure SetKeyVelocity(FromKey, ToKey: Byte; Amount: single);
Public procedure SetKeyPressed(KeyNr: Byte; KeyDown: Boolean = true);
Public procedure ReleaseKey(KeyNr: Byte; ReleaseMouseTriggered: boolean = false);
Public procedure ReleaseAllKeys(ReleaseMouseTriggered: boolean = false);
Public procedure RemoveKeyColor(FromKey, ToKey: Byte);
Public procedure AllNotesOff(MouseTriggeredOnly: Boolean = true; ExceptKey: Integer = -1);
Public procedure RedrawBuffer(doBufferFlip: Boolean); override;
Public function MousePosToKey(X, Y: Integer; CheckYPos: Boolean = true): Integer; dynamic;
Public function GetZoneMouseOverType(X: Integer; KeyNr: Integer = -1; Zone: TGuiKeyZoneItem = nil): TGuiZoneMousePosType;
Public function ScreenCoordOnKey(X, Y: Integer; KeyNr: Integer; CheckYPos: Boolean = true): Boolean; dynamic;

Properties

Public property Keys: TGuiKeyArray read fKeys;
Published property ReleaseMouseBtnOnLeave;
Published property KeyDownMode: TGuiKeyDownMode read fKeyDownMode write SetKeyDownMode;
Published property BorderColor: TColor read fBorderColor write SetBorderColor default clBlack;
Published property KeySeparatorColor: TColor read fKeySeparatorColor write SetKeySeparatorColor default clBlack;
Published property ZoneSeparatorColor: TColor read fZoneSeparatorColor write SetZoneSeparatorColor default clBlack;
Published property ZoneBarColor: TColor read fZoneBarColor write SetZoneBarColor default clWhite;
Published property ZoneBarHoverColor: TColor read fZoneBarHoverColor write SetZoneBarHoverColor default $00CCEEFF;
Published property BlackKeyColor: TColor read fBlackKeyColor write SetBlackKeyColor default $00333333;
Published property BlackKeyHoverColor: TColor read fBlackKeyHoverColor write SetBlackKeyHoverColor default $00666666;
Published property BlackKeyPressedColor: TColor read fBlackKeyPressedColor write SetBlackKeyPressedColor default clSilver;
Published property WhiteKeyColor: TColor read fWhiteKeyColor write SetWhiteKeyColor default $00F8F8F8;
Published property WhiteKeyHoverColor: TColor read fWhiteKeyHoverColor write SetWhiteKeyHoverColor default $00DDDDDD;
Published property WhiteKeyPressedColor: TColor read fWhiteKeyPressedColor write SetWhiteKeyPressedColor default clSilver;
Published property CursorKeys: TCursor read fCursorKeys write fCursorKeys default crHandPoint;
Published property CursorZoneBar: TCursor read fCursorZoneBar write fCursorZoneBar default crDefault;
Published property CursorZone: TCursor read fCursorZone write fCursorZone default crSize;
Published property CursorZoneBorder: TCursor read fCursorZoneBorder write fCursorZoneBorder default crSizeWE;
Published property Height3d: Single read fHeight3d write SetHeight3d;
Published property BlackKeyHeight: Single read fBlackKeyHeight write SetBlackKeyHeight;
Published property BaseOctave: Byte read fBaseOctave write SetBaseOctave default 3;
Published property NumOctaves: Byte read fNumOctaves write SetNumOctaves default 3;
Published property IncludeLastOctave: Boolean read fIncludeLastOctave write SetIncludeLastOctave default false;
Published property KeyZones: TGuiKeyZoneCollection read fKeyZones write SetKeyZones;
Published property ShowKeyZones: Boolean read fShowKeyZones write SetShowKeyZones default True;
Published property KeyZoneHeight: Integer read fKeyZoneHeight write SetKeyZoneHeight default 10;
Published property AllowKeyDragging: Boolean read fAllowKeyDragging write fAllowKeyDragging default true;
Published property OnMouseUpOnMidiKey: TGuiOnMouseUpOnMidiKey read fOnMouseUpOnMidiKey write fOnMouseUpOnMidiKey;
Published property OnMouseUpOnKeyZoneBar: TGuiOnMouseUpOnKeyZoneBar read fOnMouseUpOnKeyZoneBar write fOnMouseUpOnKeyZoneBar;
Published property OnMouseDownOnMidiKey: TGuiOnMouseDownOnMidiKey read fOnMouseDownOnMidiKey write fOnMouseDownOnMidiKey;
Published property OnMouseDownKeyZoneBar: TGuiOnMouseDownOnKeyZoneBar read fOnMouseDownOnKeyZoneBar write fOnMouseDownOnKeyZoneBar;
Published property OnZoneBarMouseEnter: TGuiOnZoneBarMouseEnter read fOnZoneBarMouseEnter write fOnZoneBarMouseEnter;
Published property OnZoneBarMouseLeave: TGuiOnZoneBarMouseLeave read fOnZoneBarMouseLeave write fOnZoneBarMouseLeave;
Published property OnZoneMouseEnter: TGuiOnZoneMouseEnter read fOnZoneMouseEnter write fOnZoneMouseEnter;
Published property OnZoneMouseLeave: TGuiOnZoneMouseLeave read fOnZoneMouseLeave write fOnZoneMouseLeave;
Published property OnZoneMouseOverChanged: TGuiOnZoneMouseOverChanged read fOnZoneMouseOverChanged write fOnZoneMouseOverChanged;
Published property OnZoneSelectionChanged: TGuiOnZoneSelectionChanged read fOnZoneSelectionChanged write fOnZoneSelectionChanged;
Published property OnKeyMouseEnter: TGuiOnKeyMouseEnter read fOnKeyMouseEnter write fOnKeyMouseEnter;
Published property OnKeyMouseLeave: TGuiOnKeyMouseLeave read fOnKeyMouseLeave write fOnKeyMouseLeave;
Published property OnStartZoneBarDragging: TGuiOnStartZoneBarDragging read fOnStartZoneBarDragging write fOnStartZoneBarDragging;
Published property OnMoveZoneBarDragging: TGuiOnMoveZoneBarDragging read fOnMoveZoneBarDragging write fOnMoveZoneBarDragging;
Published property OnEndZoneBarDragging: TGuiOnEndZoneBarDragging read fOnEndZoneBarDragging write fOnEndZoneBarDragging;
Published property OnStartKeyDragging: TGuiOnStartKeyDragging read fOnStartKeyDragging write fOnStartKeyDragging;
Published property OnMoveKeyDragging: TGuiOnMoveKeyDragging read fOnMoveKeyDragging write fOnMoveKeyDragging;
Published property OnEndKeyDragging: TGuiOnEndKeyDragging read fOnEndKeyDragging write fOnEndKeyDragging;
Published property OnNoteOn: TGuiOnNoteOn read fOnNoteOn write fOnNoteOn;
Published property OnNoteOff: TGuiOnNoteOff read fOnNoteOff write fOnNoteOff;

Description

Methods

Public constructor Create(AOwner: TComponent); override;
 
Public destructor Destroy; override;
 
Public procedure SetKeyColor(FromKey, ToKey: Byte; BaseColor: TColor = clNone; Over: TColor = clNone; Pressed: TColor = clNone);
 
Public procedure SetKeyVelocity(FromKey, ToKey: Byte; Amount: single);
 
Public procedure SetKeyPressed(KeyNr: Byte; KeyDown: Boolean = true);
 
Public procedure ReleaseKey(KeyNr: Byte; ReleaseMouseTriggered: boolean = false);
 
Public procedure ReleaseAllKeys(ReleaseMouseTriggered: boolean = false);
 
Public procedure RemoveKeyColor(FromKey, ToKey: Byte);
 
Public procedure AllNotesOff(MouseTriggeredOnly: Boolean = true; ExceptKey: Integer = -1);
 
Public procedure RedrawBuffer(doBufferFlip: Boolean); override;
 
Public function MousePosToKey(X, Y: Integer; CheckYPos: Boolean = true): Integer; dynamic;
 
Public function GetZoneMouseOverType(X: Integer; KeyNr: Integer = -1; Zone: TGuiKeyZoneItem = nil): TGuiZoneMousePosType;
 
Public function ScreenCoordOnKey(X, Y: Integer; KeyNr: Integer; CheckYPos: Boolean = true): Boolean; dynamic;
 

Properties

Public property Keys: TGuiKeyArray read fKeys;
 
Published property ReleaseMouseBtnOnLeave;
 
Published property KeyDownMode: TGuiKeyDownMode read fKeyDownMode write SetKeyDownMode;
 
Published property BorderColor: TColor read fBorderColor write SetBorderColor default clBlack;
 
Published property KeySeparatorColor: TColor read fKeySeparatorColor write SetKeySeparatorColor default clBlack;
 
Published property ZoneSeparatorColor: TColor read fZoneSeparatorColor write SetZoneSeparatorColor default clBlack;
 
Published property ZoneBarColor: TColor read fZoneBarColor write SetZoneBarColor default clWhite;
 
Published property ZoneBarHoverColor: TColor read fZoneBarHoverColor write SetZoneBarHoverColor default $00CCEEFF;
 
Published property BlackKeyColor: TColor read fBlackKeyColor write SetBlackKeyColor default $00333333;
 
Published property BlackKeyHoverColor: TColor read fBlackKeyHoverColor write SetBlackKeyHoverColor default $00666666;
 
Published property BlackKeyPressedColor: TColor read fBlackKeyPressedColor write SetBlackKeyPressedColor default clSilver;
 
Published property WhiteKeyColor: TColor read fWhiteKeyColor write SetWhiteKeyColor default $00F8F8F8;
 
Published property WhiteKeyHoverColor: TColor read fWhiteKeyHoverColor write SetWhiteKeyHoverColor default $00DDDDDD;
 
Published property WhiteKeyPressedColor: TColor read fWhiteKeyPressedColor write SetWhiteKeyPressedColor default clSilver;
 
Published property CursorKeys: TCursor read fCursorKeys write fCursorKeys default crHandPoint;
 
Published property CursorZoneBar: TCursor read fCursorZoneBar write fCursorZoneBar default crDefault;
 
Published property CursorZone: TCursor read fCursorZone write fCursorZone default crSize;
 
Published property CursorZoneBorder: TCursor read fCursorZoneBorder write fCursorZoneBorder default crSizeWE;
 
Published property Height3d: Single read fHeight3d write SetHeight3d;
 
Published property BlackKeyHeight: Single read fBlackKeyHeight write SetBlackKeyHeight;
 
Published property BaseOctave: Byte read fBaseOctave write SetBaseOctave default 3;
 
Published property NumOctaves: Byte read fNumOctaves write SetNumOctaves default 3;
 
Published property IncludeLastOctave: Boolean read fIncludeLastOctave write SetIncludeLastOctave default false;
 
Published property KeyZones: TGuiKeyZoneCollection read fKeyZones write SetKeyZones;
 
Published property ShowKeyZones: Boolean read fShowKeyZones write SetShowKeyZones default True;
 
Published property KeyZoneHeight: Integer read fKeyZoneHeight write SetKeyZoneHeight default 10;
 
Published property AllowKeyDragging: Boolean read fAllowKeyDragging write fAllowKeyDragging default true;
 
Published property OnMouseUpOnMidiKey: TGuiOnMouseUpOnMidiKey read fOnMouseUpOnMidiKey write fOnMouseUpOnMidiKey;
 
Published property OnMouseUpOnKeyZoneBar: TGuiOnMouseUpOnKeyZoneBar read fOnMouseUpOnKeyZoneBar write fOnMouseUpOnKeyZoneBar;
 
Published property OnMouseDownOnMidiKey: TGuiOnMouseDownOnMidiKey read fOnMouseDownOnMidiKey write fOnMouseDownOnMidiKey;
 
Published property OnMouseDownKeyZoneBar: TGuiOnMouseDownOnKeyZoneBar read fOnMouseDownOnKeyZoneBar write fOnMouseDownOnKeyZoneBar;
 
Published property OnZoneBarMouseEnter: TGuiOnZoneBarMouseEnter read fOnZoneBarMouseEnter write fOnZoneBarMouseEnter;
 
Published property OnZoneBarMouseLeave: TGuiOnZoneBarMouseLeave read fOnZoneBarMouseLeave write fOnZoneBarMouseLeave;
 
Published property OnZoneMouseEnter: TGuiOnZoneMouseEnter read fOnZoneMouseEnter write fOnZoneMouseEnter;
 
Published property OnZoneMouseLeave: TGuiOnZoneMouseLeave read fOnZoneMouseLeave write fOnZoneMouseLeave;
 
Published property OnZoneMouseOverChanged: TGuiOnZoneMouseOverChanged read fOnZoneMouseOverChanged write fOnZoneMouseOverChanged;
 
Published property OnZoneSelectionChanged: TGuiOnZoneSelectionChanged read fOnZoneSelectionChanged write fOnZoneSelectionChanged;
 
Published property OnKeyMouseEnter: TGuiOnKeyMouseEnter read fOnKeyMouseEnter write fOnKeyMouseEnter;
 
Published property OnKeyMouseLeave: TGuiOnKeyMouseLeave read fOnKeyMouseLeave write fOnKeyMouseLeave;
 
Published property OnStartZoneBarDragging: TGuiOnStartZoneBarDragging read fOnStartZoneBarDragging write fOnStartZoneBarDragging;
 
Published property OnMoveZoneBarDragging: TGuiOnMoveZoneBarDragging read fOnMoveZoneBarDragging write fOnMoveZoneBarDragging;
 
Published property OnEndZoneBarDragging: TGuiOnEndZoneBarDragging read fOnEndZoneBarDragging write fOnEndZoneBarDragging;
 
Published property OnStartKeyDragging: TGuiOnStartKeyDragging read fOnStartKeyDragging write fOnStartKeyDragging;
 
Published property OnMoveKeyDragging: TGuiOnMoveKeyDragging read fOnMoveKeyDragging write fOnMoveKeyDragging;
 
Published property OnEndKeyDragging: TGuiOnEndKeyDragging read fOnEndKeyDragging write fOnEndKeyDragging;
 
Published property OnNoteOn: TGuiOnNoteOn read fOnNoteOn write fOnNoteOn;
 
Published property OnNoteOff: TGuiOnNoteOff read fOnNoteOff write fOnNoteOff;
 

Generated by PasDoc 0.10.0 on 2007-11-13 13:04:18