paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, grids, fix exception on resizing the last column when AllowOutboundEvents=false, modified patch from vbxier, issue #26138

Browse Source 
git-svn-id: trunk@45017 -
This commit is contained in:
jesus 2014-05-12 07:24:01 +00:00
parent 942fc36a0b
commit ea3f43d3c8
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/grids.pas
View File

@ -2512,9 +2512,19 @@ var
ACase: Integer; ACase: Integer;
begin begin
result := false;
with FSizing do begin with FSizing do begin
OrgIndex := FGCache.ClickCell.X; OrgIndex := FGCache.ClickCell.X;
if OrgIndex<0 then begin
// invalid starting cell
if not AllowOutBoundEvents and (Cursor=crHSplit) then
// resizing still allowed if mouse is within "resizeable region"
OrgIndex := Index
else
exit;
end;
Index := OrgIndex; Index := OrgIndex;
ColRowToOffset(true, true, Index, OffIni, OffEnd); ColRowToOffset(true, true, Index, OffIni, OffEnd);