|  |  | 
 |  |  |     // Event and LeadingParticipation | 
 |  |  |     subject        := edtName.Text(); | 
 |  |  |     description    := edtDescription.Text(); | 
 |  |  |     eventTypeList  := ddlEventType.Data(); | 
 |  |  |     category       := sEvent.EventCategory();  | 
 |  |  |     isDefault      := ckbApplyToNewResources.Checked(); | 
 |  |  |     startDate      := dsStartDate.Date(); | 
 |  |  |     startTimeOfDay := durStartTimeOfDay.Duration(); | 
 |  |  |     endDate        := dsStartDate.Date(); | 
 |  |  |     endDate        := dsEndDate.Date(); | 
 |  |  |     endTimeOfDay   := durEndTimeOfDay.Duration(); | 
 |  |  |     isAllDay       := false; | 
 |  |  |     isAllDay       := ckbIsAllDay.Checked(); | 
 |  |  |      | 
 |  |  |     eventType := ddslType.Text(); | 
 |  |  |     capacity  := Real::MinReal();  // Always fill the capacity. | 
 |  |  |      | 
 |  |  |     // RecurrencePattern | 
 |  |  |     isRecurring        := false; | 
 |  |  |     isRecurring        := true; | 
 |  |  |     recurrenceInterval := 1; | 
 |  |  |     patternType        := LibCal_RecurrencePeriod::TYPE_WITHOUTEND(); | 
 |  |  |     patternType        := LibCal_RecurrencePattern::TYPE_DAILY(); | 
 |  |  |      | 
 |  |  |     // Daily | 
 |  |  |     daily_IsEveryWeekday := false; | 
 |  |  | 
 |  |  |     yearly_DayOfWeek   := ''; | 
 |  |  |      | 
 |  |  |     // RecurrencePeriod | 
 |  |  |     periodType      := LibCal_RecurrencePeriod::TYPE_WITHOUTEND(); | 
 |  |  |     periodStartDate := Date::MinDate(); | 
 |  |  |     periodEndDate   := Date::MinDate(); | 
 |  |  |     nrOfOccurrences := 0; | 
 |  |  |     periodType      := LibCal_RecurrencePeriod::TYPE_NROFOCCURRENCES(); | 
 |  |  |     periodStartDate := dsStartDate.Date(); | 
 |  |  |     periodEndDate   := startDate + 1; | 
 |  |  |     nrOfOccurrences := 1; | 
 |  |  |      | 
 |  |  |     // All values are passed to the Server, only the relevant values are used there. | 
 |  |  |     event := LibCal_Event::CreateUpdateFromUI( sEvent.Calendar(), sLeadPart.WrappedInstance(), | 
 |  |  |                                                subject, description, eventType, capacity, category, isDefault, | 
 |  |  |                                                subject, description, eventType, eventTypeList, capacity, category, isDefault, | 
 |  |  |                                                startDate, startTimeOfDay, endDate, endTimeOfDay, isAllDay, | 
 |  |  |                                                // RecurrencePattern | 
 |  |  |                                                isRecurring, recurrenceInterval, patternType, | 
 |  |  | 
 |  |  |                                                // RecurrencePeriod | 
 |  |  |                                                periodType, periodStartDate, nrOfOccurrences, periodEndDate, | 
 |  |  |                                                // Subscribers | 
 |  |  |                                                dhSubscribers.Data() ); | 
 |  |  |                                                dhSubscribers.Data(), true ); | 
 |  |  |      | 
 |  |  |     return event; | 
 |  |  |   *] | 
 |  |  | } |