diff --git a/components/tvplanit/examples/printing/ganttview/data.ini b/components/tvplanit/examples/printing/ganttview/data.ini
index 564068268..ce9746191 100644
--- a/components/tvplanit/examples/printing/ganttview/data.ini
+++ b/components/tvplanit/examples/printing/ganttview/data.ini
@@ -16,5 +16,6 @@ Version=v105
 1387047049={StartTime:2022/10/07 09:00:00}|{EndTime:2022/10/07 13:00:00}|{ResourceID:1178568021}|{Description:Test Recurring daily}|{Category:0}|{AllDayEvent:false}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtCustom}|{RepeatRangeEnd:2022/10/30}|{CustomInterval:4}
 939711377={StartTime:2022/10/08 10:00:00}|{EndTime:2022/10/08 10:30:00}|{ResourceID:1178568021}|{Description:Test}|{Category:3}|{AllDayEvent:false}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0}
 1294424480={StartTime:2022/10/15 08:00:00}|{EndTime:2022/10/15 08:30:00}|{ResourceID:1178568021}|{Description:All-day event Oct 15}|{Category:2}|{AllDayEvent:true}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0}
+1915067938={StartTime:2022/10/25}|{EndTime:2022/10/25 23:59:00}|{ResourceID:0}|{Description:test abc}|{Category:3}|{AllDayEvent:true}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{RepeatRangeEnd:4637/11/25}|{CustomInterval:0}
 638950699={StartTime:2022/10/26}|{EndTime:2022/11/03}|{ResourceID:1178568021}|{Description:Test All-day events Oct26-Nov3}|{Category:0}|{AllDayEvent:true}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0}
 825453432={StartTime:2022/11/07 08:00:00}|{EndTime:2022/11/07 19:00:00}|{ResourceID:1178568021}|{Description:Test Nov-07}|{Category:2}|{AllDayEvent:false}|{AlarmSet:false}|{AlarmAdvance:15}|{AlarmAdvanceType:atMinutes}|{RepeatCode:rtNone}|{CustomInterval:0}
diff --git a/components/tvplanit/examples/printing/ganttview/gvPrintDemo.lpi b/components/tvplanit/examples/printing/ganttview/gvPrintDemo.lpi
index f935d7bd9..0046c7d59 100644
--- a/components/tvplanit/examples/printing/ganttview/gvPrintDemo.lpi
+++ b/components/tvplanit/examples/printing/ganttview/gvPrintDemo.lpi
@@ -66,7 +66,6 @@
     <Linking>
       <Debugging>
         <DebugInfoType Value="dsDwarf3"/>
-        <UseHeaptrc Value="True"/>
       </Debugging>
       <Options>
         <Win32>
diff --git a/components/tvplanit/source/vpganttview.pas b/components/tvplanit/source/vpganttview.pas
index d1be213db..940f99c4c 100644
--- a/components/tvplanit/source/vpganttview.pas
+++ b/components/tvplanit/source/vpganttview.pas
@@ -895,12 +895,13 @@ begin
     if dt <> NO_DATE then
     begin
       startTime := DatePart(dt);
-      endTime := startTime + 1.0;
+      endTime := startTime + 1.0 - OneSecond;
       ActiveEvent := Datastore.Resource.Schedule.AddEvent(
         Datastore.GetNextID(EventsTableName),
         startTime,
         endTime
       );
+      FActiveEvent.AllDayEvent := true;
       SpawnEventEditDialog(True);
     end;
   end;