From d4acf83c515e9d9a8bd9f95bda95646ea99d5a0b Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sat, 23 Jan 2016 14:26:08 +0000 Subject: [PATCH] fpspreadsheet: Fix RTL text overflow painting in TsWorksheetGrid git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4460 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/fpspreadsheetgrid.pas | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas index 62a384446..6fd9e7d5b 100644 --- a/components/fpspreadsheet/fpspreadsheetgrid.pas +++ b/components/fpspreadsheet/fpspreadsheetgrid.pas @@ -2178,8 +2178,13 @@ begin if CellOverflow(gc, gr, gds, gc1, gc2, rct) then begin // Draw individual cells of the overflown range - ColRowToOffset(true, true, gc1, rct.Left, tmp); // rct is the clip rect - ColRowToOffset(true, true, gc2, tmp, rct.Right); + if IsRightToLeft then begin + ColRowToOffset(true, true, gc1, tmp, rct.Right); + ColRowToOffset(true, true, gc2, rct.Left, tmp); + end else begin + ColRowToOffset(true, true, gc1, rct.Left, tmp); // rct is the clip rect + ColRowToOffset(true, true, gc2, tmp, rct.Right); + end; FDrawingCell := nil; temp_rct := rct; for i := gc1 to gc2 do begin