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

LCL: Improve Tab and Enter behavior in TDBGrid when dgRowSelect in options. Issue #32468, patch from Michal Gawrycki.

Browse Source 
git-svn-id: trunk@55942 -
This commit is contained in:
juha 2017-09-29 11:57:30 +00:00
parent 7e8132a70d
commit 3b86b0e628
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/dbgrids.pas
View File

@ -2381,7 +2381,12 @@ var
end;
GridFlags := GridFlags + [gfEditingDone];
if (DeltaCol<>0) then
Col := Col + DeltaCol;
if Col + DeltaCol < FixedCols then
Col := FixedCols
else if Col + DeltaCol >= ColCount then
Col := ColCount - 1
else
Col := Col + DeltaCol;
GridFlags := GridFlags - [gfEditingDone];
end else
if AReset then
@ -2396,7 +2401,7 @@ begin
begin
doOnKeyDown;
if (Key<>0) and ValidDataset then begin
if (dgTabs in Options) and not (dgRowSelect in Options) then begin
if (dgTabs in Options) then begin
if ((ssShift in shift) and
(Col<=GetFirstVisibleColumn) and (Row<=GetFirstVisibleRow)) then begin
@ -2428,7 +2433,7 @@ begin
key:=0;
if (dgEditing in Options) and not EditorMode then
EditorMode:=true
else if not (dgRowSelect in Options) then begin
else begin
GetDeltaMoveNext(ssShift in Shift, DeltaCol, DeltaRow, AutoAdvance);
MoveSel(True);
end;