QLangIDs.inc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202
  1. { Extract from Windows.pas for Linux }
  2. (*
  3. * Language IDs.
  4. *
  5. * The following two combinations of primary language ID and
  6. * sublanguage ID have special semantics:
  7. *
  8. * Primary Language ID Sublanguage ID Result
  9. * ------------------- --------------- ------------------------
  10. * LANG_NEUTRAL SUBLANG_NEUTRAL Language neutral
  11. * LANG_NEUTRAL SUBLANG_DEFAULT User default language
  12. * LANG_NEUTRAL SUBLANG_SYS_DEFAULT System default language
  13. *)
  14. const
  15. { Primary language IDs. }
  16. LANG_NEUTRAL = $00;
  17. LANG_AFRIKAANS = $36;
  18. LANG_ALBANIAN = $1c;
  19. LANG_ARABIC = $01;
  20. LANG_BASQUE = $2d;
  21. LANG_BELARUSIAN = $23;
  22. LANG_BULGARIAN = $02;
  23. LANG_CATALAN = $03;
  24. LANG_CHINESE = $04;
  25. LANG_CROATIAN = $1a;
  26. LANG_CZECH = $05;
  27. LANG_DANISH = $06;
  28. LANG_DUTCH = $13;
  29. LANG_ENGLISH = $09;
  30. LANG_ESTONIAN = $25;
  31. LANG_FAEROESE = $38;
  32. LANG_FARSI = $29;
  33. LANG_FINNISH = $0b;
  34. LANG_FRENCH = $0c;
  35. LANG_GERMAN = $07;
  36. LANG_GREEK = $08;
  37. LANG_HEBREW = $0d;
  38. LANG_HUNGARIAN = $0e;
  39. LANG_ICELANDIC = $0f;
  40. LANG_INDONESIAN = $21;
  41. LANG_ITALIAN = $10;
  42. LANG_JAPANESE = $11;
  43. LANG_KOREAN = $12;
  44. LANG_LATVIAN = $26;
  45. LANG_LITHUANIAN = $27;
  46. LANG_NORWEGIAN = $14;
  47. LANG_POLISH = $15;
  48. LANG_PORTUGUESE = $16;
  49. LANG_ROMANIAN = $18;
  50. LANG_RUSSIAN = $19;
  51. LANG_SERBIAN = $1a;
  52. LANG_SLOVAK = $1b;
  53. LANG_SLOVENIAN = $24;
  54. LANG_SPANISH = $0a;
  55. LANG_SWEDISH = $1d;
  56. LANG_THAI = $1e;
  57. LANG_TURKISH = $1f;
  58. LANG_UKRAINIAN = $22;
  59. LANG_VIETNAMESE = $2a;
  60. { Sublanguage IDs. }
  61. { The name immediately following SUBLANG_ dictates which primary
  62. language ID that sublanguage ID can be combined with to form a
  63. valid language ID. }
  64. SUBLANG_NEUTRAL = $00; { language neutral }
  65. SUBLANG_DEFAULT = $01; { user default }
  66. SUBLANG_SYS_DEFAULT = $02; { system default }
  67. SUBLANG_ARABIC_SAUDI_ARABIA = $01; { Arabic (Saudi Arabia) }
  68. SUBLANG_ARABIC_IRAQ = $02; { Arabic (Iraq) }
  69. SUBLANG_ARABIC_EGYPT = $03; { Arabic (Egypt) }
  70. SUBLANG_ARABIC_LIBYA = $04; { Arabic (Libya) }
  71. SUBLANG_ARABIC_ALGERIA = $05; { Arabic (Algeria) }
  72. SUBLANG_ARABIC_MOROCCO = $06; { Arabic (Morocco) }
  73. SUBLANG_ARABIC_TUNISIA = $07; { Arabic (Tunisia) }
  74. SUBLANG_ARABIC_OMAN = $08; { Arabic (Oman) }
  75. SUBLANG_ARABIC_YEMEN = $09; { Arabic (Yemen) }
  76. SUBLANG_ARABIC_SYRIA = $0a; { Arabic (Syria) }
  77. SUBLANG_ARABIC_JORDAN = $0b; { Arabic (Jordan) }
  78. SUBLANG_ARABIC_LEBANON = $0c; { Arabic (Lebanon) }
  79. SUBLANG_ARABIC_KUWAIT = $0d; { Arabic (Kuwait) }
  80. SUBLANG_ARABIC_UAE = $0e; { Arabic (U.A.E) }
  81. SUBLANG_ARABIC_BAHRAIN = $0f; { Arabic (Bahrain) }
  82. SUBLANG_ARABIC_QATAR = $10; { Arabic (Qatar) }
  83. SUBLANG_CHINESE_TRADITIONAL = $01; { Chinese (Taiwan) }
  84. SUBLANG_CHINESE_SIMPLIFIED = $02; { Chinese (PR China) }
  85. SUBLANG_CHINESE_HONGKONG = $03; { Chinese (Hong Kong) }
  86. SUBLANG_CHINESE_SINGAPORE = $04; { Chinese (Singapore) }
  87. SUBLANG_DUTCH = $01; { Dutch }
  88. SUBLANG_DUTCH_BELGIAN = $02; { Dutch (Belgian) }
  89. SUBLANG_ENGLISH_US = $01; { English (USA) }
  90. SUBLANG_ENGLISH_UK = $02; { English (UK) }
  91. SUBLANG_ENGLISH_AUS = $03; { English (Australian) }
  92. SUBLANG_ENGLISH_CAN = $04; { English (Canadian) }
  93. SUBLANG_ENGLISH_NZ = $05; { English (New Zealand) }
  94. SUBLANG_ENGLISH_EIRE = $06; { English (Irish) }
  95. SUBLANG_ENGLISH_SOUTH_AFRICA = $07; { English (South Africa) }
  96. SUBLANG_ENGLISH_JAMAICA = $08; { English (Jamaica) }
  97. SUBLANG_ENGLISH_CARIBBEAN = $09; { English (Caribbean) }
  98. SUBLANG_ENGLISH_BELIZE = $0a; { English (Belize) }
  99. SUBLANG_ENGLISH_TRINIDAD = $0b; { English (Trinidad) }
  100. SUBLANG_FRENCH = $01; { French }
  101. SUBLANG_FRENCH_BELGIAN = $02; { French (Belgian) }
  102. SUBLANG_FRENCH_CANADIAN = $03; { French (Canadian) }
  103. SUBLANG_FRENCH_SWISS = $04; { French (Swiss) }
  104. SUBLANG_FRENCH_LUXEMBOURG = $05; { French (Luxembourg) }
  105. SUBLANG_GERMAN = $01; { German }
  106. SUBLANG_GERMAN_SWISS = $02; { German (Swiss) }
  107. SUBLANG_GERMAN_AUSTRIAN = $03; { German (Austrian) }
  108. SUBLANG_GERMAN_LUXEMBOURG = $04; { German (Luxembourg) }
  109. SUBLANG_GERMAN_LIECHTENSTEIN = $05; { German (Liechtenstein) }
  110. SUBLANG_ITALIAN = $01; { Italian }
  111. SUBLANG_ITALIAN_SWISS = $02; { Italian (Swiss) }
  112. SUBLANG_KOREAN = $01; { Korean (Extended Wansung) }
  113. SUBLANG_KOREAN_JOHAB = $02; { Korean (Johab) }
  114. SUBLANG_NORWEGIAN_BOKMAL = $01; { Norwegian (Bokmal) }
  115. SUBLANG_NORWEGIAN_NYNORSK = $02; { Norwegian (Nynorsk) }
  116. SUBLANG_PORTUGUESE = $02; { Portuguese }
  117. SUBLANG_PORTUGUESE_BRAZILIAN = $01; { Portuguese (Brazilian) }
  118. SUBLANG_SERBIAN_LATIN = $02; { Serbian (Latin) }
  119. SUBLANG_SERBIAN_CYRILLIC = $03; { Serbian (Cyrillic) }
  120. SUBLANG_SPANISH = $01; { Spanish (Castilian) }
  121. SUBLANG_SPANISH_MEXICAN = $02; { Spanish (Mexican) }
  122. SUBLANG_SPANISH_MODERN = $03; { Spanish (Modern) }
  123. SUBLANG_SPANISH_GUATEMALA = $04; { Spanish (Guatemala) }
  124. SUBLANG_SPANISH_COSTA_RICA = $05; { Spanish (Costa Rica) }
  125. SUBLANG_SPANISH_PANAMA = $06; { Spanish (Panama) }
  126. SUBLANG_SPANISH_DOMINICAN_REPUBLIC = $07; { Spanish (Dominican Republic) }
  127. SUBLANG_SPANISH_VENEZUELA = $08; { Spanish (Venezuela) }
  128. SUBLANG_SPANISH_COLOMBIA = $09; { Spanish (Colombia) }
  129. SUBLANG_SPANISH_PERU = $0a; { Spanish (Peru) }
  130. SUBLANG_SPANISH_ARGENTINA = $0b; { Spanish (Argentina) }
  131. SUBLANG_SPANISH_ECUADOR = $0c; { Spanish (Ecuador) }
  132. SUBLANG_SPANISH_CHILE = $0d; { Spanish (Chile) }
  133. SUBLANG_SPANISH_URUGUAY = $0e; { Spanish (Uruguay) }
  134. SUBLANG_SPANISH_PARAGUAY = $0f; { Spanish (Paraguay) }
  135. SUBLANG_SPANISH_BOLIVIA = $10; { Spanish (Bolivia) }
  136. SUBLANG_SPANISH_EL_SALVADOR = $11; { Spanish (El Salvador) }
  137. SUBLANG_SPANISH_HONDURAS = $12; { Spanish (Honduras) }
  138. SUBLANG_SPANISH_NICARAGUA = $13; { Spanish (Nicaragua) }
  139. SUBLANG_SPANISH_PUERTO_RICO = $14; { Spanish (Puerto Rico) }
  140. SUBLANG_SWEDISH = $01; { Swedish }
  141. SUBLANG_SWEDISH_FINLAND = $02; { Swedish (Finland) }
  142. { Sorting IDs. }
  143. SORT_DEFAULT = $0; { sorting default }
  144. SORT_JAPANESE_XJIS = $0; { Japanese XJIS order }
  145. SORT_JAPANESE_UNICODE = $1; { Japanese Unicode order }
  146. SORT_CHINESE_BIG5 = $0; { Chinese BIG5 order }
  147. SORT_CHINESE_PRCP = $0; { PRC Chinese Phonetic order }
  148. SORT_CHINESE_UNICODE = $1; { Chinese Unicode order }
  149. SORT_CHINESE_PRC = $2; { PRC Chinese Stroke Count order }
  150. SORT_KOREAN_KSC = $0; { Korean KSC order }
  151. SORT_KOREAN_UNICODE = $1; { Korean Unicode order }
  152. SORT_GERMAN_PHONE_BOOK = $1; { German Phone Book order }
  153. (*
  154. * A language ID is a 16 bit value which is the combination of a
  155. * primary language ID and a secondary language ID. The bits are
  156. * allocated as follows:
  157. *
  158. * +-----------------------+-------------------------+
  159. * | Sublanguage ID | Primary Language ID |
  160. * +-----------------------+-------------------------+
  161. * 15 10 9 0 bit
  162. *
  163. *
  164. *
  165. * A locale ID is a 32 bit value which is the combination of a
  166. * language ID, a sort ID, and a reserved area. The bits are
  167. * allocated as follows:
  168. *
  169. * +-------------+---------+-------------------------+
  170. * | Reserved | Sort ID | Language ID |
  171. * +-------------+---------+-------------------------+
  172. * 31 20 19 16 15 0 bit
  173. *
  174. *)
  175. { Default System and User IDs for language and locale. }
  176. LANG_SYSTEM_DEFAULT = (SUBLANG_SYS_DEFAULT shl 10) or LANG_NEUTRAL;
  177. LANG_USER_DEFAULT = (SUBLANG_DEFAULT shl 10) or LANG_NEUTRAL;
  178. LOCALE_SYSTEM_DEFAULT = (SORT_DEFAULT shl 16) or LANG_SYSTEM_DEFAULT;
  179. LOCALE_USER_DEFAULT = (SORT_DEFAULT shl 16) or LANG_USER_DEFAULT;
  180. const
  181. LOCALE_SABBREVLANGNAME = $00000003; { abbreviated language name }