MidiMountain 0.4.0

Class TMMPositionBar

Unit

Declaration

type TMMPositionBar = class()

Description

Methods

Overview

	constructor Create( aOwner: TComponent ); override;
	destructor Destroy; override;
	function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; const MousePos: TPoint): Boolean; override;
	function DoMouseWheelDown(Shift: TShiftState; const MousePos: TPoint): Boolean; override;
	function DoMouseWheelUp(Shift: TShiftState; const MousePos: TPoint): Boolean; override;
	function GetPageEndPosition: TMidiOffset;
	procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
	procedure MouseEnter(AControl: TControl); override;
	procedure MouseLeave(AControl: TControl); override;
	procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
	procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
	procedure Paint; override;
	procedure PaintPosition;
	procedure Redraw;
	procedure Resize; override;
	procedure ResizeBuffer;

Description

constructor Create( aOwner: TComponent ); override;

create the component

destructor Destroy; override;

whack the component

function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; const MousePos: TPoint): Boolean; override;

mouse wheel is used

function DoMouseWheelDown(Shift: TShiftState; const MousePos: TPoint): Boolean; override;

function DoMouseWheelUp(Shift: TShiftState; const MousePos: TPoint): Boolean; override;

function GetPageEndPosition: TMidiOffset;

get the views last position visible in ticks

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

mouse is clicked

procedure MouseEnter(AControl: TControl); override;

mouse enter the paint box

procedure MouseLeave(AControl: TControl); override;

mouse leave the paint box

procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;

mouse is moved

procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;

mouse up event

procedure Paint; override;

do the actual repaint

procedure PaintPosition;

paint the sequence position

procedure Redraw;

paint the bar

procedure Resize; override;

resize the component (widget)

procedure ResizeBuffer;

resize the internal buffer used for double buffering

Properties

Overview

	property Height: integer;
	property ImageIndexKeySignature: integer;
	property ImageIndexMarker: integer;
	property ImageIndexTimeSignature: integer;
	property Images: TCustomImageList;
	property LockPosition: boolean;
	property MenuCaptionKeySignature: WideString;
	property MenuCaptionMarker: WideString;
	property MenuCaptionTimeSignature: WideString;
	property OnAddKeySignature: TOnMeasureClick;
	property OnAddMarker: TOnMeasureClick;
	property OnAddTimeSignature: TOnMeasureClick;
	property OnKeySignatureClick: TOnKeySignatureClick;
	property OnMarkerClick: TOnMarkerClick;
	property OnPagePositionChanged: TOnPagePositionChanged;
	property OnTimeSignatureClick: TOnTimeSignatureClick;
	property PagePosition: TMidiOffset;
	property TicksPerPixel: real;
	property Width: integer;

Description

property Height: integer;

height of the bar

property ImageIndexKeySignature: integer;

image index for key signature item

property ImageIndexMarker: integer;

image index for marker menu item

property ImageIndexTimeSignature: integer;

image index for time signature item

property Images: TCustomImageList;

images for menu

property LockPosition: boolean;

lock the position of the sequence and scroll automatically

property MenuCaptionKeySignature: WideString;

menu caption for adding a key signature

property MenuCaptionMarker: WideString;

menu caption for adding a marker

property MenuCaptionTimeSignature: WideString;

menu caption for adding a time signature

property OnAddKeySignature: TOnMeasureClick;

add a key signature

property OnAddMarker: TOnMeasureClick;

add a marker

property OnAddTimeSignature: TOnMeasureClick;

add a time signature

property OnKeySignatureClick: TOnKeySignatureClick;

clicked on a Key signature

property OnMarkerClick: TOnMarkerClick;

clicked on a time signature

property OnPagePositionChanged: TOnPagePositionChanged;

the page position changed by drag-scrolling or wheeling with the mouse

property OnTimeSignatureClick: TOnTimeSignatureClick;

clicked on a time signature

property PagePosition: TMidiOffset;

position of left border within sequence

property TicksPerPixel: real;

resolution in ticks per pixel for time scaling

property Width: integer;

width of the bar