04-24-2022, 11:38 AM
Hello Alexandre,
thanks for your reply. However, it doesn't work. According to your information:
procedure TTstServer.IWServerControllerBaseConfig(Sender: TObject);
begin
RegionalSettings.DecimalSeparator := ',';
RegionalSettings.ThousandSeparator := '.';
RegionalSettings.CurrencyString := 'NZD';
RegionalSettings.CurrencyFormat := 2; // currency symbol + a space are placed on the left side of the number.
RegionalSettings.ShowThousandSeparator := True;
end;
procedure TTstWindow.IWAppFormCreate(Sender: TObject);
begin
IWEdit1.DataType := stNumber;
IWEdit1.DataTypeOptions.FloatDP := 2;
IWEdit1.DataTypeOptions.NumberType := ntFloat;
IWEdit1.DataTypeOptions.NumberValidation := nvIntraWeb;
end;
When entering, no comma is possible.
I suggest extending the demo program on GitHub accordingly. The mistakes should become obvious.
Thanks in advance for checking and fixing.
Detlef
thanks for your reply. However, it doesn't work. According to your information:
procedure TTstServer.IWServerControllerBaseConfig(Sender: TObject);
begin
RegionalSettings.DecimalSeparator := ',';
RegionalSettings.ThousandSeparator := '.';
RegionalSettings.CurrencyString := 'NZD';
RegionalSettings.CurrencyFormat := 2; // currency symbol + a space are placed on the left side of the number.
RegionalSettings.ShowThousandSeparator := True;
end;
procedure TTstWindow.IWAppFormCreate(Sender: TObject);
begin
IWEdit1.DataType := stNumber;
IWEdit1.DataTypeOptions.FloatDP := 2;
IWEdit1.DataTypeOptions.NumberType := ntFloat;
IWEdit1.DataTypeOptions.NumberValidation := nvIntraWeb;
end;
When entering, no comma is possible.
I suggest extending the demo program on GitHub accordingly. The mistakes should become obvious.
Thanks in advance for checking and fixing.
Detlef
The way to success is always under construction ... but i see a light at the end of the tunnel

