Examples, translation: allow to select any of available translations, patch by wp, bug #29662

git-svn-id: trunk@51654 -

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

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

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>