TAtlasAppointment

ID field

ID: Integer;

Identifier assigned by TAtlasSchedule.Add, starting at 1 and never reused within the schedule. 0 is never a valid ID; TAtlasScheduler.SelectedID uses 0 for no selection.

Caption field

Caption, Resource: string;

Text shown inside the appointment block by TAtlasScheduler.

Resource field

Caption, Resource: string;

Name of the resource the appointment occupies. Conflicts are checked per resource; the comparison is case-sensitive.

StartsAt field

StartsAt, EndsAt: TDateTime;

Start of the interval, inclusive. Must be at least 1 as a TDateTime (31 December 1899) and before EndsAt.

EndsAt field

StartsAt, EndsAt: TDateTime;

End of the interval, exclusive. Must be after StartsAt and no later than 31 December 9999.

Color field

Color: Integer;

Fill colour of the block in $00BBGGRR form (a TColor value); TAtlasSchedule.Add defaults it to $00B99036. Appointment colours are data and are not changed by TAtlasThemer.

Read an appointment back

The record is a copy; format its fields for display.

uses System.SysUtils, Atlas.Schedule;

function Describe(Schedule: TAtlasSchedule; ID: Integer): string;
var
  Item: TAtlasAppointment;
begin
  Item := Schedule.Appointment(ID);
  Result := Format('%s (%s): %s to %s', [Item.Caption, Item.Resource,
    FormatDateTime('ddd hh:nn', Item.StartsAt), FormatDateTime('hh:nn', Item.EndsAt)]);
end;