paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 09:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids: make sure first mousedown is processed when there were no previous mouse movement (perhaps Mac OS X only problem)

Browse Source 
git-svn-id: trunk@48983 -
This commit is contained in:
jesus 2015-05-10 18:54:19 +00:00
parent 61b261d14e
commit 013aae61e4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -7527,9 +7527,16 @@ begin
end;
procedure TCustomGrid.CacheMouseDown(const X, Y: Integer);
var
ParentForm: TCustomForm;
begin
FGCache.ClickMouse := Point(X,Y);
FGCache.ClickCell := MouseToCell(FGCache.ClickMouse);
if (FGCache.HotGridZone=gzInvalid) then begin
ParentForm := GetParentForm(Self);
if (ParentForm<>nil) and ParentForm.Active then
FGCache.HotGridZone := CellToGridZone(FGCache.ClickCell.X, FGCache.ClickCell.Y);
end;
end;
procedure TCustomGrid.EndUpdate(aRefresh: boolean = true);