TOvcCustomNumberEdit

type TOvcCustomNumberEdit = class(TOvcEdPopup)

protected

  FAllowIncDec: Boolean;

  FCalculator: TOvcCalculator;

  PopupClosing: Boolean;

  HoldCursor: TCursor;

  WasAutoScroll: Boolean;

  function GetAsFloat;

  function GetAsInteger;

  function GetAsString;

  function GetPopupColors;

  function GetPopupDecimals;

  function GetPopupFont;

  function GetPopupHeight;

  function GetPopupWidth;

  function GetReadOnly;

  procedure SetAsFloat();

  procedure SetAsInteger();

  procedure SetAsString();

  procedure SetPopupColors();

  procedure SetPopupDecimals();

  procedure SetPopupFont();

  procedure SetPopupHeight();

  procedure SetPopupWidth();

  procedure SetReadOnly();

  procedure PopupButtonPressed();

  procedure PopupKeyDown();

  procedure PopupKeyPress();

  procedure PopupMouseDown();

  procedure DoExit; override;

  procedure GlyphChanged; override;

  procedure KeyDown(); override;

  procedure KeyPress(); override;

  property AllowIncDec: Boolean; [rw]

  property PopupColors: TOvcCalcColors; [rw]

  property PopupDecimals: Integer; [rw]

  property PopupFont: TFont; [rw]

  property PopupHeight: Integer; [rw]

  property PopupWidth: Integer; [rw]

  property ReadOnly: Boolean; [rw]

public

  constructor Create(); override;

  procedure PopupClose(); override;

  procedure PopupOpen; override;

  property AsInteger: LongInt; [rw]

  property Calculator: TOvcCalculator; [r]

  property AsFloat: Double; [rw]

  property AsString: string; [rw]

end;

TOvcCustomNumberEdit

TOvcEdPopup

TOvcCustomEdit

TObject