Recent

Author Topic: Visual PlanIt and lots of events on the day  (Read 3036 times)

kkuba

  • Jr. Member
  • **
  • Posts: 50
Visual PlanIt and lots of events on the day
« on: October 07, 2023, 10:37:21 pm »
I have the problem that I have a lot of events on one day. It doesn't fit in the events preview by day, or even less in the events preview by week. When it does, three dots appear at the bottom, but clicking on them only adds a event. So it's impossible to scroll through the events on that day. Is there any way to display a long list of events on a given day? No matter in which component, e.g. in VpWeekView?  :(
« Last Edit: October 07, 2023, 10:47:52 pm by kkuba »

wp

  • Hero Member
  • *****
  • Posts: 13491
Re: Visual PlanIt and lots of events on the day
« Reply #1 on: October 07, 2023, 11:55:56 pm »
How many is a "lot of events"? How many are overlapping?

kkuba

  • Jr. Member
  • **
  • Posts: 50
Re: Visual PlanIt and lots of events on the day
« Reply #2 on: October 08, 2023, 12:13:13 am »
I had this idea to show the availability of the team during the week. It's about 15 people, but if it's not possible or it's difficult, I'll come up with something else.

wp

  • Hero Member
  • *****
  • Posts: 13491
Re: Visual PlanIt and lots of events on the day
« Reply #3 on: October 08, 2023, 12:29:31 am »
OK, I see: with about 10 overlapping events it gets tight even on a wide monitor... Let me see what I can do.

wp

  • Hero Member
  • *****
  • Posts: 13491
Re: Visual PlanIt and lots of events on the day
« Reply #4 on: October 08, 2023, 01:10:34 am »
See attached demo for a quick-and-dirty solution. You can write a procedure which exports all events of the date selected in the Dayview to a StringList, and this could be displayed in a Listbox, for example:

Code: Pascal  [Select][+][-]
  1. procedure ExportEventsByDate(AResource: TVpResource; Date: TDateTime; AList: TStrings);
  2. var
  3.   i: Integer;
  4.   event: TVpEvent;
  5.   schedule: TVpSchedule;
  6. begin
  7.   schedule := AResource.Schedule;
  8.   for I := 0 to schedule.EventCount-1 do
  9.   begin
  10.     event := schedule.GetEvent(I);
  11.     if schedule.IsEventOfThisDate(Date, event) then
  12.     begin
  13.       if event.AllDayEvent then
  14.         AList.Insert(0, Format('all day: %s', [event.Description]))
  15.       else
  16.         AList.Add('%s - %s: %s', [
  17.           FormatDateTime(FormatSettings.ShortTimeFormat, event.StartTime),
  18.           FormatDateTime(FormatSettings.ShortTimeFormat, event.EndTime),
  19.           event.Description
  20.         ]);
  21.     end;
  22.   end;
  23. end;

kkuba

  • Jr. Member
  • **
  • Posts: 50
Re: Visual PlanIt and lots of events on the day
« Reply #5 on: October 08, 2023, 07:52:30 am »
This is what I was thinking about. I just wrote a query in SQL to the events table using ZQurey because in then I could use DBGrid. But this is a nightmare solution.... In fact, it should probably work like this, that when you click on the three dots it moves the list of events. Because now it is impossible to edit a longer list of events from these components.  :(

wp

  • Hero Member
  • *****
  • Posts: 13491
Re: Visual PlanIt and lots of events on the day
« Reply #6 on: October 11, 2023, 12:32:30 am »
I extended the TVpGanttview to hour resolution. In a GanttView the time is on the horizontal axis (in DayView it is on the vertical axis), and every event has a single row. Maybe this is better-suited to this use case.

 

TinyPortal © 2005-2018