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

tvplanit: Double-click on GanttView initialized the event editor with a single-day, all-day event.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8556 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-14 10:44:22 +00:00
parent 4e55432d77
commit 4af2571d9f
3 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/source/vpganttview.pas
View File

@ -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;