|
wp
2016-02-16 18:52
developer
|
translation.patch (4,057 bytes)
Index: examples/translation/localizedforms.lfm
===================================================================
--- examples/translation/localizedforms.lfm (revision 51640)
+++ examples/translation/localizedforms.lfm (working copy)
@@ -4,5 +4,5 @@
Top = 238
Width = 320
Caption = 'LocalizedForm'
- LCLVersion = '1.5'
+ LCLVersion = '1.7'
end
Index: examples/translation/localizedforms.pas
===================================================================
--- examples/translation/localizedforms.pas (revision 51640)
+++ examples/translation/localizedforms.pas (working copy)
@@ -126,6 +126,7 @@
'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
Index: examples/translation/main.lfm
===================================================================
--- examples/translation/main.lfm (revision 51640)
+++ examples/translation/main.lfm (working copy)
@@ -9,9 +9,9 @@
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
@@ -18,17 +18,19 @@
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 @@
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
- ClientHeight = 79
+ ClientHeight = 77
ClientWidth = 214
Items.Strings = (
'beer'
@@ -85,9 +87,9 @@
end
object LblCurrentSelection: TLabel[6]
Left = 18
- Height = 13
+ Height = 15
Top = 154
- Width = 86
+ Width = 95
Caption = 'No drink selected.'
ParentColor = False
end
Index: examples/translation/translation_demo.lpi
===================================================================
--- examples/translation/translation_demo.lpi (revision 51640)
+++ examples/translation/translation_demo.lpi (working copy)
@@ -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>
|
|
|
|
Applied, thanks.
Also merged to fixes.
Russian currency symbol (and all others) is displayed correctly for me in Windows 7. See attached screenshot.
|
|
|
|
|
|
|
|
> Russian currency symbol (and all others) is displayed correctly for me in Windows 7. See attached screenshot.
But not on mine (Win 7, as well, but codepage 1252 (Germany)) - see screenshot. |
|
|
wp
2016-02-21 17:18
developer
|
|
|
|
|
I think this is Windows issue (it works on some systems and not others, probably locale or some update dependent) and is out of the scope of this example. Maybe we can circumvent this by some hack, but it is not worth all the hassle.
|
|
