TOvcCustomNumericField

type TOvcCustomNumericField = class(TOvcPictureBase)

protected

  FNumericDataType: TNumericDataType;

  FPictureMask: string;

  nfMaxLen: Word;

  nfMaxDigits: Word;

  nfPlaces: Word;

  nfMinus: Boolean;

  nfTmp: TEditString;

  function nfGetDataType();

  procedure nfReloadTmp;

  procedure nfResetFieldProperties();

  procedure nfSetDefaultRanges;

  procedure nfSetMaxLength();

  procedure WMSetFocus(); message;

  procedure WMKillFocus(); message;

  procedure CreateParams(); override;

  procedure CreateWnd; override;

  procedure efCaretToEnd; override;

  procedure efCaretToStart; override;

  procedure efChangeMask(); override;

  procedure efEdit(); override;

  function efGetDisplayString(); override;

  procedure efIncDecValue(); override;

  function efTransfer(); override;

  procedure pbRemoveSemiLits; override;

  procedure efSetCaretPos(); override;

  procedure nfSetDataType(); virtual;

  procedure nfSetPictureMask(); virtual;

public

  procedure Assign(); override;

  constructor Create(); override;

  function efValidateField; override;

  property DataType: TNumericDataType; [rw]

  property PictureMask: string; [rw]

end;

TOvcCustomNumericField

TOvcPictureBase

TOvcBaseEntryField

TOvcCustomControlEx

TOvcCustomControl

TObject