Hi,
I have a TVpMonthView used to show events.
In case of a resource has events for the month showned and the resource selected after do not have any events for that month, when I double click on a day then the event opened is the one related to the first resource for that day.
I found out that the procedure
procedure TVpMonthViewPainter.DrawEvents;
do not clear events in the
mvEventArray property of Tvpmonthview.
By adding this code (in bold) it seems that the issue is fixed.
k6I := 0;
with TVpMonthViewOpener(FMonthView) do
begin
while k6I < Length(mvEventArray) do begin
mvEventArray[k6I].Event := nil;
Inc(k6I);
end;
end;
before
{ write the events }
if (FMonthView.DataStore <> nil) and FMonthView.ShowEvents and
(FMonthView.DataStore.Resource <> nil) and
(FMonthView.DataStore.Resource.Schedule.EventCount <> 0)
Many thanks