paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-09 17:09:42 +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; end;
gsNormal: 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); CellClick(cur.x, cur.y, Button);
gsSelecting: gsSelecting:
@ -5856,6 +5856,7 @@ begin
if IsPushCellActive() then begin if IsPushCellActive() then begin
ResetPushedCell; ResetPushedCell;
end; end;
FGCache.ClickCell := point(-1, -1);
{$IfDef dbgGrid}DebugLn('MouseUP END RND=', FloatToStr(Random));{$Endif} {$IfDef dbgGrid}DebugLn('MouseUP END RND=', FloatToStr(Random));{$Endif}
end; end;
@ -8022,6 +8023,7 @@ begin
FRows:=TList.Create; FRows:=TList.Create;
FGCache.AccumWidth:=TList.Create; FGCache.AccumWidth:=TList.Create;
FGCache.AccumHeight:=TList.Create; FGCache.AccumHeight:=TList.Create;
FGCache.ClickCell := point(-1, -1);
inherited Create(AOwner); inherited Create(AOwner);
FColumns := CreateColumns; FColumns := CreateColumns;