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 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; Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now