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

fpspreadsheet: Fix grid painting issue in RTL mode (incorrect left border of cliprect in InternalDrawRow)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5777 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-03-02 09:48:31 +00:00
parent 80f4f07a18
commit a729c0ee1c
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -601,7 +601,6 @@ type
property MouseWheelOption; property MouseWheelOption;
{@@ inherited from TCustomGrid. Select the option goEditing to make the grid editable! } {@@ inherited from TCustomGrid. Select the option goEditing to make the grid editable! }
property Options; property Options;
//property ParentBiDiMode;
{@@ inherited from ancestors } {@@ inherited from ancestors }
property ParentBiDiMode; property ParentBiDiMode;
{@@ inherited from ancestors} {@@ inherited from ancestors}
@ -3543,8 +3542,12 @@ begin
gc := AFirstCol; gc := AFirstCol;
gcLast := ALastCol; gcLast := ALastCol;
clipArea := Canvas.ClipRect; clipArea := Canvas.ClipRect;
if FHeaderCount > 0 then if FHeaderCount > 0 then begin
ColRowToOffset(true, false, 0, tmp, clipArea.Left); if IsRightToLeft then
ColRowToOffset(true, true, 0, clipArea.Right,tmp)
else
ColRowToOffset(true, true, 0, tmp, clipArea.Left);
end;
with GCache.VisibleGrid do with GCache.VisibleGrid do
begin begin