You've already forked lazarus-ccr
84 lines
2.2 KiB
Plaintext
84 lines
2.2 KiB
Plaintext
|
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
|