From 4af2571d9fd74b83a3b81726f5381e0ed6c57e84 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 14 Oct 2022 10:44:22 +0000 Subject: [PATCH] tvplanit: Double-click on GanttView initialized the event editor with a single-day, all-day event. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8556 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/tvplanit/examples/printing/ganttview/data.ini | 1 + .../tvplanit/examples/printing/ganttview/gvPrintDemo.lpi | 1 - components/tvplanit/source/vpganttview.pas | 3 ++- 3 files changed, 3 insertions(+), 2 deletions(-) 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 @@ - 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;