Quintiq file version 2.0
|
#parent: #root
|
Method Edit (
|
internal[GUIComponent] parent_i,
|
ExplicitTimeInterval timeInterval_i
|
) as Number id:Method_LibCal_dlgEditTimeInterval_Edit
|
{
|
#keys: '[131094.0.1401969130]'
|
Body:
|
[*
|
sTimeInterval := shadow( timeInterval_i );
|
Dialog.Data( sTimeInterval );
|
|
// In principle the dialog can also be used for 'generic' ExplicitTimeIntervals;
|
// in that case there is no Event.
|
event := guard( timeInterval_i.astype( LibCal_ExplicitTimeInterval ).Participation().Event(),
|
null( LibCal_Event ) );
|
timezone := Dialog.GetCalendarTimeZone();
|
|
// Initialize the controls...
|
datStartDate .Date( sTimeInterval.Start().Date( timezone ) ); // Get rid of the time,
|
durStartTimeOfDay.Duration( sTimeInterval.Start().TimeOfDay( timezone ) ); // put it in its own control.
|
|
datEndDate .Date( sTimeInterval.End().Date( timezone ) );
|
durEndTimeOfDay.Duration( sTimeInterval.End().TimeOfDay( timezone ) );
|
|
isAllDay := sTimeInterval.Start().TimeOfDay( timezone ) = Duration::Zero()
|
and sTimeInterval.End() .TimeOfDay( timezone ) = Duration::Zero();
|
ckbIsAllDay.Checked( isAllDay );
|
|
// Show the EventInfo as tooltip of the subject of the Event.
|
lblSubject.SetProperty( "Tooltip", guard( event.Info(), "" ) );
|
|
// ... and the 'memory'.
|
vhStartDate.Data( datStartDate.Date() );
|
vhStartTimeOfDay.Data( durStartTimeOfDay.Duration() );
|
|
vhEndDate.Data( datEndDate.Date() );
|
vhEndTimeOfDay.Data( durEndTimeOfDay.Duration() );
|
|
this.UpdateDuration();
|
this.ShowAllDay();
|
|
// Hide the panel if there is no EventInfo to show.
|
pnlEventInfo.Visible( not isnull( event ) );
|
|
return Dialog.DoModal( parent_i );
|
*]
|
}
|
