Hello
I used following code to create events on calendars, i expected 10 events to be created but i see only FOUR events(Meeting1 to Meeting4) on the calendar.
what is wrong? am i missing any thing?
Thanks
procedure TMainForm.UniButton3Click(Sender: TObject);
var
E : TUniCalendarEvent;
i : integer;
begin
UniCalendar1.Date:=Date;
UniCalendarPanel1.StartDate:=Date;
while (UniCalendarPanel1.Events.Count >0) do
UniCalendarPanel1.Events.Item[0].Destroy;
for I := 1 to 10 do
begin
E:=UniCalendarPanel1.Events.Add;
E.CalendarId:=i;
E.Title:='Meeting' +IntTostr(i);
E.StartDate:=EncodeDateTime(yearof(Now),monthof(now),DayOf(now),8+i,0,0,0);
E.EndDate:= EncodeDateTime(yearof(Now),monthof(now),DayOf(now),8+i,30,0,0);
end;
end;