diff --git a/examples/translation/localizedforms.lfm b/examples/translation/localizedforms.lfm index b7929dbddf..875b94027d 100644 --- a/examples/translation/localizedforms.lfm +++ b/examples/translation/localizedforms.lfm @@ -4,5 +4,5 @@ object LocalizedForm: TLocalizedForm Top = 238 Width = 320 Caption = 'LocalizedForm' - LCLVersion = '1.5' + LCLVersion = '1.9.0.0' end diff --git a/examples/translation/localizedforms.pas b/examples/translation/localizedforms.pas index 52c6ff02a5..adb4384950 100644 --- a/examples/translation/localizedforms.pas +++ b/examples/translation/localizedforms.pas @@ -133,6 +133,7 @@ begin 'pt' : Result := $0816; // Portuguese (Portugal) 'ru' : Result := $0419; // Russian 'tr' : Result := $041F; // Turkish + 'uk' : Result := $0422; // Ukrainian 'zh_cn', 'zh-cn': Result := $0804; // Chinese (China) 'zh_tw', 'zh-tw': Result := $0404; // Chinese (Taiwan) // please complete if necessary. Language code and LCIDs can be found at diff --git a/examples/translation/main.lfm b/examples/translation/main.lfm index 100c2a60a8..a8b80fb954 100644 --- a/examples/translation/main.lfm +++ b/examples/translation/main.lfm @@ -21,6 +21,7 @@ inherited MainForm: TMainForm Height = 23 Top = 13 Width = 100 + DropDownCount = 16 ItemHeight = 15 Items.Strings = ( 'de - deutsch' @@ -31,6 +32,8 @@ inherited MainForm: TMainForm 'hu - magyar' 'it - Italiano' 'ru - русский' + 'uk - Ukrainian' + 'zh_CN - Chinese' ) OnChange = CbLanguageChange Style = csDropDownList diff --git a/examples/translation/translation_demo.lpi b/examples/translation/translation_demo.lpi index e1724e4c33..bc9a982608 100644 --- a/examples/translation/translation_demo.lpi +++ b/examples/translation/translation_demo.lpi @@ -99,7 +99,7 @@ - + diff --git a/examples/translation/translation_demo.res b/examples/translation/translation_demo.res index bc23f8c77e..0ad004b9d9 100644 Binary files a/examples/translation/translation_demo.res and b/examples/translation/translation_demo.res differ