paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-21 15:09:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Move cursor forward instead of backward when deleting

Browse Source 
git-svn-id: trunk@30926 -
This commit is contained in:
blikblum 2015-05-28 12:22:40 +00:00
parent 36dfe750d8
commit f1db1db8b9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqlite/customsqliteds.pas
View File

@ -889,10 +889,10 @@ begin
TempItem^.Previous^.Next := TempItem^.Next; TempItem^.Previous^.Next := TempItem^.Next;
if FCurrentItem = TempItem then if FCurrentItem = TempItem then
begin begin
if FCurrentItem^.Previous <> FBeginItem then if FCurrentItem^.Next <> FEndItem then
FCurrentItem := FCurrentItem^.Previous FCurrentItem := FCurrentItem^.Next
else else
FCurrentItem := FCurrentItem^.Next; FCurrentItem := FCurrentItem^.Previous;
end; end;
// Dec FNextAutoInc (only if deleted item is the last record) // Dec FNextAutoInc (only if deleted item is the last record)
if FAutoIncFieldNo <> -1 then if FAutoIncFieldNo <> -1 then