object Form1: TForm1 Left = 282 Height = 248 Top = 133 Width = 398 Caption = 'Date selection demo' ClientHeight = 248 ClientWidth = 398 LCLVersion = '2.1.0.0' object ListBox1: TListBox Left = 287 Height = 240 Top = 4 Width = 107 Align = alRight BorderSpacing.Around = 4 ItemHeight = 0 TabOrder = 0 end object Panel1: TPanel Left = 0 Height = 248 Top = 0 Width = 278 Align = alClient BevelOuter = bvNone ClientHeight = 248 ClientWidth = 278 TabOrder = 1 object CalendarLite1: TCalendarLite AnchorSideLeft.Control = Panel1 AnchorSideTop.Control = Panel1 AnchorSideRight.Control = Panel1 AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = CbMultiselect Left = 4 Height = 217 Top = 4 Width = 274 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Bottom = 4 Constraints.MinHeight = 120 Constraints.MinWidth = 120 ParentColor = False TabOrder = 0 TabStop = True Colors.TodayFrameColor = clGray Date = 43463 DisplayTexts = '"Today is %s","mmm dd"", ""yyyy","Holidays in %d","There are no holidays set for %d","dddd"", "" mmm dd"", ""yyyy","mmmm yyyy"' MultiSelect = True Options = [coBoldHolidays, coBoldTopRow, coDayLine, coShowBorder, coShowHolidays, coShowTodayFrame, coShowTodayName, coShowTodayRow, coShowWeekend] WeekendDays = [dowSunday, dowSaturday] OnDateChange = CalendarLite1DateChange end object CbMultiselect: TCheckBox AnchorSideLeft.Control = Panel1 AnchorSideBottom.Control = Panel1 AnchorSideBottom.Side = asrBottom Left = 4 Height = 19 Top = 225 Width = 100 Anchors = [akLeft, akBottom] BorderSpacing.Left = 4 BorderSpacing.Bottom = 4 Caption = 'Multi-selection' Checked = True OnChange = CbMultiselectChange State = cbChecked TabOrder = 1 end end object Splitter1: TSplitter Left = 278 Height = 248 Top = 0 Width = 5 Align = alRight ResizeAnchor = akRight end end