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

LCL: fix resizing the last dbgrid column while the mouse pointer is out of bounds, issue #34032

Browse Source 
git-svn-id: trunk@58953 -
This commit is contained in:
jesus 2018-09-11 17:46:07 +00:00
parent abb4caa1b0
commit 49dc72b87e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/dbgrids.pas
View File

@ -2704,6 +2704,7 @@ procedure TCustomDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
var
Gz: TGridZone;
P: TPoint;
aoe: Boolean;
procedure doMouseDown;
begin
if not Focused and not(csNoFocus in ControlStyle) then
@ -2763,7 +2764,18 @@ begin
CacheMouseDown(X,Y);
case Gz of
gzInvalid:
doMouseDown;
begin
if (cursor=crHSplit) and (dgColumnResize in Options) then begin
// DBGrid normally doesn't allow outbound events and this is one of them
// make GCache.HotGridZone valid for inherited mousedown. Issue #0034032
aoe := AllowOutboundEvents;
AllowOutboundEvents := true;
inherited MouseMove(shift, x, y);
AllowOutBoundEvents := aoe;
doInherited;
end else
doMouseDown;
end;
gzFixedCells, gzFixedCols:
doInherited;