From 644473ec2d520e9e67b4fe4ff94325d98b298398 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 29 Jan 2012 04:46:28 +0000
Subject: [PATCH] fix IncHour - txh Jura from freepascal.ru

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2272 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxtimeedit.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/rx/rxtimeedit.pas b/components/rx/rxtimeedit.pas
index dc8ec28f7..3c71aac69 100644
--- a/components/rx/rxtimeedit.pas
+++ b/components/rx/rxtimeedit.pas
@@ -177,7 +177,11 @@ var
 procedure IncHour;
 begin
   H1:=H1+AValue;
-  if H1<0 then H1:=0;
+  if H1>23 then
+    H1:=0
+  else
+  if H1<0 then
+    H1:=23;
 end;
 
 procedure IncMin;