Class TASSwitcher (unit ASswitch)

Inherits from

TCustomControl

Constructors


Constructor Create(AOwner:TComponent);

Public declarations

----------- TASSwitcher ------------



Functions

Procedure Change;

Protected declarations

Procedure DoEnter;


Procedure DoExit;


Procedure DrawFace;


Procedure DrawPointer;


Procedure DrawTicks;


Procedure KeyDown(var Key:Word; Shift:TShiftState);


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


Procedure MouseMove(Shift:TShiftState; X,Y:Integer);


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


Procedure Paint;

(TickCount);

Procedure CMMouseLeave(var Msg:TMessage);


Procedure GradToCoords_;


Procedure GradValues_;


Procedure SearchGradForPoint;

2.

Procedure SetDrawFocused(Value:Boolean);


Procedure SetDrawTicks(Value:Boolean);


Procedure SetMax(Value:Integer);


Procedure SetMin(Value:Integer);

Can't lock resource

Procedure SetPosition(Value:Integer);


Procedure SetPrintValues(Value:Boolean);


Procedure SetResourceType(Value:String);


Procedure SetSoundChange(Value:String);


Procedure SetSoundType(Value:TWhereSoundStore);

Offset:=40;

Procedure TextValuesTicks;

ControlState := ControlState - [csCreating];

Procedure WMGetDlgCode(var Msg:TWMGetDlgCode);


Properties

property Color :


property DragCursor :


property DragMode :


property DrawFocused : Boolean


property DrawTicks_ : Boolean


property Enabled :


property HelpContext :


property Hint :


property Max : Integer

Published declarations

property ParentShowHint :


property PopupMenu :


property Position : Integer


property PrintValues : Boolean


property ResourceType : String


property ShowHint :


property SoundChange : String


property SoundType : TWhereSoundStore


property Visible :


property WaveOptions : TWaveOptions


property Min : Integer


Events

event OnChange : TNotifyEvent


event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FDrawFocused : Boolean;


FDrawTicks_ : Boolean;


FMax : Integer;


FMin : Integer;

Private declarations

FOnChange : TNotifyEvent;


FPalyOptions : TWaveOptions;


FPosition : Integer;


FPrintValues : Boolean;


FResourceType : String;


FSoundChange : String;


FSoundType : TWhereSoundStore;


FWaveOptions : Word;



Constructors


Constructor Create(AOwner:TComponent);

Public declarations

----------- TASSwitcher ------------


Functions


Procedure Change;

Protected declarations


Procedure DoEnter;


Procedure DoExit;


Procedure DrawFace;


Procedure DrawPointer;


Procedure DrawTicks;


Procedure KeyDown(var Key:Word; Shift:TShiftState);


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


Procedure MouseMove(Shift:TShiftState; X,Y:Integer);


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


Procedure Paint;

(TickCount);


Procedure CMMouseLeave(var Msg:TMessage);


Procedure GradToCoords_;


Procedure GradValues_;


Procedure SearchGradForPoint;

2.5


Procedure SetDrawFocused(Value:Boolean);


Procedure SetDrawTicks(Value:Boolean);


Procedure SetMax(Value:Integer);


Procedure SetMin(Value:Integer);

Can't lock resource


Procedure SetPosition(Value:Integer);


Procedure SetPrintValues(Value:Boolean);


Procedure SetResourceType(Value:String);


Procedure SetSoundChange(Value:String);


Procedure SetSoundType(Value:TWhereSoundStore);

Offset:=40;


Procedure TextValuesTicks;

ControlState := ControlState - [csCreating];


Procedure WMGetDlgCode(var Msg:TWMGetDlgCode);


Properties


property Color :


property DragCursor :


property DragMode :


property DrawFocused : Boolean


property DrawTicks_ : Boolean


property Enabled :


property HelpContext :


property Hint :


property Max : Integer

Published declarations


property ParentShowHint :


property PopupMenu :


property Position : Integer


property PrintValues : Boolean


property ResourceType : String


property ShowHint :


property SoundChange : String


property SoundType : TWhereSoundStore


property Visible :


property WaveOptions : TWaveOptions


property Min : Integer


Events


event OnChange : TNotifyEvent


event OnClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FDrawFocused : Boolean;


FDrawTicks_ : Boolean;


FMax : Integer;


FMin : Integer;

Private declarations


FOnChange : TNotifyEvent;


FPalyOptions : TWaveOptions;


FPosition : Integer;


FPrintValues : Boolean;


FResourceType : String;


FSoundChange : String;


FSoundType : TWhereSoundStore;


FWaveOptions : Word;