Class TSpinEdit97 (unit AddOnTB97)

Inherits from

TNumEdit97

////////////////////////////////////////////////////////////////////////////// // TSpinEdit97 // //////////////////////////////////////////////////////////////////////////////

Constructors


constructor Create(AOwner: TComponent);

////////////////////////////////////////////////////////////////////////////// // TSpinEdit97 // //////////////////////////////////////////////////////////////////////////////


Functions

destructor Destroy;


procedure ButtonMouseEnter(Sender: TObject);


procedure CreateWnd;


procedure DownClick (Sender: TObject);


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


procedure RedrawButton;


procedure UpClick (Sender: TObject);


procedure CMEnter(var Message: TCMGotFocus);


procedure CMExit(var Message: TCMExit);


procedure CMMouseEnter (var Message: TMessage);


procedure CMMouseLeave (var Message: TMessage);


function GetDownCaption: TCaption;

////////////////////////////////////////////////////////////////////////////// TSpinEdit97 Procedures & Functions for DOWN-Button //////////////////////////////////////////////////////////////////////////////

function GetDownGlyph: TBitmap;


function GetDownLayout: TButtonLayout;


function GetDownMargin: Integer;


function GetDownMask: TBitmap;


function GetDownNumGlyphs: TNumGlyphs;


function GetDownSpacing: Integer;


function GetIncrement: Double;


function GetSpinKind: TSpin97Kind;


function GetSpinWidth: Integer;


function GetUpCaption: TCaption;

////////////////////////////////////////////////////////////////////////////// TSpinEdit97 Procedures & Functions for UP-Button //////////////////////////////////////////////////////////////////////////////

function GetUpGlyph: TBitmap;


function GetUpLayout: TButtonLayout;


function GetUpMargin: Integer;


function GetUpMask: TBitmap;


function GetUpNumGlyphs: TNumGlyphs;


function GetUpSpacing: Integer;


procedure SetDownCaption(Value: TCaption);


procedure SetDownGlyph(Value: TBitmap);


procedure SetDownLayout(Value: TButtonLayout);


procedure SetDownMargin(Value:Integer);


procedure SetDownMask (Value: TBitmap);


procedure SetDownNumGlyphs(Value: TNumGlyphs);


procedure SetDownSpacing(Value: Integer);


procedure SetEditRect;


procedure SetIncrement(Value: Double);


procedure SetSpinKind(Value: TSpin97Kind);


procedure SetSpinWidth(Value: Integer);


procedure SetUpCaption(Value: TCaption);


procedure SetUpGlyph(Value: TBitmap);


procedure SetUpLayout(Value: TButtonLayout);


procedure SetUpMargin(Value:Integer);


procedure SetupMask (Value: TBitmap);


procedure SetUpNumGlyphs(Value: TNumGlyphs);


procedure SetUpSpacing(Value: Integer);


procedure WMCut(var Message: TWMCut);


procedure WMKillFocus (var Message: TWMKillFocus);


procedure WMNCPaint (var Message: TMessage);


procedure WMPaste(var Message: TWMPaste);


procedure WMSetFocus (var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties

property DownCaption : TCaption


property DownGlyph : TBitmap


property DownLayout : TButtonLayout


property DownMargin : Integer


property DownMask : TBitmap


property DownNumGlyphs : TNumGlyphs


property DownSpacing : Integer


property DragCursor :


property DragMode :


property Increment : Double


property SpinKind : TSpin97Kind

default 1;

property SpinWidth : Integer


property UpCaption : TCaption


property UpGlyph : TBitmap


property UpLayout : TButtonLayout


property UpMargin : Integer


property UpMask : TBitmap


property UpNumGlyphs : TNumGlyphs


property UpSpacing : Integer


property Value : Double


Events

Variables

FButton : TSpin97;


MouseInControl : Boolean;



Constructors


constructor Create(AOwner: TComponent);

////////////////////////////////////////////////////////////////////////////// // TSpinEdit97 // //////////////////////////////////////////////////////////////////////////////


Functions


destructor Destroy;


procedure ButtonMouseEnter(Sender: TObject);


procedure CreateWnd;


procedure DownClick (Sender: TObject);


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


procedure RedrawButton;


procedure UpClick (Sender: TObject);


procedure CMEnter(var Message: TCMGotFocus);


procedure CMExit(var Message: TCMExit);


procedure CMMouseEnter (var Message: TMessage);


procedure CMMouseLeave (var Message: TMessage);


function GetDownCaption: TCaption;

////////////////////////////////////////////////////////////////////////////// TSpinEdit97 Procedures & Functions for DOWN-Button //////////////////////////////////////////////////////////////////////////////


function GetDownGlyph: TBitmap;


function GetDownLayout: TButtonLayout;


function GetDownMargin: Integer;


function GetDownMask: TBitmap;


function GetDownNumGlyphs: TNumGlyphs;


function GetDownSpacing: Integer;


function GetIncrement: Double;


function GetSpinKind: TSpin97Kind;


function GetSpinWidth: Integer;


function GetUpCaption: TCaption;

////////////////////////////////////////////////////////////////////////////// TSpinEdit97 Procedures & Functions for UP-Button //////////////////////////////////////////////////////////////////////////////


function GetUpGlyph: TBitmap;


function GetUpLayout: TButtonLayout;


function GetUpMargin: Integer;


function GetUpMask: TBitmap;


function GetUpNumGlyphs: TNumGlyphs;


function GetUpSpacing: Integer;


procedure SetDownCaption(Value: TCaption);


procedure SetDownGlyph(Value: TBitmap);


procedure SetDownLayout(Value: TButtonLayout);


procedure SetDownMargin(Value:Integer);


procedure SetDownMask (Value: TBitmap);


procedure SetDownNumGlyphs(Value: TNumGlyphs);


procedure SetDownSpacing(Value: Integer);


procedure SetEditRect;


procedure SetIncrement(Value: Double);


procedure SetSpinKind(Value: TSpin97Kind);


procedure SetSpinWidth(Value: Integer);


procedure SetUpCaption(Value: TCaption);


procedure SetUpGlyph(Value: TBitmap);


procedure SetUpLayout(Value: TButtonLayout);


procedure SetUpMargin(Value:Integer);


procedure SetupMask (Value: TBitmap);


procedure SetUpNumGlyphs(Value: TNumGlyphs);


procedure SetUpSpacing(Value: Integer);


procedure WMCut(var Message: TWMCut);


procedure WMKillFocus (var Message: TWMKillFocus);


procedure WMNCPaint (var Message: TMessage);


procedure WMPaste(var Message: TWMPaste);


procedure WMSetFocus (var Message: TWMSetFocus);


procedure WMSize(var Message: TWMSize);


Properties


property DownCaption : TCaption


property DownGlyph : TBitmap


property DownLayout : TButtonLayout


property DownMargin : Integer


property DownMask : TBitmap


property DownNumGlyphs : TNumGlyphs


property DownSpacing : Integer


property DragCursor :


property DragMode :


property Increment : Double


property SpinKind : TSpin97Kind

default 1;


property SpinWidth : Integer


property UpCaption : TCaption


property UpGlyph : TBitmap


property UpLayout : TButtonLayout


property UpMargin : Integer


property UpMask : TBitmap


property UpNumGlyphs : TNumGlyphs


property UpSpacing : Integer


property Value : Double


Events


Variables


FButton : TSpin97;


MouseInControl : Boolean;