TMSFNCPlanner1.VerticalScrollBar.Position := scrollpos

  TMSFNCPlanner1.HorizontalScrollBar.Position := scrollpos;

TMSFNCPlanner1.BeginUpdate;

TMSFNCPlanner1.Mode := pmCustom;
for I := 0 to 8 do
  TMSFNCPlanner1.CustomDateTimes.Add(IncMinute(EncodeDateTime(2017, 2, 22, 11, 0, 0, 0), 15 * I));

for I := 0 to 9 do
  TMSFNCPlanner1.CustomDateTimes.Add(IncMinute(EncodeDateTime(2017, 2, 22, 14, 0, 0, 0), 20 * I));

TMSFNCPlanner1.TimeLine.DisplayUnitFormat := ''h mm AMPM'';

TMSFNCPlanner1.TimeLineAppearance.LeftSize := 80;

TMSFNCPlanner1.EndUpdate;

TTMSFNCUtils.OpenURL(‘https://www.tmssoftware.com’);

TTMSFNCUtils.OpenFile(‘MyFile.txt’);

uses
  DateUtils, Math, DB, FireDac.Comp.Client, FMX.TMSFNCGridDatabaseAdapter, FMX.TMSFNCGrid;

procedure TForm1.FormCreate(Sender: TObject);
const
  DBName = ''Sample.sdb'';
  FirstNames: array[0 .. 19] of string = (''John'', ''Sarah'', ''Fred'', ''Beth'',
    ''Eric'', ''Tina'', ''Thomas'', ''Judy'', ''Robert'', ''Angela'', ''Tim'', ''Traci'',
    ''David'', ''Paula'', ''Bruce'', ''Jessica'', ''Richard'', ''Carla'', ''James'',
    ''Mary'');
  LastNames: array[0 .. 11] of string = (''Parker'', ''Johnson'', ''Jones'',
    ''Thompson'', ''Smith'', ''Baker'', ''Wallace'', ''Harper'', ''Parson'', ''Edwards'',
    ''Mandel'', ''Stone'');
var
  idx: Integer;
  ds: TDataSource;
  tbl: TFDMemTable;
  adapter: TTMSFNCGridDatabaseAdapter;
  g: TTMSFNCGrid;
begin
  g := TTMSFNCGrid.Create(Self);
  g.Parent := Self;

  tbl := TFDMemTable.Create(Self);
  tbl.FieldDefs.Add(''ID'', ftInteger, 0, True);
  tbl.FieldDefs.Add(''Name'', ftString, 20, True);
  tbl.FieldDefs.Add(''Birthday'', ftDateTime, 0, True);
  tbl.FieldDefs.Add(''Salary'', ftCurrency, 0, True);
  tbl.Open;
  tbl.DisableControls;
  try
   tbl.EmptyDataSet;
   for idx := 0 to 99999 do
   begin
     tbl.Append;
     tbl.FieldByName(''ID'').AsInteger := idx;
     tbl.FieldByName(''Name'').AsString := FirstNames[Random(20)] + '' '' + LastNames[Random(12)];
     tbl.FieldByName(''Birthday'').AsDateTime := IncDay(Now,  RandomRange(-10000, 10000));
     tbl.FieldByName(''Salary'').AsFloat := 20000.0 + Random(600) * 100;
     tbl.Post;
   end;
   tbl.First;
  finally
   tbl.EnableControls;
  end;
  tbl.Active := True;
  ds := TDataSource.Create(nil);
  ds.DataSet := tbl;

  adapter := TTMSFNCGridDatabaseAdapter.Create(Self);
  g.Adapter := adapter;
  adapter.Grid := g;
  adapter.DataSource := ds;
  adapter.Active := True;
end;

procedure TForm3.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to TMSFNCListBox1.Items.Count - 1 do
    TMSFNCListBox1.Items[I].DataInteger := RandomRange(1, 6)
end;

procedure TForm3.TMSFNCListBox1AfterDrawItem(Sender: TObject;
  AGraphics: TTMSFNCGraphics; ARect: TRectF; AItem: TTMSFNCListBoxItem);
var
  r: Integer;
  I: Integer;
  bmp: TBitmap;
  rrt: TRectF;
begin
  r := AItem.DataInteger;
  bmp := TMSFNCBitmapContainer1.FindBitmap(''rating'');
  for I := 0 to r - 1 do
  begin
    rrt := RectF(Round(ARect.Right - ((bmp.Width + 4) * (I + 1))), Round(ARect.Top + (ARect.Height - bmp.Height) / 2),
      Round(ARect.Right - ((bmp.Width + 4) * I)), Round(ARect.Top + (ARect.Height - bmp.Height) / 2 + bmp.Height));

    AGraphics.DrawBitmap(rrt, bmp);
  end;
end;

procedure TForm5.TMSFNCGrid1GetCellEditorType(Sender: TObject; ACol,
  ARow: Integer; var CellEditorType: TTMSFNCGridEditorType);
begin
  CellEditorType:= etCustom;
end;

procedure TForm5.TMSFNCGrid1GetCellEditorCustomClassType(Sender: TObject; ACol,
  ARow: Integer; var CellEditorCustomClassType: TTMSFNCGridEditorClass);
begin
  CellEditorCustomClassType := TTMSFNCRichEditor;
end;

procedure TForm5.TMSFNCGrid1GetCellEditorProperties(Sender: TObject; ACol,
  ARow: Integer; CellEditor: TWinControl);
begin
  TMSFNCRichEditorFormatToolBar1.RichEditor := (CellEditor as TTMSFNCRichEditor);
end;

procedure TForm5.TMSFNCGrid1CellEditGetData(Sender: TObject; ACol,
  ARow: Integer; CellEditor: TWinControl; var CellString: string);
begin
  TMSFNCRichEditorHTMLIO1.RichEditor := (CellEditor as TTMSFNCRichEditor);
  TMSFNCRichEditorHTMLIO1.LoadHTML(CellString);
end;

procedure TForm5.TMSFNCGrid1CellEditSetData(Sender: TObject; ACol,
  ARow: Integer; CellEditor: TWinControl; var CellString: string);
begin
  CellString := (CellEditor as TTMSFNCRichEditor).ContentAsHTML('''');
end;