From a1ac8efd0314269969884407317d0e7773be12df Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Thu, 15 Aug 2019 16:59:40 +0000 Subject: [PATCH] jvcllaz: Update to include issues #6595 of the jvcl bugtracker. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7134 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/jvcllaz/run/JvTimeFramework/jvtfdays.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas b/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas index d67cf01ed..b219032f5 100644 --- a/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas +++ b/components/jvcllaz/run/JvTimeFramework/jvtfdays.pas @@ -2565,7 +2565,7 @@ begin while (ApptsExamined < FData[MapRow, -1]) and not Result do begin Test := FData[MapRow, MapCol]; - if Test > 0 then + if Test <> 0 then begin Inc(ApptsExamined); if Test = NativeInt(Appt) then