TfpgEditCurrency

type TfpgEditCurrency = class(TfpgBaseNumericEdit)

protected

  function GetValue; virtual;

  procedure SetValue(); virtual;

  procedure SetDecimals();

  procedure HandleKeyChar(); override;

  procedure HandleKeyPress(); override;

  procedure HandleSetFocus; override;

  procedure HandleKillFocus; override;

  procedure HandlePaint; override;

public

  constructor Create(); override;

  property OldColor;

  property Text;

published

  property Align;

  property CustomDecimalSeparator;

  property CustomThousandSeparator;

  property Decimals: Integer; [rw]

  property Enabled;

  property Hint;

  property NegativeColor;

  property ParentShowHint;

  property ReadOnly;

  property ShowHint;

  property ShowThousand;

  property TabOrder;

  property TextColor;

  property Value: Currency; [rw]

  property OnChange;

  property OnEnter;

  property OnExit;

  property OnKeyPress;

  property OnMouseEnter;

  property OnMouseExit;

  property OnShowHint;

end;

TfpgEditCurrency

TfpgBaseNumericEdit

TfpgBaseEdit

TfpgWidget

TObject