Spready: Use Workbook.FormatSettings for locale-specific number formats.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5402 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-12-02 00:01:02 +00:00
parent 592312d0d7
commit 2f9ac1f73a
3 changed files with 7 additions and 1 deletions

View File

@ -775,6 +775,7 @@ begin
if F.ShowModal = mrOK then if F.ShowModal = mrOK then
begin begin
WorksheetGrid.Workbook.FormatSettings := F.FormatSettings; WorksheetGrid.Workbook.FormatSettings := F.FormatSettings;
UTF8FormatSettings := F.FormatSettings;
WorksheetGrid.Invalidate; WorksheetGrid.Invalidate;
end; end;
finally finally

View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -10,6 +10,10 @@
<UseAppBundle Value="False"/> <UseAppBundle Value="False"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<XPManifest>
<TextName Value="CompanyName.ProductName.AppName"/>
<TextDesc Value="Your application description."/>
</XPManifest>
<Icon Value="0"/> <Icon Value="0"/>
</General> </General>
<i18n> <i18n>
@ -95,6 +99,7 @@
<Filename Value="sformatsettingsform.pas"/> <Filename Value="sformatsettingsform.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<UnitName Value="sFormatsettingsForm"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="shyperlinkform.pas"/> <Filename Value="shyperlinkform.pas"/>

Binary file not shown.