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

fpspreadsheet: Fix cell borders painting over frozencols border line (https://forum.lazarus.freepascal.org/index.php/topic,55317.0.html).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8059 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-07-11 08:32:08 +00:00
parent 3f87df497d
commit 4bbe58f7cf
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2668,13 +2668,13 @@ begin
end;
// Left border
if GetBorderStyle(ACol, ARow, -1, 0, ACell, bs) then
if GetBorderStyle(ACol, ARow, -1, 0, ACell, bs) and (ACol <> FixedCols) then
if IsRightToLeft then
DrawBorderLine(ARect.Right, ARect, drawVert, bs)
else
DrawBorderLine(ARect.Left-ord(not IsRightToLeft), ARect, drawVert, bs);
// Right border
if GetBorderStyle(ACol, ARow, +1, 0, ACell, bs) then
if GetBorderStyle(ACol, ARow, +1, 0, ACell, bs) and (ACol + 1 <> FixedCols) then
if IsRightToLeft then
DrawBorderLine(ARect.Left, ARect, drawVert, bs)
else