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

fpspreadsheet: Fix clip rect error when painting TsWorksheet fixed cells.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4461 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-01-23 16:10:38 +00:00
parent d4acf83c51
commit 89c374f198
1 changed files with 8 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@@ -2077,7 +2077,7 @@ begin
fixed_rct := Rect(0, 0, 0, 0);
if HeaderCount > 0 then
ColRowToOffset(true, false, 0, fixed_rct.Left, fixed_rct.Right);
ColRowToOffset(true, true, 0, fixed_rct.Left, fixed_rct.Right);
// is this row within the ClipRect?
clipArea := Canvas.ClipRect;
@@ -2238,24 +2238,18 @@ begin
rct.Top := temp_rct.Top;
rct.Bottom := temp_rct.Bottom;
{
if IsRightToLeft then
begin
ColRowToOffset(true, true, gc, tmp, rct.Right);
ColRowToOffset(true, true, gcNext-1, rct.Left, tmp);
end else
begin
ColRowToOffset(true, true, gc, rct.Left, tmp);
ColRowToOffset(true, true, gcNext-1, tmp, rct.Right);
end;
}
if (rct.Left < rct.Right) and HorizontalIntersect(rct, clipArea) then
begin
gds := GetGridDrawState(gc, gr);
temp_rct := rct;
// Avoid painting into the fixed cells
if temp_rct.Left < fixed_rct.Right then temp_rct.Left := fixed_rct.Right;
if IsRightToLeft then
begin
if temp_rct.Right > fixed_rct.Left then temp_rct.Right := fixed_rct.Left
end else
begin
if temp_rct.Left < fixed_rct.Right then temp_rct.Left := fixed_rct.Right;
end;
// Draw cell
DoDrawCell(gc, gr, temp_rct, rct);
// Draw comment marker