From 4bbe58f7cf98803cd23f73990cb44dc22d114b76 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sun, 11 Jul 2021 08:32:08 +0000 Subject: [PATCH] fpspreadsheet: Fix cell borders painting over frozencols border line (https://forum.lazarus.freepascal.org/index.php/topic,55317.0.html). git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8059 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas index 73d7a7fd6..f3f4da0d3 100644 --- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas +++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas @@ -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