Hello,
I realized a small project with UNIGUI 1.90.0.1563 pro registered. I Cannot enter appointments in the calendar read from a table, probabily because I use a code not good for mobile version, my code is on formCreate:
ar
E : TUniCalendarEvent;
begin
UnimCalendarPanel1.StartDate := toDay ;
UnimCalendarPanel1.WeekTimeRange.TimeStart := 0.0;
UnimCalendarPanel1.WeekTimeRange.TimeEnd := 0.99999999999;
UnimCalendarPanel1.DayTimeRange.TimeStart := 0.0;
UnimCalendarPanel1.DayTimeRange.TimeEnd := 0.99999999999;
with qCalendario do
begin
if active then close;
Open;
while NOT EOf do
begin
E := UnimCalendarPanel1.Events.Add;
E.CalendarId := StrmCAL.FieldByName( 'CalendarId' ).AsInteger;
E.Title := FieldByName( 'Titolo' ).AsString;
E.StartDate := FieldByName( 'DataInizio' ).Asdatetime;
E.EndDate := FieldByName( 'Datafine' ).Asdatetime;
e.Notes := FieldByName( 'Nota01' ).AsString;
e.Reminder := FieldByName( 'FlReminder' ).AsString;
E.IsAllDay := True;
Next;
end;
end;
When Excute program Calendar is not update.
If Someone can help me, thanks in advance.