Item planner not show in ios and android

VCL TMS VCL UI Pack
1

Hi guys , the code below works in windows ,

***------------FormCreate *************
 TMSFMXPlanner1.Mode := pmDay;
  TMSFMXPlanner1.TimeLine.DisplayUnit := 1;
  TMSFMXPlanner1.TimeLine.DisplayUnitType :=  pduHour;
  TMSFMXPlanner1.TimeLine.DisplayStart := 9;
  TMSFMXPlanner1.TimeLine.DisplayEnd := 17;
  TMSFMXPlanner1.Positions.Count :=1;
  TMSFMXPlanner1.Resources.Add.Text:='Available';
  TMSFMXPlanner1.DefaultItem.Color:=claLightSteelBlue;
  TMSFMXPlanner1.DefaultItem.FontColor:=claWhite;
  TMSFMXPlanner1.DefaultItem.TitleFontColor:=claWhite;
  TMSFMXPlanner1.DefaultItem.Deletable:=True;
  TMSFMXPlanner1.ItemsAppearance.ShowDeleteArea:=False;
  TMSFMXPlanner1.DefaultItem.Movable:=False;
  TMSFMXPlanner1.Interaction.MultiSelect:=True;
  TMSFMXPlanner1.BeginUpdate;

  TMSFMXPlanner1.Items.Clear;
  dt1:=trunc(date);
  it := TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(9, 00, 0, 0), (dt1) +EncodeTime(10, 00, 0, 0),  '09:00 AM - 10:00 AM', '');
  it := TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(10, 00, 0, 0), (dt1) +EncodeTime(11, 00, 0, 0),  '10:00 AM - 11:00 AM', '');
  it := TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(11, 00, 0, 0), (dt1) +EncodeTime(12, 00, 0, 0),  '11:00 AM - 12:00 PM', '');
  it :=   TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(12, 00, 0, 0), (dt1) +EncodeTime(13, 00, 0, 0),  '12:00 PM - 01:00 PM', '');
  it :=   TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(13, 00, 0, 0), (dt1) +EncodeTime(14, 00, 0, 0),  '01:00 PM - 02:00 PM', '');
  it :=   TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(14, 00, 0, 0), (dt1) +EncodeTime(15, 00, 0, 0),  '02:00 PM - 03:00 PM', '');
  it :=   TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(15, 00, 0, 0), (dt1) +EncodeTime(16, 00, 0, 0),  '03:00 PM - 04:00 PM', '');
  it :=   TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(16, 00, 0, 0), (dt1) +EncodeTime(17, 00, 0, 0),  '04:00 PM - 05:00 PM', '');
  it :=   TMSFMXPlanner1.AddOrUpdateItem((dt1) +EncodeTime(17, 00, 0, 0), (dt1) +EncodeTime(18, 00, 0, 0),  '05:00 PM - 06:00 PM', '');

  TMSFMXPlanner1.EndUpdate;
------------FormCreate ****************


 but in ios and android this not work, can you help me?

2

Hi, 


If you are referring to the resource that is not showing, then you need to clear the resources first, by default there are 3 resources added. The code works as expected:

1080×1920 118 KB



Pieter Scheldeman2016-06-23 10:57:21
3

Hi , I referring to items in  the planner, the planner looks like this for me

https://www.dropbox.com/s/6r7fxndcuof828e/FullSizeRender.jpg?dl=0


4

Hi, 


Are you using the latest version?
5

yes , I use the last version , this code work for me , thank you

 TMSFMXPlanner1.Resources.Clear;
  TMSFMXPlanner1.Mode := pmDay;

  dt1 := Now;
  TMSFMXPlanner1.ModeSettings.StartTime := dt1;

  TMSFMXPlanner1.TimeLine.DisplayUnit := 1;
  TMSFMXPlanner1.TimeLine.DisplayUnitType :=  pduHour;
  TMSFMXPlanner1.TimeLine.DisplayStart := 9;
  TMSFMXPlanner1.TimeLine.DisplayEnd := 17;


  TMSFMXPlanner1.Positions.Count :=1;
  TMSFMXPlanner1.Resources.Add.Text:='Available';
  TMSFMXPlanner1.DefaultItem.Color:=claLightSteelBlue;
  TMSFMXPlanner1.DefaultItem.FontColor:=claWhite;
  TMSFMXPlanner1.DefaultItem.TitleFontColor:=claWhite;
  TMSFMXPlanner1.DefaultItem.Deletable:=True;
  TMSFMXPlanner1.ItemsAppearance.ShowDeleteArea:=False;
  TMSFMXPlanner1.DefaultItem.Movable:=False;

  TMSFMXPlanner1.Interaction.MultiSelect:=True;

  TMSFMXPlanner1.Items.Clear;
  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(9, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(10, 00, 0, 0);
  it.Text := '09:00 AM - 10:00 AM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(10, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(11, 00, 0, 0);
  it.Text := '10:00 AM - 11:00 AM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(11, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(12, 00, 0, 0);
  it.Text := '11:00 AM - 12:00 PM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(12, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(13, 00, 0, 0);
  it.Text := '12:00 PM - 01:00 PM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(13, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(14, 00, 0, 0);
  it.Text := '01:00 PM - 02:00 PM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(14, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(15, 00, 0, 0);
  it.Text := '02:00 PM - 03:00 PM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(15, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(16, 00, 0, 0);
  it.Text := '03:00 PM - 04:00 PM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(16, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(17, 00, 0, 0);
  it.Text := '04:00 PM - 05:00 PM';

  it := TMSFMXPlanner1.Items.Add;
  it.StartTime := int(dt1) +EncodeTime(17, 00, 0, 0);
  it.EndTime := int(dt1) +EncodeTime(18, 00, 0, 0);
  it.Text := '05:00 PM - 06:00 PM';

6
7

Thank you for reporting the issue is fixed.