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?
Hi,
Pieter Scheldeman2016-06-23 10:57:21
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
Hi,
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';
Thank you for reporting the issue is fixed.