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

fpspreadsheet: Remove code which repaints the entire worksheet grid if the mouse is moved into anohter cell.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6191 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-09 10:50:38 +00:00
parent 32a0893299
commit b1dfb45d3a
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5022,23 +5022,31 @@ end;
grid instead. grid instead.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
procedure TsCustomWorksheetGrid.MouseMove(Shift: TShiftState; X, Y: Integer); procedure TsCustomWorksheetGrid.MouseMove(Shift: TShiftState; X, Y: Integer);
{
--- wp: removed this for testing: why does the entire grid be repainted when the
mouse moved to another cell?
var var
prevMouseCell: TPoint; prevMouseCell: TPoint;
}
begin begin
if Worksheet = nil then if Worksheet = nil then
exit; exit;
{ --- wp
prevMouseCell := GCache.MouseCell; prevMouseCell := GCache.MouseCell;
}
inherited; inherited;
if MouseOnHeader(X,Y) then if MouseOnHeader(X,Y) then
exit; exit;
{ --- wp
if FTextOverflow and if FTextOverflow and
((prevMouseCell.X <> GCache.MouseCell.X) or (prevMouseCell.Y <> GCache.MouseCell.Y)) ((prevMouseCell.X <> GCache.MouseCell.X) or (prevMouseCell.Y <> GCache.MouseCell.Y))
then then
InvalidateGrid; InvalidateGrid;
}
if Assigned(Dragmanager) and DragManager.IsDragging then if Assigned(Dragmanager) and DragManager.IsDragging then
begin; begin;