From 8a56484d10d1d49ab3a4f8bf4f15df1719e84cb6 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 20 Oct 2014 15:29:40 +0000
Subject: [PATCH] fpspreadsheet: Fix decimal and thousand separator not being
 visible in the FormatSettingsForm of spready

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3670 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../fpspreadsheet/examples/spready/sformatsettingsform.lfm  | 6 +++---
 .../fpspreadsheet/examples/spready/sformatsettingsform.pas  | 2 --
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/components/fpspreadsheet/examples/spready/sformatsettingsform.lfm b/components/fpspreadsheet/examples/spready/sformatsettingsform.lfm
index b24d34692..849b1866f 100644
--- a/components/fpspreadsheet/examples/spready/sformatsettingsform.lfm
+++ b/components/fpspreadsheet/examples/spready/sformatsettingsform.lfm
@@ -10,16 +10,16 @@ object FormatSettingsForm: TFormatSettingsForm
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   Position = poMainFormCenter
-  LCLVersion = '1.2.6.0'
+  LCLVersion = '1.3'
   object PageControl: TPageControl
     Left = 8
     Height = 434
     Top = 8
     Width = 454
-    ActivePage = PgCurrency
+    ActivePage = PgNumber
     Align = alClient
     BorderSpacing.Around = 8
-    TabIndex = 1
+    TabIndex = 0
     TabOrder = 0
     OnChange = PageControlChange
     object PgNumber: TTabSheet
diff --git a/components/fpspreadsheet/examples/spready/sformatsettingsform.pas b/components/fpspreadsheet/examples/spready/sformatsettingsform.pas
index fb158f025..995e59fb3 100644
--- a/components/fpspreadsheet/examples/spready/sformatsettingsform.pas
+++ b/components/fpspreadsheet/examples/spready/sformatsettingsform.pas
@@ -193,7 +193,6 @@ begin
     Left := CbLongDateFormat.Left;
     Width := w;
     Top := CbLongDateFormat.Top;
-    Anchors := Anchors + [akRight];
     TabOrder := 0;
     SeparatorKind := skDecimal;
   end;
@@ -206,7 +205,6 @@ begin
     Left := FCbDecimalSeparator.Left;
     Width := w;
     Top := FCBDecimalSeparator.Top + 32;
-    Anchors := Anchors + [akRight];
     TabOrder := FCbDecimalSeparator.TabOrder + 1;
     SeparatorKind := skThousand;
   end;