mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
Fix non responding up and down arrows in date time cell editor when cursor is positioned right besides last segment.
This commit is contained in:
@ -559,7 +559,7 @@ begin
|
|||||||
case FMaskEdit.SelStart of
|
case FMaskEdit.SelStart of
|
||||||
0..3: d := IncYear(d, Offset);
|
0..3: d := IncYear(d, Offset);
|
||||||
5,6: d := IncMonth(d, Offset);
|
5,6: d := IncMonth(d, Offset);
|
||||||
8,9: d := IncDay(d, Offset);
|
8..10: d := IncDay(d, Offset);
|
||||||
end;
|
end;
|
||||||
text := DateToStr(d);
|
text := DateToStr(d);
|
||||||
end;
|
end;
|
||||||
@ -572,7 +572,7 @@ begin
|
|||||||
8,9: dt := IncDay(dt, Offset);
|
8,9: dt := IncDay(dt, Offset);
|
||||||
11,12: dt := IncHour(dt, Offset);
|
11,12: dt := IncHour(dt, Offset);
|
||||||
14,15: dt := IncMinute(dt, Offset);
|
14,15: dt := IncMinute(dt, Offset);
|
||||||
17,18: dt := IncSecond(dt, Offset);
|
17..19: dt := IncSecond(dt, Offset);
|
||||||
end;
|
end;
|
||||||
text := DateTimeToStr(dt);
|
text := DateTimeToStr(dt);
|
||||||
if Length(text) = 10 then
|
if Length(text) = 10 then
|
||||||
@ -584,7 +584,7 @@ begin
|
|||||||
case FMaskEdit.SelStart of
|
case FMaskEdit.SelStart of
|
||||||
0,1: t := IncHour(t, Offset);
|
0,1: t := IncHour(t, Offset);
|
||||||
3,4: t := IncMinute(t, Offset);
|
3,4: t := IncMinute(t, Offset);
|
||||||
6,7: t := IncSecond(t, Offset);
|
6..8: t := IncSecond(t, Offset);
|
||||||
end;
|
end;
|
||||||
text := TimeToStr(t);
|
text := TimeToStr(t);
|
||||||
end;
|
end;
|
||||||
|
Reference in New Issue
Block a user