TSpinEditExBase

type generic TSpinEditExBase <T>= class(TCustomAbstractGroupedEdit)

protected

  FIncrement: T;

  FMaxValue: T;

  FMinValue: T;

  FMinRepeatValue: Byte;

  FNullValue: T;

  FNullValueBehaviour: TNullValueBehaviour;

  FValue: T;

  FInitialValue: T;

  function GetBuddyClassType; override;

  procedure DoEnter; override;

  function RealGetText; override;

  procedure Reset; override;

  procedure EditChange; override;

  procedure EditKeyDown(); override;

  procedure EditMouseWheelUp(); override;

  procedure EditMouseWheelDown(); override;

  function IsLimited;

  function SafeInc(); virtual; abstract;

  function SafeDec(); virtual; abstract;

  function SameValue(); virtual; abstract;

  procedure SetValue(); virtual;

  procedure SetNullValue(); virtual;

  procedure SetMaxValue(); virtual;

  procedure SetMinValue(); virtual;

  procedure SetIncrement(); virtual;

  function TextIsNumber(); virtual; abstract;

  procedure UpdateControl;

  procedure InitializeWnd; override;

  procedure FinalizeWnd; override;

  procedure Loaded; override;

  procedure EditEditingDone; override;

  procedure EditKeyPress(); override;

  procedure EditUtf8KeyPress(); override;

  property ArrowKeys: Boolean; [rw]

  property Edit: TGEEdit; [r]

  property UpDown: TUpDown; [r]

  property UpDownVisible: Boolean; [rw]

  property MinRepeatValue: Byte; [rw]

  property Orientation: TUDOrientation; [rw]

  property SpinButtonWidth: Integer; [rw]

public

  constructor Create(); override;

  function GetLimitedValue(); virtual;

  function ValueToStr(); virtual; abstract;

  function StrToValue(); virtual;

  function KeyAllowed(); virtual;

  function Utf8KeyAllowed(); virtual;

  property Increment: T; [rws]

  property MinValue: T; [rws]

  property MaxValue: T; [rws]

  property NullValue: T; [rw]

  property NullValueBehaviour: TNullValueBehaviour; [rw]

  property Value: T; [rw]

end;

TSpinEditExBase

TObject