MidiMountain 0.4.0 |
 |
Class TfrmMMKeySignatureProperties
Unit
MMFormKeySignaturePropertiesDeclaration
type TfrmMMKeySignatureProperties = class(TfrmMMBaseProperties)
Description
MidiMountain Key Signatures PropertiesView of one Key signature
Hierarchy
TfrmMMBaseProperties > TfrmMMBaseFields
| Name | Description | |
|---|---|---|
 |
actDown | |
|
actKey | |
|
actUp | |
|
boxKey | |
|
btnCancel | |
|
btnOK | |
|
grpGlobal | |
|
grpKeySignature | |
|
imgKey | |
|
imgKeyFlat | |
|
imgKeySharp | |
|
lblKey | |
|
lblMeasure | |
|
pnlKey | |
|
rboMajor | |
|
rboMinor | |
|
SpeedButton1 | |
|
SpeedButton2 | |
|
spiMeasure |
Methods
Overview
|
procedure actDownExecute(Sender: TObject); |
|
procedure actUpExecute(Sender: TObject); |
|
procedure boxKeyPaint(Sender: TObject); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure FormCreate(Sender: TObject); |
|
procedure FormDestroy(Sender: TObject); |
|
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); |
 |
function GetItem: TMCItem; override; |
|
procedure rboMajorClick(Sender: TObject); |
|
function Show( const aItem: TMCItem; const aOffset: TMidiOffset ): integer; override; |
|
class function ShowKeySignature(const aOffset: Integer; const aKeySignature: TMCKeySignature = nil): integer; |
|
procedure SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure SpeedButton2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure Translate; override; |
Description
|
procedure actDownExecute(Sender: TObject); |
|
procedure actUpExecute(Sender: TObject); |
|
procedure boxKeyPaint(Sender: TObject); |
|
procedure btnOKClick(Sender: TObject); |
|
procedure FormCreate(Sender: TObject); |
|
procedure FormDestroy(Sender: TObject); |
|
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); |
|
function GetItem: TMCItem; override; |
|
procedure rboMajorClick(Sender: TObject); |
|
function Show( const aItem: TMCItem; const aOffset: TMidiOffset ): integer; override; |
show the dialog with the selected Key signature
|
class function ShowKeySignature(const aOffset: Integer; const aKeySignature: TMCKeySignature = nil): integer; |
|
procedure SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure SpeedButton2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
|
procedure Translate; override; |
see TfrmMMBase
MidiMountain 0.4.0 ©1999-2002 Adrian Meyer, developed with Delphi and Kylix