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

fix IncHour - txh Jura from freepascal.ru

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2272 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-01-29 04:46:28 +00:00
parent bd2c3feb49
commit 644473ec2d
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/rxtimeedit.pas
View File

@ -177,7 +177,11 @@ var
procedure IncHour; procedure IncHour;
begin begin
H1:=H1+AValue; H1:=H1+AValue;
if H1<0 then H1:=0; if H1>23 then
H1:=0
else
if H1<0 then
H1:=23;
end; end;
procedure IncMin; procedure IncMin;