Jump to content

Add Event in UniCalendarPanel


erich.wanker

Recommended Posts

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

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

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...