erich.wanker Posted October 4, 2018 Share Posted October 4, 2018 hi following code doesnt work (i think since update from extjs 4 to extjs 6 ??) procedure TS_TOOL_KALENDER.termin_eintragen(wann:TDateTime;was:String;id:Integer); var E : TUniCalendarEvent; i : integer; begin E:=UniCalendarPanel1.Events.Add; E.CalendarId:=id; E.Title :='Termin:'+was; E.IsAllDay :=true; E.StartDate :=wann; E.EndDate :=wann; end; the code produce no error - but the calendarPanel (Month-view) shows no Events Any Idea ThanX Erich Quote Link to comment Share on other sites More sharing options...
Ronbral Posted October 4, 2018 Share Posted October 4, 2018 Hi Erich! I am currently working with this component in the version 1.50.0.1475/Ext JS 6.5.3 and the functionality is normal. See my snippet of code that is just like yours. With UMM do begin If ASSelectDS(sql, '', KMT2) >0 then while not KMT2.Eof do begin //Adiciona e Exibe Evento na Agenda ------------------------------------- Ok AEvent := CalAgenda.Events.Add; // Novo evento <--- AEvent.StartDate := StrToDateTime(KMT2.FieldByName('taa_agenda_data_ini').AsString+#32+ KMT2.FieldByName('taa_agenda_hora_ini').AsString, FmtSettings); AEvent.EndDate := StrToDateTime(KMT2.FieldByName('taa_agenda_data_fim').AsString+#32+ KMT2.FieldByName('taa_agenda_hora_fim').AsString, FmtSettings); AEvent.Title := KMT2.FieldByName('taa_agenda_descricao').AsString; AEvent.Reminder := 'lembrete'; AEvent.CalendarId := KMT2.FieldByName('taa_agenda_id').AsInteger; AEvent.IsAllDay := false; //UniCheckBox1.Checked; //--- KMT2.Next; end; KMT2.Close; end; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.