Add(InlineCode,13998318,336,231)
{
 @Hint=#5:Local|6:Months|7:and Day|
 WorkPoints=#12:doListMonths|10:doIistDays|7:doMonth|5:doDay|
 EventPoints=#10:ListMonths|8:ListDays|9:NameMonth|7:NameDay|8:Language|5:onRes|
 Code=#54:// LOCALE_NOUSEROVERRIDE { do not use user overrides }|43:// LOCALE_USE_CP_ACP { use the system ACP }|35:// LOCALE_ILANGUAGE { language id }|50:// LOCALE_SLANGUAGE { localized name of language }|51:// LOCALE_SENGLANGUAGE { English name of language }|55:// LOCALE_SABBREVLANGNAME { abbreviated language name }|53:// LOCALE_SNATIVELANGNAME { native name of language }|36:// LOCALE_ICOUNTRY { country code } |49:// LOCALE_SCOUNTRY { localized name of country } |50:// LOCALE_SENGCOUNTRY { English name of country } |55:// LOCALE_SABBREVCTRYNAME { abbreviated country name } |53:// LOCALE_SNATIVECTRYNAME { native name of country } |51:// LOCALE_IDEFAULTLANGUAGE { default language id } |51:// LOCALE_IDEFAULTCOUNTRY { default country code } |53:// LOCALE_IDEFAULTCODEPAGE { default oem code page } |58:// LOCALE_IDEFAULTANSICODEPAGE { default ansi code page } |56:// LOCALE_IDEFAULTMACCODEPAGE { default mac code page } |40:// LOCALE_SLIST { list item separator } |42:// LOCALE_IMEASURE { 0 = metric, 1 = US } |41:// LOCALE_SDECIMAL { decimal separator } |43:// LOCALE_STHOUSAND { thousand separator } |39:// LOCALE_SGROUPING { digit grouping } |50:// LOCALE_IDIGITS { number of fractional digits } |47:// LOCALE_ILZERO { leading zeros for decimal } |46:// LOCALE_INEGNUMBER { negative number mode } |45:// LOCALE_SNATIVEDIGITS { native ascii 0-9 } |46:// LOCALE_SCURRENCY { local monetary symbol } |47:// LOCALE_SINTLSYMBOL { intl monetary symbol } |56:// LOCALE_SMONDECIMALSEP { monetary decimal separator } |58:// LOCALE_SMONTHOUSANDSEP { monetary thousand separator } |45:// LOCALE_SMONGROUPING { monetary grouping } |50:// LOCALE_ICURRDIGITS { # local monetary digits } |53:// LOCALE_IINTLCURRDIGITS { # intl monetary digits } |47:// LOCALE_ICURRENCY { positive currency mode } |46:// LOCALE_INEGCURR { negative currency mode } |34:// LOCALE_SDATE { date separator }|35:// LOCALE_STIME { time separator } |50:// LOCALE_SSHORTDATE { short date format string } |48:// LOCALE_SLONGDATE { long date format string } |45:// LOCALE_STIMEFORMAT { time format string } |47:// LOCALE_IDATE { short date format ordering } |47:// LOCALE_ILDATE { long date format ordering } |42:// LOCALE_ITIME { time format specifier } |49:// LOCALE_ITIMEMARKPOSN { time marker position } |61:// LOCALE_ICENTURY { century format specifier (short date) } |50:// LOCALE_ITLZERO { leading zeros in time field } |64:// LOCALE_IDAYLZERO { leading zeros in day field (short date) } |66:// LOCALE_IMONLZERO { leading zeros in month field (short date) } |34:// LOCALE_S1159 { AM designator } |34:// LOCALE_S2359 { PM designator } |55:// LOCALE_ICALENDARTYPE { type of calendar specifier } |68:// LOCALE_IOPTIONALCALENDAR { additional calendar types specifier } |58:// LOCALE_IFIRSTDAYOFWEEK { first day of week specifier } |60:// LOCALE_IFIRSTWEEKOFYEAR { first week of year specifier } |45:// LOCALE_SDAYNAME1 { long name for Monday } |46:// LOCALE_SDAYNAME2 { long name for Tuesday } |48:// LOCALE_SDAYNAME3 { long name for Wednesday } |47:// LOCALE_SDAYNAME4 { long name for Thursday } |45:// LOCALE_SDAYNAME5 { long name for Friday } |47:// LOCALE_SDAYNAME6 { long name for Saturday } |45:// LOCALE_SDAYNAME7 { long name for Sunday } |58:// LOCALE_SABBREVDAYNAME1 { abbreviated name for Monday } |59:// LOCALE_SABBREVDAYNAME2 { abbreviated name for Tuesday } |61:// LOCALE_SABBREVDAYNAME3 { abbreviated name for Wednesday } |60:// LOCALE_SABBREVDAYNAME4 { abbreviated name for Thursday } |58:// LOCALE_SABBREVDAYNAME5 { abbreviated name for Friday } |59:// LOCALE_SABBREVDAYNAME6 { abbreviated name for Saturday }|58:// LOCALE_SABBREVDAYNAME7 { abbreviated name for Sunday } |48:// LOCALE_SMONTHNAME1 { long name for January } |49:// LOCALE_SMONTHNAME2 { long name for February } |46:// LOCALE_SMONTHNAME3 { long name for March } |46:// LOCALE_SMONTHNAME4 { long name for April } |44:// LOCALE_SMONTHNAME5 { long name for May } |45:// LOCALE_SMONTHNAME6 { long name for June } |45:// LOCALE_SMONTHNAME7 { long name for July } |47:// LOCALE_SMONTHNAME8 { long name for August } |50:// LOCALE_SMONTHNAME9 { long name for September } |49:// LOCALE_SMONTHNAME10 { long name for October } |50:// LOCALE_SMONTHNAME11 { long name for November } |50:// LOCALE_SMONTHNAME12 { long name for December } |64:// LOCALE_SMONTHNAME13 { long name for 13th month (if exists) } |61:// LOCALE_SABBREVMONTHNAME1 { abbreviated name for January } |62:// LOCALE_SABBREVMONTHNAME2 { abbreviated name for February } |59:// LOCALE_SABBREVMONTHNAME3 { abbreviated name for March } |59:// LOCALE_SABBREVMONTHNAME4 { abbreviated name for April } |57:// LOCALE_SABBREVMONTHNAME5 { abbreviated name for May } |58:// LOCALE_SABBREVMONTHNAME6 { abbreviated name for June } |58:// LOCALE_SABBREVMONTHNAME7 { abbreviated name for July } |60:// LOCALE_SABBREVMONTHNAME8 { abbreviated name for August } |63:// LOCALE_SABBREVMONTHNAME9 { abbreviated name for September } |62:// LOCALE_SABBREVMONTHNAME10 { abbreviated name for October } |63:// LOCALE_SABBREVMONTHNAME11 { abbreviated name for November } |63:// LOCALE_SABBREVMONTHNAME12 { abbreviated name for December } |77:// LOCALE_SABBREVMONTHNAME13 { abbreviated name for 13th month (if exists) } |42:// LOCALE_SPOSITIVESIGN { positive sign } |42:// LOCALE_SNEGATIVESIGN { negative sign } |50:// LOCALE_IPOSSIGNPOSN { positive sign position } |49:// LOCALE_INEGSIGNPOSN { negative sign position }|55:// LOCALE_IPOSSYMPRECEDES { mon sym precedes pos amt } |63:// LOCALE_IPOSSEPBYSPACE { mon sym sep by space from pos amt } |55:// LOCALE_INEGSYMPRECEDES { mon sym precedes neg amt } |63:// LOCALE_INEGSEPBYSPACE { mon sym sep by space from neg amt } |43:// LOCALE_FONTSIGNATURE { font signature } |60:// LOCALE_SISO639LANGNAME { ISO abbreviated language name } |59:// LOCALE_SISO3166CTRYNAME { ISO abbreviated country name }|0:|0:|0:|15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|14:   ListMonths,|12:   ListDays,|13:   NameMonth,|11:   NameDay,|12:   Language,|19:   onRes:THI_Event;|55:   procedure doListMonths(var _Data:TData; Index:Word);|53:   procedure doIistDays(var _Data:TData; Index:Word);|50:   procedure doMonth(var _Data:TData; Index:Word);|51:   procedure doDay(var _Data:TData; Index:Word);   |5: end;|0:|14:implementation|53:function GetLocaleInformation(Flag: Integer): string;|3:var|31:  pcLCA: array [0..20] of Char;|5:begin|68:  if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0 then|19:    pcLCA[0] := #0;|18:  Result := pcLCA;|4:end;|0:|0:|35:procedure THiAsmClass.doListMonths;|15:var i: integer;|5:begin|69: for i:=56 to 67 do  _hi_onEvent(ListMonths,GetLocaleInformation(i));|4:end;|0:|33:procedure THiAsmClass.doIistDays;|15:var i: integer;|5:begin|66: for i:=42 to 48 do _hi_onEvent(ListDays,GetLocaleInformation(i));|5:end; |0:|30:procedure THiAsmClass.doMonth;|15:var i: integer;|5:begin|25:  i:=toInteger(_Data)+55;|49:  _hi_onEvent(NameMonth,GetLocaleInformation(i));|4:end;|0:|28:procedure THiAsmClass.doDay;|15:var i: integer;|5:begin|26:   i:=toInteger(_Data)+41;|46: _hi_onEvent(NameDay,GetLocaleInformation(i));|6:end;  |4:end.|
 AddHint(-33,-61,41,39,@Hint)
}