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
This commit is contained in:
wp_xxyyzz
2014-10-20 15:29:40 +00:00
parent 6aed97db26
commit 8a56484d10
2 changed files with 3 additions and 5 deletions

View File

@ -10,16 +10,16 @@ object FormatSettingsForm: TFormatSettingsForm
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '1.2.6.0' LCLVersion = '1.3'
object PageControl: TPageControl object PageControl: TPageControl
Left = 8 Left = 8
Height = 434 Height = 434
Top = 8 Top = 8
Width = 454 Width = 454
ActivePage = PgCurrency ActivePage = PgNumber
Align = alClient Align = alClient
BorderSpacing.Around = 8 BorderSpacing.Around = 8
TabIndex = 1 TabIndex = 0
TabOrder = 0 TabOrder = 0
OnChange = PageControlChange OnChange = PageControlChange
object PgNumber: TTabSheet object PgNumber: TTabSheet

View File

@ -193,7 +193,6 @@ begin
Left := CbLongDateFormat.Left; Left := CbLongDateFormat.Left;
Width := w; Width := w;
Top := CbLongDateFormat.Top; Top := CbLongDateFormat.Top;
Anchors := Anchors + [akRight];
TabOrder := 0; TabOrder := 0;
SeparatorKind := skDecimal; SeparatorKind := skDecimal;
end; end;
@ -206,7 +205,6 @@ begin
Left := FCbDecimalSeparator.Left; Left := FCbDecimalSeparator.Left;
Width := w; Width := w;
Top := FCBDecimalSeparator.Top + 32; Top := FCBDecimalSeparator.Top + 32;
Anchors := Anchors + [akRight];
TabOrder := FCbDecimalSeparator.TabOrder + 1; TabOrder := FCbDecimalSeparator.TabOrder + 1;
SeparatorKind := skThousand; SeparatorKind := skThousand;
end; end;