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

fpspreadsheet: Fix worksheet ignoring cell borderstyle if cell borderstyle is set before calling WriteBorders. Add '.' to package unit path (seems to fix compilation issue of several laz versions using the same fpx sources).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4411 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-12-30 09:42:57 +00:00
parent ff1da55ac3
commit bb0a3ea92c
4 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/fpsclasses.pas
View File

@@ -1271,7 +1271,7 @@ begin
// Border styles can be set even if borders are not used --> don't check uffBorder!
equ := true;
for b in AItem.Border do begin
for b in TsCellBorder {AItem.Border} do begin
if (P^.BorderStyles[b].LineStyle <> AItem.BorderStyles[b].LineStyle) or
(P^.BorderStyles[b].Color <> Aitem.BorderStyles[b].Color)
then begin