Class TGuiKeyZoneItem

Description

Hierarchy

Fields

Methods

Properties

Unit

DGuiMidiKeyZones

Declaration

type TGuiKeyZoneItem = class(TCollectionItem)

Description

Hierarchy

• TCollectionItem
• TGuiKeyZoneItem

Overview

Methods

	constructor Create(Collection: TCollection); override;
	procedure SetIndex(Value: Integer); override;
	procedure MoveZoneZ(NewIndex: Integer);
	procedure MoveZone(MoveAmount: Integer);
	procedure BringToFront;
	procedure SendToBack;
	procedure Select(doUpdate: Boolean = true);
	procedure SetMouseOver(MouseOverState: Boolean = true; doUpdate: Boolean = true);
	procedure UnSelect(doUpdate: Boolean = true);
	procedure SetBorders(Key1, Key2: Byte; doUpdate: Boolean = true);
	function KeyInZone(KeyNr: Byte): boolean;

Properties

	property DisplayName;
	property LowestZoneKey: Byte read fLowestZoneKey write SetLowestZoneKey default 48;
	property HighestZoneKey: Byte read fHighestZoneKey write SetHighestZoneKey default 59;
	property Visible: Boolean read fVisible write SetVisible default true;
	property DefaultBrushColor: TColor read fDefaultBrushColor write SetDefaultBrushColor default clSkyBlue;
	property DefaultBrushStyle: TBrushStyle read fDefaultBrushStyle write SetDefaultBrushStyle default bsSolid;
	property DefaultBorderColor: TColor read fDefaultBorderColor write SetDefaultBorderColor default clBlack;
	property DefaultBorderWidth: Integer read fDefaultBorderWidth write SetDefaultBorderWidth default 1;
	property DefaultBorderStyle: TPenStyle read fDefaultBorderStyle write SetDefaultBorderStyle default psSolid;
	property HoverBrushColor: TColor read fHoverBrushColor write SetHoverBrushColor default $FFDAB6;
	property HoverBrushStyle: TBrushStyle read fHoverBrushStyle write SetHoverBrushStyle default bsSolid;
	property HoverBorderColor: TColor read fHoverBorderColor write SetHoverBorderColor default clBlack;
	property HoverBorderWidth: Integer read fHoverBorderWidth write SetHoverBorderWidth default 1;
	property HoverBorderStyle: TPenStyle read fHoverBorderStyle write SetHoverBorderStyle default psSolid;
	property SelectedBrushColor: TColor read fSelectedBrushColor write SetSelectedBrushColor default $000099;
	property SelectedBrushStyle: TBrushStyle read fSelectedBrushStyle write SetSelectedBrushStyle default bsSolid;
	property SelectedBorderColor: TColor read fSelectedBorderColor write SetSelectedBorderColor default clBlack;
	property SelectedBorderWidth: Integer read fSelectedBorderWidth write SetSelectedBorderWidth default 1;
	property SelectedBorderStyle: TPenStyle read fSelectedBorderStyle write SetSelectedBorderStyle default psSolid;
	property Tag: Integer read fTag write fTag;
	property Selected: Boolean read fSelected;
	property IsMouseOver: Boolean read fIsMouseOver;

Description

Methods

	constructor Create(Collection: TCollection); override;

	procedure SetIndex(Value: Integer); override;

	procedure MoveZoneZ(NewIndex: Integer);

	procedure MoveZone(MoveAmount: Integer);

	procedure BringToFront;

	procedure SendToBack;

	procedure Select(doUpdate: Boolean = true);

	procedure SetMouseOver(MouseOverState: Boolean = true; doUpdate: Boolean = true);

	procedure UnSelect(doUpdate: Boolean = true);

	procedure SetBorders(Key1, Key2: Byte; doUpdate: Boolean = true);

	function KeyInZone(KeyNr: Byte): boolean;

Properties

	property DisplayName;

	property LowestZoneKey: Byte read fLowestZoneKey write SetLowestZoneKey default 48;

	property HighestZoneKey: Byte read fHighestZoneKey write SetHighestZoneKey default 59;

	property Visible: Boolean read fVisible write SetVisible default true;

	property DefaultBrushColor: TColor read fDefaultBrushColor write SetDefaultBrushColor default clSkyBlue;

	property DefaultBrushStyle: TBrushStyle read fDefaultBrushStyle write SetDefaultBrushStyle default bsSolid;

	property DefaultBorderColor: TColor read fDefaultBorderColor write SetDefaultBorderColor default clBlack;

	property DefaultBorderWidth: Integer read fDefaultBorderWidth write SetDefaultBorderWidth default 1;

	property DefaultBorderStyle: TPenStyle read fDefaultBorderStyle write SetDefaultBorderStyle default psSolid;

	property HoverBrushColor: TColor read fHoverBrushColor write SetHoverBrushColor default $FFDAB6;

	property HoverBrushStyle: TBrushStyle read fHoverBrushStyle write SetHoverBrushStyle default bsSolid;

	property HoverBorderColor: TColor read fHoverBorderColor write SetHoverBorderColor default clBlack;

	property HoverBorderWidth: Integer read fHoverBorderWidth write SetHoverBorderWidth default 1;

	property HoverBorderStyle: TPenStyle read fHoverBorderStyle write SetHoverBorderStyle default psSolid;

	property SelectedBrushColor: TColor read fSelectedBrushColor write SetSelectedBrushColor default $000099;

	property SelectedBrushStyle: TBrushStyle read fSelectedBrushStyle write SetSelectedBrushStyle default bsSolid;

	property SelectedBorderColor: TColor read fSelectedBorderColor write SetSelectedBorderColor default clBlack;

	property SelectedBorderWidth: Integer read fSelectedBorderWidth write SetSelectedBorderWidth default 1;

	property SelectedBorderStyle: TPenStyle read fSelectedBorderStyle write SetSelectedBorderStyle default psSolid;

	property Tag: Integer read fTag write fTag;

	property Selected: Boolean read fSelected;

	property IsMouseOver: Boolean read fIsMouseOver;

---

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