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

fpspreadsheet: Fix TWorksheetGrid focus rect on merged cells in being offset (fixed by "shobits1").

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4458 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-01-22 23:24:11 +00:00
parent 9dc3304375
commit 61db2acff8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -2282,7 +2282,7 @@ begin
end; end;
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------
Draws the selection rectangle around selected cells, 3 pixels wide as in Excel. Draws the selection rectangle around selected cells.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
procedure TsCustomWorksheetGrid.DrawSelection; procedure TsCustomWorksheetGrid.DrawSelection;
var var
@ -2299,7 +2299,7 @@ begin
if Worksheet.IsMerged(cell) then if Worksheet.IsMerged(cell) then
begin begin
Worksheet.FindMergedRange(cell, r1,c1,r2,c2); Worksheet.FindMergedRange(cell, r1,c1,r2,c2);
R := CellRect(r1, c1, r2, c2); R := CellRect(GetGridCol(c1), GetGridRow(r1), GetGridCol(c2), GetGridRow(r2));
end else end else
R := CellRect(Selection.Left, Selection.Top, Selection.Right, Selection.Bottom); R := CellRect(Selection.Left, Selection.Top, Selection.Right, Selection.Bottom);