Decimal separator

[Edu]

Is it possible to change the numeric decimal separator (VK_DECIMAL) for the entire application?
In Delphi I can do this with ApplicationEvents:

procedure TForm.ApplicationEventsMessage(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_KEYDOWN) and
  (Msg.wParam = VK_DECIMAL) and
  (Odd(GetKeyState(VK_NUMLOCK))) and
  (DecimalSeparator = ',') then
  Msg.wParam := 188;
end;

Thanks,

Edu

[Marc]

I don't think that it will be supported

[Lightning]

Don't use windows specific things, even Delphi has some global variable/structure for this, can't remember exactly the name ...

[Anonymous]

In Delphi there are many system wide variables:


var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;

var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;

var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;

var TListSeparator: Char;


Would you be so kind to tell us where we can find similiar variables in  Lazarus  ?

[Marc]

grep ? find in files ?