From beeb532fc515b471c39b239e942c8860dcce95d0 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Thu, 18 Feb 2016 06:47:04 +0000
Subject: [PATCH] Examples, translation: allow to select any of available
 translations, patch by wp, bug #29662

git-svn-id: trunk@51654 -
---
 examples/translation/localizedforms.pas   |  1 +
 examples/translation/main.lfm             | 20 +++++++++++---------
 examples/translation/translation_demo.lpi | 16 +++++++++++++++-
 3 files changed, 27 insertions(+), 10 deletions(-)

diff --git a/examples/translation/localizedforms.pas b/examples/translation/localizedforms.pas
index 00c43132e6..52c6ff02a5 100644
--- a/examples/translation/localizedforms.pas
+++ b/examples/translation/localizedforms.pas
@@ -126,6 +126,7 @@ begin
    'fi'   : Result := $040B;    // Finnish
    'fr'   : Result := $040C;    // French
    'he'   : Result := $040D;    // Hebrew
+   'hu'   : Result := $040E;    // Hungarian
    'it'   : Result := $0410;    // Italian
    'jp'   : Result := $0411;    // Japanese
    'pl'   : Result := $0415;    // Polish
diff --git a/examples/translation/main.lfm b/examples/translation/main.lfm
index 3aa900f09c..100c2a60a8 100644
--- a/examples/translation/main.lfm
+++ b/examples/translation/main.lfm
@@ -9,26 +9,28 @@ inherited MainForm: TMainForm
   OnCreate = FormCreate
   object Label1: TLabel[0]
     Left = 14
-    Height = 13
+    Height = 15
     Top = 16
-    Width = 76
+    Width = 83
     Caption = 'Select language'
     FocusControl = CbLanguage
     ParentColor = False
   end
   object CbLanguage: TComboBox[1]
     Left = 136
-    Height = 21
+    Height = 23
     Top = 13
     Width = 100
-    ItemHeight = 13
+    ItemHeight = 15
     Items.Strings = (
-      'de - Deutsch'
+      'de - deutsch'
       'en - English'
       'es - Español'
       'fr - Français'
       'he - Hebrew'
-      'ru - Russian'
+      'hu - magyar'
+      'it - Italiano'
+      'ru - русский'
     )
     OnChange = CbLanguageChange
     Style = csDropDownList
@@ -57,7 +59,7 @@ inherited MainForm: TMainForm
     ChildSizing.ShrinkVertical = crsScaleChilds
     ChildSizing.Layout = cclLeftToRightThenTopToBottom
     ChildSizing.ControlsPerLine = 1
-    ClientHeight = 79
+    ClientHeight = 77
     ClientWidth = 214
     Items.Strings = (
       'beer'
@@ -85,9 +87,9 @@ inherited MainForm: TMainForm
   end
   object LblCurrentSelection: TLabel[6]
     Left = 18
-    Height = 13
+    Height = 15
     Top = 154
-    Width = 86
+    Width = 95
     Caption = 'No drink selected.'
     ParentColor = False
   end
diff --git a/examples/translation/translation_demo.lpi b/examples/translation/translation_demo.lpi
index f492611325..4861c90f40 100644
--- a/examples/translation/translation_demo.lpi
+++ b/examples/translation/translation_demo.lpi
@@ -37,7 +37,7 @@
           </CodeGeneration>
           <Linking>
             <Debugging>
-              <StripSymbols Value="True"/>
+              <GenerateDebugInfo Value="False"/>
             </Debugging>
             <LinkSmart Value="True"/>
             <Options>
@@ -81,6 +81,7 @@
         <ComponentName Value="LocalizedForm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <UnitName Value="LocalizedForms"/>
       </Unit2>
       <Unit3>
         <Filename Value="unit2.pas"/>
@@ -88,6 +89,7 @@
         <ComponentName Value="Form2"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <UnitName Value="Unit2"/>
       </Unit3>
       <Unit4>
         <Filename Value="stringsunit.pas"/>
@@ -105,8 +107,20 @@
       <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="units\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
+    <Parsing>
+      <SyntaxOptions>
+        <IncludeAssertionCode Value="True"/>
+      </SyntaxOptions>
+    </Parsing>
     <CodeGeneration>
       <SmartLinkUnit Value="True"/>
+      <Checks>
+        <IOChecks Value="True"/>
+        <RangeChecks Value="True"/>
+        <OverflowChecks Value="True"/>
+        <StackChecks Value="True"/>
+      </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>
       <Options>