MidiMountain 0.4.0


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

Class TMMPositionBar

Unit

MMCompPositionBar

Declaration

type TMMPositionBar = class()

Description

MidiMountain Component Position Bar
Bar showing the position within the sequence inclusing time signatures and markers.

Methods

Overview

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

Description

Public constructor Create( aOwner: TComponent ); override;

create the component

Public destructor Destroy; override;

whack the component

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

mouse wheel is used

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

 

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

 

Public function GetPageEndPosition: TMidiOffset;

get the views last position visible in ticks

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

mouse is clicked

Protected procedure MouseEnter(AControl: TControl); override;

mouse enter the paint box

Protected procedure MouseLeave(AControl: TControl); override;

mouse leave the paint box

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

mouse is moved

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

mouse up event

Protected procedure Paint; override;

do the actual repaint

Protected procedure PaintPosition;

paint the sequence position

Protected procedure Redraw;

paint the bar

Protected procedure Resize; override;

resize the component (widget)

Protected procedure ResizeBuffer;

resize the internal buffer used for double buffering

Properties

Overview

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

Description

Private property Height: integer;

height of the bar

Private property ImageIndexKeySignature: integer;

image index for key signature item

Private property ImageIndexMarker: integer;

image index for marker menu item

Private property ImageIndexTimeSignature: integer;

image index for time signature item

Private property Images: TCustomImageList;

images for menu

Public property LockPosition: boolean;

lock the position of the sequence and scroll automatically

Private property MenuCaptionKeySignature: WideString;

menu caption for adding a key signature

Private property MenuCaptionMarker: WideString;

menu caption for adding a marker

Private property MenuCaptionTimeSignature: WideString;

menu caption for adding a time signature

Private property OnAddKeySignature: TOnMeasureClick;

add a key signature

Private property OnAddMarker: TOnMeasureClick;

add a marker

Private property OnAddTimeSignature: TOnMeasureClick;

add a time signature

Private property OnKeySignatureClick: TOnKeySignatureClick;

clicked on a Key signature

Private property OnMarkerClick: TOnMarkerClick;

clicked on a time signature

Private property OnPagePositionChanged: TOnPagePositionChanged;

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

Private property OnTimeSignatureClick: TOnTimeSignatureClick;

clicked on a time signature

Public property PagePosition: TMidiOffset;

position of left border within sequence

Public property TicksPerPixel: real;

resolution in ticks per pixel for time scaling

Private property Width: integer;

width of the bar


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