paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 01:09:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, only call cellclick on cells which completes the mousedown-mouseup cycle, fixes problem where grid receives mouseup on doubleclicking opendialog

Browse Source 
git-svn-id: trunk@29917 -
This commit is contained in:
jesus 2011-03-19 19:31:20 +00:00
parent df3550bba9
commit f1dbbf861a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -5781,7 +5781,7 @@ begin
end;
gsNormal:
if not FixedGrid then
if not FixedGrid and (Cur.X=FGCache.ClickCell.X) and (Cur.Y=FGCache.ClickCell.Y) then
CellClick(cur.x, cur.y, Button);
gsSelecting:
@ -5856,6 +5856,7 @@ begin
if IsPushCellActive() then begin
ResetPushedCell;
end;
FGCache.ClickCell := point(-1, -1);
{$IfDef dbgGrid}DebugLn('MouseUP END RND=', FloatToStr(Random));{$Endif}
end;
@ -8022,6 +8023,7 @@ begin
FRows:=TList.Create;
FGCache.AccumWidth:=TList.Create;
FGCache.AccumHeight:=TList.Create;
FGCache.ClickCell := point(-1, -1);
inherited Create(AOwner);
FColumns := CreateColumns;