Class TSpinEdit97 (unit AddOnTB97) |
Inherits from
TNumEdit97
////////////////////////////////////////////////////////////////////////////// // TSpinEdit97 // //////////////////////////////////////////////////////////////////////////////
constructor Create(AOwner: TComponent);
- ////////////////////////////////////////////////////////////////////////////// // TSpinEdit97 // //////////////////////////////////////////////////////////////////////////////
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);
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
FButton : TSpin97;
MouseInControl : Boolean;
constructor Create(AOwner: TComponent);
////////////////////////////////////////////////////////////////////////////// // TSpinEdit97 // //////////////////////////////////////////////////////////////////////////////
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);
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
FButton : TSpin97;
MouseInControl : Boolean;