pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix edit time in TRxTimeEdit without seconds

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6306 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-04-15 19:09:46 +00:00
parent 7f3cb8ed40
commit b27acb05ae
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxcontrols/rxtimeedit.pas
View File

@ -241,7 +241,9 @@ begin
H1:=StrToInt(S[1]+S[2]); H1:=StrToInt(S[1]+S[2]);
M2:=StrToInt(S[4]+S[5]); M2:=StrToInt(S[4]+S[5]);
if FShowSecond then if FShowSecond then
S3:=StrToInt(S[7]+S[8]); S3:=StrToInt(S[7]+S[8])
else
S3:=0;
P:=GetSelStart; P:=GetSelStart;
if P < 3 then if P < 3 then
IncHour IncHour