From b27acb05ae40b04036b4c379375745f9ec29a54b Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 15 Apr 2018 19:09:46 +0000
Subject: [PATCH] RxFPC:fix edit time in TRxTimeEdit without seconds

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

diff --git a/components/rx/trunk/rxcontrols/rxtimeedit.pas b/components/rx/trunk/rxcontrols/rxtimeedit.pas
index d8e942363..6930aeb51 100644
--- a/components/rx/trunk/rxcontrols/rxtimeedit.pas
+++ b/components/rx/trunk/rxcontrols/rxtimeedit.pas
@@ -241,7 +241,9 @@ begin
   H1:=StrToInt(S[1]+S[2]);
   M2:=StrToInt(S[4]+S[5]);
   if FShowSecond then
-    S3:=StrToInt(S[7]+S[8]);
+    S3:=StrToInt(S[7]+S[8])
+  else
+    S3:=0;
   P:=GetSelStart;
   if P < 3 then
     IncHour