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

LCL, fix dbgrid extending selection, issue #11945

Browse Source 
git-svn-id: trunk@16185 -
This commit is contained in:
jesus 2008-08-22 15:14:18 +00:00
parent f9b471de56
commit 5da0924867
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/dbgrids.pas
View File

@ -416,6 +416,7 @@ type
procedure Loaded; override;
procedure MoveSelection; override;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure PrepareCanvas(aCol,aRow: Integer; aState:TGridDrawState); override;
procedure RemoveAutomaticColumns;
procedure SelectEditor; override;
@ -2042,6 +2043,14 @@ begin
{$IfDef dbgGrid} DebugLn('DBGrid.MouseDown END'); {$Endif}
end;
procedure TCustomDBGrid.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
if fGridState=gsSelecting then
exit
else
inherited MouseMove(Shift, X, Y);
end;
procedure TCustomDBGrid.PrepareCanvas(aCol, aRow: Integer;
aState: TGridDrawState);
begin
@ -2658,7 +2667,7 @@ begin
dgAlwaysShowSelection];
inherited Options :=
[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect,
[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine,
goSmoothScroll, goColMoving, goTabs, goEditing, goDrawFocusSelected,
goColSizing ];