Getting started

This page covers the shortest path to a running TTMSFNCPlanner: drop the component, configure a day view, add a couple of items, and respond to selection. For the full, task-oriented documentation see the user guide and the per-feature pages linked from it.

Prerequisites

Delphi (or a compatible IDE) with TMS FNC UI Pack installed.
A new or existing VCL, FMX, or WEB Core application.

Search for TTMSFNCPlanner in the Tool Palette.
Drag it onto your form and set its Align to Client.

The snippet below creates the planner in code, configures an hourly day view, adds two items, and wires the selection event:

Create a planner, set a day view, and add itemsPascalC++

procedure TForm1.FormCreate(Sender: TObject);
var
  it: TTMSFNCPlannerItem;
begin
  Planner1 := TTMSFNCPlanner.Create(Self);
  Planner1.Parent := Self;
  Planner1.Align := TAlignLayout.Client;

  Planner1.BeginUpdate;
  try
    // An hourly day view anchored on today, 08:00-18:00 visible.
    Planner1.Mode := pmDay;
    Planner1.TimeLine.DisplayUnitType := pduMinute;
    Planner1.TimeLine.DisplayUnit := 60;
    Planner1.TimeLine.DisplayStart := 8;
    Planner1.TimeLine.DisplayEnd := 18;
    Planner1.TimeLine.ViewStart := Date;

    it := Planner1.AddItem(Today + EncodeTime(9, 0, 0, 0),
                           Today + EncodeTime(11, 0, 0, 0));
    it.Title := 'Stand-up';
    it.Text := 'Daily status';

    Planner1.AddOrUpdateItem(Today + EncodeTime(13, 0, 0, 0),
                             Today + EncodeTime(14, 30, 0, 0),
                             'Review', 'Sprint demo');
  finally
    Planner1.EndUpdate;
  end;

  Planner1.OnAfterSelectItem := PlannerSelect;
end;

procedure TForm1.PlannerSelect(Sender: TObject; AItem: TTMSFNCPlannerItem);
begin
  if Assigned(AItem) then
    ShowMessage('Selected: ' + AItem.Title);
end;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Planner1 = new TTMSFNCPlanner(this);
  Planner1->Parent = this;
  Planner1->Align = TAlignLayout::Client;

  Planner1->BeginUpdate();
  try
  {
    // An hourly day view anchored on today, 08:00-18:00 visible.
    Planner1->Mode = pmDay;
    Planner1->TimeLine->DisplayUnitType = pduMinute;
    Planner1->TimeLine->DisplayUnit = 60;
    Planner1->TimeLine->DisplayStart = 8;
    Planner1->TimeLine->DisplayEnd = 18;
    Planner1->TimeLine->ViewStart = Date();

    TTMSFNCPlannerItem *it = Planner1->AddItem(Today() + EncodeTime(9, 0, 0, 0),
                                               Today() + EncodeTime(11, 0, 0, 0));
    it->Title = "Stand-up";
    it->Text = "Daily status";

    Planner1->AddOrUpdateItem(Today() + EncodeTime(13, 0, 0, 0),
                              Today() + EncodeTime(14, 30, 0, 0),
                              "Review", "Sprint demo");
  }
  __finally
  {
    Planner1->EndUpdate();
  }

  Planner1->OnAfterSelectItem = PlannerSelect;
}

void __fastcall TForm1::PlannerSelect(TObject *Sender, TTMSFNCPlannerItem *AItem)
{
  if (AItem != nullptr)
    ShowMessage("Selected: " + AItem->Title);
}

The planner uses a unit-based timeline: DisplayUnit and DisplayUnitType set the row duration, while DisplayStart/DisplayEnd are row indices counted from midnight and ViewStart is the date anchor. See Timeline for the full model.

TMS FNC Planner showing a day view with scheduled items

TMS FNC Planner showing a day view with scheduled items in a dark theme

Where to next

Timeline — display units, visible range, active hours, and navigation.
Items — item properties, defaults, editing, and linking.
Appearance — colors, fonts, grid, and selection styling.
Interaction — insert, edit, move/size, keyboard, and touch.
Database adapter — bind the planner to a dataset.
Recurrence — repeating items with iCalendar RRULE.

Getting started

Prerequisites

Add the component to a form

Where to next

See also