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

fpspreadsheet: Fix occasionally incorrect width of row header column in TsWorksheetGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3934 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-02-08 09:41:10 +00:00
parent d8a3204045
commit 21398a50c5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@@ -3406,6 +3406,7 @@ begin
FixedCols := FFrozenCols + FHeaderCount; FixedCols := FFrozenCols + FHeaderCount;
FixedRows := FFrozenRows + FHeaderCount; FixedRows := FFrozenRows + FHeaderCount;
if ShowHeaders then begin if ShowHeaders then begin
Canvas.Font.Assign(Font);
ColWidths[0] := Canvas.TextWidth(' 999999 '); ColWidths[0] := Canvas.TextWidth(' 999999 ');
RowHeights[0] := DefaultRowHeight; RowHeights[0] := DefaultRowHeight;
end; end;