From 82e3edbc4b68ec25cd69e39c37efeb2f2c6015c5 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 13 May 2017 09:46:34 +0000
Subject: [PATCH] fpspreadsheet: TsWorksheetGrid ignores setting
 DefaultColWidth and DefaultRowHeight to values < 0.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5850 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/visual/fpspreadsheetgrid.pas         | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index 01513b676..75fb31a8f 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -1242,7 +1242,7 @@ begin
   FHeaderCount := 1;
   ColCount := DEFAULT_COL_COUNT + FHeaderCount;
   RowCount := DEFAULT_ROW_COUNT + FHeaderCount;
-  FDefRowHeight100 := inherited DefaultRowHeight;
+  FDefRowHeight100 := inherited GetDefaultRowHeight;
   FDefColWidth100 := inherited DefaultColWidth;
   //FOldTopRow := -1;
   FCellFont := TFont.Create;
@@ -5073,9 +5073,10 @@ end;
 -------------------------------------------------------------------------------}
 procedure TsCustomWorksheetGrid.Setup;
 begin
+  {
   if csLoading in ComponentState then
     exit;
-
+   }
   if FLockSetup > 0 then
     exit;
 
@@ -6346,10 +6347,10 @@ end;
 
 procedure TsCustomWorksheetGrid.SetDefColWidth(AValue: Integer);
 begin
-  if AValue = GetDefColWidth then
+  if (AValue = GetDefColWidth) or (AValue < 0) then
     exit;
-  // AValue contains the zoom factor
-  // FDefColWidth1000 is the col width at zoom factor 1.0
+  { AValue contains the zoom factor.
+    FDefColWidth1000 is the col width at zoom factor 1.0 }
   FDefColWidth100 := round(AValue / ZoomFactor);
   inherited DefaultColWidth := AValue;
   if FHeaderCount > 0 then begin
@@ -6362,10 +6363,10 @@ end;
 
 procedure TsCustomWorksheetGrid.SetDefRowHeight(AValue: Integer);
 begin
-  if AValue = GetDefRowHeight then
+  if (AValue = GetDefRowHeight) or (AValue < 0) then
     exit;
-  // AValue contains the zoom factor
-  // FDefRowHeight100 is the row height at zoom factor 1.0
+  { AValue contains the zoom factor
+    FDefRowHeight100 is the row height at zoom factor 1.0 }
   FDefRowHeight100 := round(AValue / ZoomFactor);
   inherited DefaultRowHeight := AValue;
   if FHeaderCount > 0 then