Quintiq file version 2.0
#parent: #root
Method DisableEvent () id:Method_LibCal_dlgEvent_DisableEvent
{
  #keys: '[131094.0.1233382664]'
  Body:
  [*
    // Disable the event-related controls if applicable, enable them otherwise.
    sLeadPart   := dhLeadingParticipation.Data();
    isInitiator := Dialog.Data().Calendar() = sLeadPart.Calendar();
    isRecurring := not isnull( sLeadPart.RecurrencePeriod() );
    
    // Only the initiator can change the Event.
    feedback := ifexpr( not isInitiator, Translations::Event_CanOnlyBeChangedByInitiator( Dialog.Data().Initiator() ), "" );
    
    if( feedback <> "" )
    {
      edtName                   .DisableWithUserFeedback( feedback );
      rbgEventType              .DisableWithUserFeedback( feedback );
      durStartTimeOfDay         .DisableWithUserFeedback( feedback );
      durEndTimeOfDay           .DisableWithUserFeedback( feedback );
      ckbIsAllDay               .DisableWithUserFeedback( feedback );
      durStartTimeOfDayRecurring.DisableWithUserFeedback( feedback );
      durEndTimeOfDayRecurring  .DisableWithUserFeedback( feedback );
      ckbIsAllDayRecurring      .DisableWithUserFeedback( feedback );
      btnAddDayRecurring                 .DisableWithUserFeedback( feedback );
      btnSubtractDayRecurring            .DisableWithUserFeedback( feedback );
      
      if( isRecurring )
      {
        this.DisablePattern( feedback );
      }
      
      // Only the initiator can change the participants.
      btnSelectAll  .DisableWithUserFeedback( feedback );
      btnDeselectAll.DisableWithUserFeedback( feedback ); 
      lstSubscribers.Enabled( isInitiator );
    }
    else
    {   
      edtName                   .Enabled( true );
      rbgEventType              .Enabled( true );
      durStartTimeOfDay         .Enabled( not ckbIsAllDay.Checked() );
      durEndTimeOfDay           .Enabled( not ckbIsAllDay.Checked() );
      ckbIsAllDay               .Enabled( true );
      durStartTimeOfDayRecurring.Enabled( not ckbIsAllDay.Checked() );
      durEndTimeOfDayRecurring  .Enabled( not ckbIsAllDay.Checked() );
      ckbIsAllDayRecurring      .Enabled( true );
      btnAddDayRecurring                 .Enabled( true );
      btnSubtractDayRecurring            .Enabled( true );
    
      if( isRecurring )
      {
        this.EnablePattern();
      }
    }
    
    // Dates can only be changed if there is no recurrence, and only by the initiator.
    if( isRecurring )
    {
      feedback := Translations::Event_IsRecurring();
      datStartDate.DisableWithUserFeedback( feedback );
      datEndDate  .DisableWithUserFeedback( feedback );
    }
    else if( not isInitiator )
    {
      feedback := Translations::Event_CanOnlyBeChangedByInitiator( Dialog.Data().Initiator() );
      datStartDate.DisableWithUserFeedback( feedback );
      datEndDate  .DisableWithUserFeedback( feedback );
    }
    else
    {
      datStartDate.Enabled( true );
      datEndDate  .Enabled( true );
    }
    
    // Also show duration as disabled when everything else is disabled.
    color := ifexpr( isInitiator or not isRecurring, Color::Black(), Color::Gray() );
    valDuration         .TextColor( color );
    valDurationRecurring.TextColor( color );
    lblOneDayRecurring           .TextColor( color );
  *]
}