CurrencyEdit

[RobYost]

Does anyone know how to have a edit field only accept currency? 

 

I currently use TcxCurrencyEdit,  (DevExpress) but obviously that wont work.

 

 

[Sherzod]

Hi,

 

You can use TUniNumberEdit, TUniFormattedNumberEdit

 

See a demo example:

\FMSoft\Framework\uniGUI\Demos\Desktop\FormattedEdit

Best regards.

[RobYost]

Thanks.  I made a new control that uses the system configuration of currency if anyone is interested.

 

I'm new to controls, so if you see a problem with this let me know.

 

 

unit UniCurrencyEdit;

interface

uses
  SysUtils, Classes, uniGUIBaseClasses,
  uniGUIClasses, uniEdit;

type

  TUniCurrencyEdit = class(TUniFormattedNumberEdit)
  private
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
  published

  end;

procedure Register;

implementation

constructor TUniCurrencyEdit.Create(AOwner: TComponent);
begin
  inherited;
  case (formatsettings.CurrencyFormat) of
    0:
      begin
        FormattedInput.CurrencySignPos := cpsLeft;
        FormattedInput.CurrencySignSpace := crsNone;
      end;
    1:
      begin
        FormattedInput.CurrencySignPos := cpsRight;
        FormattedInput.CurrencySignSpace := crsNone;
      end;
    2:
      begin
        FormattedInput.CurrencySignPos := cpsLeft;
        FormattedInput.CurrencySignSpace := crsAvailable;
      end;
    3:
      begin
        FormattedInput.CurrencySignPos := cpsRight;
        FormattedInput.CurrencySignSpace := crsAvailable;
      end;

  end;
  FormattedInput.ShowCurrencySign := True;
  FormattedInput.CurrencySign := FormatSettings.CurrencyString;
  ThousandSeparator := FormatSettings.ThousandSeparator;
  DecimalSeparator := FormatSettings.DecimalSeparator;
  Alignment := taRightJustify;
end;

procedure Register;
begin
  RegisterComponents('UniAddOns', [TUniCurrencyEdit]);
end;

end.

[TuanHoang]

Thanks.  I made a new control that uses the system configuration of currency if anyone is interested.

 

I'm new to controls, so if you see a problem with this let me know.

 

 

unit UniCurrencyEdit;

 

interface

 

uses

  SysUtils, Classes, uniGUIBaseClasses,

  uniGUIClasses, uniEdit;

 

type

 

  TUniCurrencyEdit = class(TUniFormattedNumberEdit)

  private

  protected

    { Protected declarations }

  public

    constructor Create(AOwner: TComponent); override;

  published

 

  end;

 

procedure Register;

 

implementation

 

constructor TUniCurrencyEdit.Create(AOwner: TComponent);

begin

  inherited;

  case (formatsettings.CurrencyFormat) of

    0:

      begin

        FormattedInput.CurrencySignPos := cpsLeft;

        FormattedInput.CurrencySignSpace := crsNone;

      end;

    1:

      begin

        FormattedInput.CurrencySignPos := cpsRight;

        FormattedInput.CurrencySignSpace := crsNone;

      end;

    2:

      begin

        FormattedInput.CurrencySignPos := cpsLeft;

        FormattedInput.CurrencySignSpace := crsAvailable;

      end;

    3:

      begin

        FormattedInput.CurrencySignPos := cpsRight;

        FormattedInput.CurrencySignSpace := crsAvailable;

      end;

 

  end;

  FormattedInput.ShowCurrencySign := True;

  FormattedInput.CurrencySign := FormatSettings.CurrencyString;

  ThousandSeparator := FormatSettings.ThousandSeparator;

  DecimalSeparator := FormatSettings.DecimalSeparator;

  Alignment := taRightJustify;

end;

 

procedure Register;

begin

  RegisterComponents('UniAddOns', [TUniCurrencyEdit]);

end;

 

end.

 

I think must set DecimalUseOSDefault := True on Create.