pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanit: Exclude the string '(default)' in fulldemo from translation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8299 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-14 09:30:07 +00:00
parent 661f42b5ba
commit b2d2f2fb63
9 changed files with 8 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/examples/fulldemo/demo.lpi
View File

@ -18,6 +18,9 @@
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="..\..\languages"/>
<ExcludedIdentifiers Count="1">
<Item1 Value="tmainform.cbaddressbuilder.text"/>
</ExcludedIdentifiers>
</i18n>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>

3
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -861,7 +861,8 @@ begin
VpControlLink1.CityStateZipFormat := ini.ReadString('Settings', 'CityStateZip', '');
if VpControlLink1.CityStateZipFormat = '' then
CbAddressBuilder.ItemIndex := 0 else
CbAddressBuilder.ItemIndex := 0
else
CbAddressBuilder.ItemIndex := CbAddressBuilder.Items.Indexof(VpControlLink1.CityStateZipFormat);
n := ini.ReadInteger('Settings', 'DrawingStyle', ord(dsFlat));