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

fpspreadsheet: Fix compatibility of WorksheetGrid with Laz 1.8.4

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6823 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-03-02 10:36:20 +00:00
parent e20a18fd7f
commit 9a4752c2b3
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
View File

@ -350,7 +350,7 @@ type
property EditorLineMode: TsEditorLineMode read FLineMode write SetEditorLineMode property EditorLineMode: TsEditorLineMode read FLineMode write SetEditorLineMode
default elmSingleLine; default elmSingleLine;
{@@ Width of the fixed row header column. 0 = auto width detection } {@@ Width of the fixed row header column. 0 = auto width detection }
property FixedColWidth: Integer read GetFixedColWidth property FixedColWidth: Integer read FFixedColWidth
write SetFixedColWidth default 0; write SetFixedColWidth default 0;
{@@ This number of columns at the left is "frozen", i.e. it is not possible to {@@ This number of columns at the left is "frozen", i.e. it is not possible to
scroll these columns } scroll these columns }
@ -1316,6 +1316,7 @@ begin
FDefRowHeight100 := inherited GetDefaultRowHeight; FDefRowHeight100 := inherited GetDefaultRowHeight;
FDefColWidth100 := inherited DefaultColWidth; FDefColWidth100 := inherited DefaultColWidth;
FFixedColWidth := 0;
FCellFont := TFont.Create; FCellFont := TFont.Create;
FSelPen := TsSelPen.Create; FSelPen := TsSelPen.Create;