TKCustomNumberEdit

type TKCustomNumberEdit = class(TCustomEdit)

protected

  procedure Change; override;

  procedure CreateWnd; override;

  procedure DoOnChangeBounds; override;

  procedure DoWarning(); virtual;

  function GetCaption; virtual;

  procedure GetFormat(); virtual;

  function GetMax; virtual;

  function GetMaxAsInt;

  function GetMin; virtual;

  function GetMinAsInt; virtual;

  procedure GetPrefixSuffix(); virtual;

  function GetRealSelStart; virtual;

  function GetRealSelLength; virtual;

  function GetSigned; virtual;

  function GetValue; virtual;

  function GetValueAsInt; virtual;

  function GetValueAsText; virtual;

  function InspectInputChar(); virtual;

  function IsCaptionStored; virtual;

  function IsCustomSuffixStored; virtual;

  function IsMaxStored; virtual;

  function IsMinStored; virtual;

  function IsUpDownStepStored; virtual;

  function IsValueStored; virtual;

  procedure KeyPress(); override;

  procedure Notification(); override;

  procedure SafeSetFocus; virtual;

  procedure SetAcceptedFormats(); virtual;

  procedure SetCaption(); virtual;

  procedure SetCustomSuffix(); virtual;

  procedure SetDecimalSeparator(); virtual;

  procedure SetDisplayedFormat(); virtual;

  procedure SetFixedWidth(); virtual;

  procedure SetFlat(); virtual;

  function SetFormat(); virtual;

  procedure SetHexPrefix(); virtual;

  procedure SetLabelPosition(); virtual;

  procedure SetLabelSpacing(); virtual;

  procedure SetMax(); virtual;

  procedure SetMaxAsInt(); virtual;

  procedure SetMin(); virtual;

  procedure SetMinAsInt(); virtual;

  procedure SetName(); override;

  procedure SetOptions(); virtual;

  procedure SetParent(); override;

  procedure SetPrecision(); virtual;

  procedure SetUpDownStep(); virtual;

  procedure SetValue(); virtual;

  procedure SetValueAsInt(); virtual;

  procedure SetValueAsText(); virtual;

  procedure TextToValue; virtual;

  procedure UpdateFormats; virtual;

  procedure UpdateLabel; virtual;

  procedure UpdateMaxMin; virtual;

  procedure UpdateUpDown(); virtual;

  procedure UpdateUpDownPos; virtual;

  procedure UpDownChange; virtual;

  procedure UpDownChangingEx();

  procedure ValueToText; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Empty; virtual;

  procedure Validate; virtual;

  property AcceptedFormats: TKNumberEditAcceptedFormats; [rw]

  property Caption: TCaption; [rws]

  property CustomSuffix: string; [rws]

  property DecimalSeparator: char; [rw]

  property DisplayedFormat: TKNumberEditDisplayedFormat; [rw]

  property FixedWidth: Integer; [rw]

  property HexPrefix: TKNumberEditHexPrefix; [rw]

  property LabelPosition: TKLabelPosition; [rw]

  property LabelSpacing: Cardinal; [rw]

  property LastInputFormat: TKNumberEditDisplayedFormat; [rw]

  property Log: TKLog; [rw]

  property Max: Extended; [rws]

  property MaxAsInt: Int64; [rw]

  property Min: Extended; [rws]

  property MinAsInt: Int64; [rw]

  property Options: TKNumberEditOptions; [rw]

  property Precision: Integer; [rw]

  property Signed: Boolean; [r]

  property UpDownStep: Extended; [rws]

  property Value: Extended; [rws]

  property ValueAsInt: Int64; [rw]

  property ValueAsText: string; [rw]

  property WarningColor: TColor; [rw]

  property OnUpDownChange: TNotifyEvent; [rw]

end;

TKCustomNumberEdit

TObject