TAdvMoneyEdit question


Is there a way to add thousand separator to TAdvMoneyEdit?, should the property AutoThousandSeparator add the separator, cuase is not working?

Any hints?

Thanks in advance,

Omar Zelaya

I think the issue is on procedure TCustomAdvEdit.SetText(Value: string) cause It does not check for FAutoThousandSeparator .
Code -> Value := Format('%g', [f]);

with the folowing change it works ok
if FAutoThousandSeparator then
    Value := Format('%n', [f])
else Value := Format('%g', [f]);

Did you try to set EditType = etMoney? Then it should automatically add the thousand & decimal separator.