Pier Posted May 3, 2021 Share Posted May 3, 2021 Hi everybody. Is this the way to create calendars programmatically? (I want to define my own colors for the different calendars) calitem:TUniCalendarItem; calname: String; UniCalendarPanel1.Calendars.ClearAndResetID; n:=1; while not CalendariFDQuery.Eof do begin calname:=CalendariFDQuery.FieldByName('sval').asString; calitem:=UniCalendarPanel1.Calendars.Add; calitem.DefaultColor:=False; calitem.Title:=calname; calitem.Color:=UtilUnit.IndexToColor(n); CalendariFDQuery.Next; n:=n+1; 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.