TCustomGuiMidiKeys

type TCustomGuiMidiKeys = class(TCustomGuiBaseAntialiasedControl)

protected

  FRedrawEnabled: Boolean;

  FKeys: TGuiKeyArray;

  FBaseOctave: Byte;

  FNumOctaves: Byte;

  FIncludeLastOctave: Boolean;

  FShowKeyZones: Boolean;

  FAllowKeyDragging: Boolean;

  FKeyZoneHeight: Integer;

  FKeyZones: TGuiKeyZoneCollection;

  FBlackKeyHeight: Single;

  FHeight3D: Single;

  FBorderColor: TColor;

  FKeySeparatorColor: TColor;

  FZoneSeparatorColor: TColor;

  FZoneBarColor: TColor;

  FZoneBarHoverColor: TColor;

  FBlackKeyColor: TColor;

  FBlackKeyHoverColor: TColor;

  FBlackKeyPressedColor: TColor;

  FWhiteKeyColor: TColor;

  FWhiteKeyHoverColor: TColor;

  FWhiteKeyPressedColor: TColor;

  FKeyDownMode: TGuiKeyDownMode;

  FCursorKeys: TCursor;

  FCursorZoneBar: TCursor;

  FCursorZone: TCursor;

  FCursorZoneBorder: TCursor;

  FZoneMouseOverType: TGuiZoneMousePosType;

  FOnGetKeyColor: TGuiOnGetKeyColorEvent;

  FOnMouseUpOnMidiKey: TGuiOnMouseUpOnMidiKey;

  FOnMouseUpOnKeyZoneBar: TGuiOnMouseUpOnKeyZoneBar;

  FOnMouseDownOnMidiKey: TGuiOnMouseDownOnMidiKey;

  FOnMouseDownOnKeyZoneBar: TGuiOnMouseDownOnKeyZoneBar;

  FOnZoneBarMouseEnter: TGuiOnZoneBarMouseEnter;

  FOnZoneBarMouseLeave: TGuiOnZoneBarMouseLeave;

  FOnZoneMouseEnter: TGuiOnZoneMouseEnter;

  FOnZoneMouseLeave: TGuiOnZoneMouseLeave;

  FOnZoneMouseOverChanged: TGuiOnZoneMouseOverChanged;

  FOnZoneSelectionChanged: TGuiOnZoneSelectionChanged;

  FOnKeyMouseEnter: TGuiOnKeyMouseEnter;

  FOnKeyMouseLeave: TGuiOnKeyMouseLeave;

  FOnStartZoneBarDragging: TGuiOnStartZoneBarDragging;

  FOnMoveZoneBarDragging: TGuiOnMoveZoneBarDragging;

  FOnEndZoneBarDragging: TGuiOnEndZoneBarDragging;

  FOnStartKeyDragging: TGuiOnStartKeyDragging;

  FOnMoveKeyDragging: TGuiOnMoveKeyDragging;

  FOnEndKeyDragging: TGuiOnEndKeyDragging;

  FOnNoteOn: TGuiOnNoteOn;

  FOnNoteOff: TGuiOnNoteOff;

  FMidiKeyDragging: TGuiKbMouseDragInfo;

  FMidiZoneBarDragging: TGuiZbMouseDragInfo;

  FMidiZoneBarMouseOver: Boolean;

  procedure AntialiasChanged; override;

  function CalculateLights(); virtual;

  procedure CalculateVisibleKeys; virtual;

  procedure InitKeys; virtual;

  procedure DrawKeyZones(); virtual;

  procedure DrawSingleKey(); virtual;

  procedure DrawKeys(); virtual;

  procedure RenderToBitmap(); virtual;

  procedure MouseLeaveAllKeys(); virtual;

  procedure MouseLeaveAllZones(); virtual;

  procedure UnSelectAllZones(); virtual;

  procedure ResizeBuffer; override;

  procedure BaseOctaveChanged; virtual;

  procedure BlackKeyColorChanged; virtual;

  procedure BlackKeyHeightChanged; virtual;

  procedure BlackKeyHoverColorChanged; virtual;

  procedure BlackKeyPressedColorChanged; virtual;

  procedure BorderColorChanged; virtual;

  procedure Height3DChanged; virtual;

  procedure IncludeLastOctaveChanged; virtual;

  procedure KeyDownModeChanged; virtual;

  procedure KeySeparatorColorChanged; virtual;

  procedure KeyZoneHeightChanged; virtual;

  procedure NumOctavesChanged; virtual;

  procedure ShowKeyZonesChanged; virtual;

  procedure WhiteKeyColorChanged; virtual;

  procedure WhiteKeyHoverColorChanged; virtual;

  procedure WhiteKeyPressedColorChanged; virtual;

  procedure ZoneBarColorChanged; virtual;

  procedure ZoneBarHoverColorChanged; virtual;

  procedure ZoneSeparatorColorChanged; virtual;

  procedure FireNoteOn(); dynamic;

  procedure FireNoteOff(); dynamic;

  procedure MouseLeave; override;

  procedure KeyMouseEnter(); dynamic;

  procedure KeyMouseLeave(); dynamic;

  procedure MouseUp(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure StartZoneBarDragging(); dynamic;

  procedure MoveZoneBarDragging(); dynamic;

  procedure EndZoneBarDragging(); dynamic;

  procedure StartKeyDragging(); dynamic;

  procedure MoveKeyDragging(); dynamic;

  procedure EndKeyDragging(); dynamic;

  procedure ZoneMouseActivity(); dynamic;

  procedure ZoneMouseEnter(); dynamic;

  procedure ZoneMouseLeave(); dynamic;

  procedure ZoneMouseOverChanged(); dynamic;

  procedure ZoneBarMouseEnter(); dynamic;

  procedure ZoneBarMouseLeave; dynamic;

  procedure ZoneSelectionChanged(); dynamic;

  procedure MouseUpOnMidiKey(); dynamic;

  procedure MouseDownOnMidiKey(); dynamic;

  procedure MouseUpOnKeyZoneBar(); dynamic;

  procedure MouseDownOnKeyZoneBar(); dynamic;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetKeyColor();

  procedure SetKeyVelocity();

  procedure SetKeyPressed();

  procedure ReleaseKey();

  procedure ReleaseAllKeys();

  procedure RemoveKeyColor();

  procedure AllNotesOff();

  procedure UpdateBuffer; override;

  function MousePosToKey(); dynamic;

  function GetZoneMouseOverType();

  function ScreenCoordOnKey(); dynamic;

  property Keys: TGuiKeyArray; [r]

  property KeyDownMode: TGuiKeyDownMode; [rw]

  property BorderColor: TColor; [rw]

  property KeySeparatorColor: TColor; [rw]

  property ZoneSeparatorColor: TColor; [rw]

  property ZoneBarColor: TColor; [rw]

  property ZoneBarHoverColor: TColor; [rw]

  property BlackKeyColor: TColor; [rw]

  property BlackKeyHoverColor: TColor; [rw]

  property BlackKeyPressedColor: TColor; [rw]

  property WhiteKeyColor: TColor; [rw]

  property WhiteKeyHoverColor: TColor; [rw]

  property WhiteKeyPressedColor: TColor; [rw]

  property CursorKeys: TCursor; [rw]

  property CursorZoneBar: TCursor; [rw]

  property CursorZone: TCursor; [rw]

  property CursorZoneBorder: TCursor; [rw]

  property Height3d: Single; [rw]

  property BlackKeyHeight: Single; [rw]

  property BaseOctave: Byte; [rw]

  property NumOctaves: Byte; [rw]

  property IncludeLastOctave: Boolean; [rw]

  property KeyZones: TGuiKeyZoneCollection; [rw]

  property ShowKeyZones: Boolean; [rw]

  property KeyZoneHeight: Integer; [rw]

  property AllowKeyDragging: Boolean; [rw]

  property OnGetKeyColor: TGuiOnGetKeyColorEvent; [rw]

  property OnMouseUpOnMidiKey: TGuiOnMouseUpOnMidiKey; [rw]

  property OnMouseUpOnKeyZoneBar: TGuiOnMouseUpOnKeyZoneBar; [rw]

  property OnMouseDownOnMidiKey: TGuiOnMouseDownOnMidiKey; [rw]

  property OnMouseDownKeyZoneBar: TGuiOnMouseDownOnKeyZoneBar; [rw]

  property OnZoneBarMouseEnter: TGuiOnZoneBarMouseEnter; [rw]

  property OnZoneBarMouseLeave: TGuiOnZoneBarMouseLeave; [rw]

  property OnZoneMouseEnter: TGuiOnZoneMouseEnter; [rw]

  property OnZoneMouseLeave: TGuiOnZoneMouseLeave; [rw]

  property OnZoneMouseOverChanged: TGuiOnZoneMouseOverChanged; [rw]

  property OnZoneSelectionChanged: TGuiOnZoneSelectionChanged; [rw]

  property OnKeyMouseEnter: TGuiOnKeyMouseEnter; [rw]

  property OnKeyMouseLeave: TGuiOnKeyMouseLeave; [rw]

  property OnStartZoneBarDragging: TGuiOnStartZoneBarDragging; [rw]

  property OnMoveZoneBarDragging: TGuiOnMoveZoneBarDragging; [rw]

  property OnEndZoneBarDragging: TGuiOnEndZoneBarDragging; [rw]

  property OnStartKeyDragging: TGuiOnStartKeyDragging; [rw]

  property OnMoveKeyDragging: TGuiOnMoveKeyDragging; [rw]

  property OnEndKeyDragging: TGuiOnEndKeyDragging; [rw]

  property OnNoteOn: TGuiOnNoteOn; [rw]

  property OnNoteOff: TGuiOnNoteOff; [rw]

end;

TCustomGuiMidiKeys

TCustomGuiBaseAntialiasedControl

TCustomGuiBaseMouseControl

TCustomGuiBaseControl

TBufferedGraphicControl

TObject