[TMSFMXSpinner] wrong value displayed

FMX TMS FMX UI Pack
6

Hi, 


With the code below, we are not experiencing any issues:

  TMSFMXSpinner1.BeginUpdate;
  TMSFMXSpinner1.Columns.Clear;
  with TMSFMXSpinner1.Columns.Add do
  begin
    Cyclic := True;
    DateRangeFrom := EncodeDate(1970, 1, 1);
    DateRangeTo := EncodeDate(2020, 12, 1);
    DateTimeValueFormat := 'dd';
    OnlyDate := True;
    RangeType := srtDateTime;
    Step := 1;
    StepType := sstDay;
  end;

  with TMSFMXSpinner1.Columns.Add do
  begin
    Cyclic := True;
    DateRangeFrom := EncodeDate(1970, 1, 1);
    DateRangeTo := EncodeDate(2020, 12, 1);
    DateTimeValueFormat := 'mm';
    OnlyDate := True;
    RangeType := srtDateTime;
    Step := 1;
    StepType := sstMonth;
  end;

  with TMSFMXSpinner1.Columns.Add do
  begin
    Cyclic := True;
    DateRangeFrom := EncodeDate(1970, 1, 1);
    DateRangeTo := EncodeDate(2020, 12, 1);
    DateTimeValueFormat := 'yyyy';
    OnlyDate := True;
    RangeType := srtDateTime;
    Step := 1;
    StepType := sstYear;
  end;
  TMSFMXSpinner1.EndUpdate;

  TMSFMXSpinner1.Columns[0].SelectedDateTime := Int(Now);
  TMSFMXSpinner1.Columns[1].SelectedDateTime := Int(Now);
  TMSFMXSpinner1.Columns[2].SelectedDateTime := Int(Now);

Kind Regards, 
Pieter