From d37c7b9dc94d64df75ab9ae84d18ab56c611bb9b Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 21 Jul 2009 05:59:34 +0000
Subject: [PATCH] Fix non responding up and down arrows in date time cell
 editor when cursor is positioned right besides last segment.

---
 source/grideditlinks.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index b217fb37..52ef590d 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -559,7 +559,7 @@ begin
         case FMaskEdit.SelStart of
           0..3: d := IncYear(d, Offset);
           5,6: d := IncMonth(d, Offset);
-          8,9: d := IncDay(d, Offset);
+          8..10: d := IncDay(d, Offset);
         end;
         text := DateToStr(d);
       end;
@@ -572,7 +572,7 @@ begin
           8,9: dt := IncDay(dt, Offset);
           11,12: dt := IncHour(dt, Offset);
           14,15: dt := IncMinute(dt, Offset);
-          17,18: dt := IncSecond(dt, Offset);
+          17..19: dt := IncSecond(dt, Offset);
         end;
         text := DateTimeToStr(dt);
         if Length(text) = 10 then
@@ -584,7 +584,7 @@ begin
         case FMaskEdit.SelStart of
           0,1: t := IncHour(t, Offset);
           3,4: t := IncMinute(t, Offset);
-          6,7: t := IncSecond(t, Offset);
+          6..8: t := IncSecond(t, Offset);
         end;
         text := TimeToStr(t);
       end;