object Form1: TForm1 Left = 700 Height = 845 Top = 122 Width = 851 Caption = 'Examples of the TCalendaLite component' ClientHeight = 845 ClientWidth = 851 Color = clWindow Font.CharSet = ANSI_CHARSET OnCreate = FormCreate LCLVersion = '2.1.0.0' object PSettings: TPanel Left = 0 Height = 448 Top = 0 Width = 851 Align = alTop ClientHeight = 448 ClientWidth = 851 TabOrder = 0 object cgOptions: TCheckGroup Left = 24 Height = 392 Top = 40 Width = 160 AutoFill = True Caption = 'Set calendar Options' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = -1 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 372 ClientWidth = 156 Items.Strings = ( 'coBoldDayNames' 'coBoldHolidays' 'coBoldToday' 'coBoldTopRow' 'coBoldWeekend' 'coDayLine' 'coShowBorder' 'coShowHolidays' 'coShowTodayFrame' 'coShowTodayName' 'coShowTodayRow' 'coShowWeekend' 'coUseTopRowColors' ) OnItemClick = cgOptionsItemClick TabOrder = 0 Data = { 0D00000002020202020202020202020202 } end object cbUseHolidays: TCheckBox Left = 560 Height = 19 Top = 112 Width = 169 Caption = 'Ignore OnGetHolidays event' OnChange = cbUseHolidaysChange TabOrder = 1 end object LTitle: TLabel Left = 28 Height = 15 Top = 8 Width = 318 Caption = 'Various calendar property settings can be changed below:' Font.CharSet = ANSI_CHARSET Font.Style = [fsBold] ParentColor = False ParentFont = False end object LWidth: TLabel Left = 560 Height = 15 Top = 52 Width = 32 Caption = 'Width' ParentColor = False end object seWidth: TSpinEdit Left = 608 Height = 23 Top = 48 Width = 66 MaxValue = 1000 MinValue = 120 OnChange = seWidthChange TabOrder = 2 Value = 400 end object seHeight: TSpinEdit Left = 608 Height = 23 Top = 78 Width = 66 MaxValue = 1000 MinValue = 120 OnChange = seHeightChange TabOrder = 3 Value = 300 end object lHeight: TLabel Left = 560 Height = 15 Top = 81 Width = 36 Caption = 'Height' ParentColor = False end object rgLanguage: TRadioGroup Left = 200 Height = 216 Top = 216 Width = 160 AutoFill = True Caption = 'Language to use' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 196 ClientWidth = 156 ItemIndex = 0 Items.Strings = ( 'English (default)' 'French' 'German' 'Hebrew' 'Spanish' 'Italian' 'Polish' 'Finnish' 'Greek' '(custom)' ) OnClick = rgLanguageClick TabOrder = 4 end object rgStartingDOW: TRadioGroup Left = 200 Height = 168 Top = 40 Width = 160 AutoFill = True Caption = 'Starting day of the week' ChildSizing.LeftRightSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 148 ClientWidth = 156 Items.Strings = ( 'Sunday' 'Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' ) OnClick = rgStartingDOWClick TabOrder = 5 end object GroupBox1: TGroupBox Left = 376 Height = 392 Top = 40 Width = 160 Caption = 'Colors' ClientHeight = 372 ClientWidth = 156 TabOrder = 6 object CbArrowBorder: TColorButton Left = 16 Height = 25 Top = 8 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object CbArrow: TColorButton Left = 16 Height = 25 Top = 32 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object Label2: TLabel Left = 49 Height = 15 Top = 13 Width = 67 Caption = 'ArrowBorder' ParentColor = False end object Label3: TLabel Left = 49 Height = 15 Top = 37 Width = 32 Caption = 'Arrow' ParentColor = False end object CbBackground: TColorButton Left = 16 Height = 25 Top = 56 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object CbBorder: TColorButton Left = 16 Height = 25 Top = 80 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object Label4: TLabel Left = 49 Height = 15 Top = 61 Width = 64 Caption = 'Background' ParentColor = False end object Label5: TLabel Left = 49 Height = 15 Top = 85 Width = 35 Caption = 'Border' ParentColor = False end object CbDayLine: TColorButton Left = 16 Height = 25 Top = 104 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object CbHolidays: TColorButton Left = 16 Height = 25 Top = 128 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object Label6: TLabel Left = 49 Height = 15 Top = 109 Width = 42 Caption = 'Day line' ParentColor = False end object Label7: TLabel Left = 49 Height = 15 Top = 133 Width = 46 Caption = 'Holidays' ParentColor = False end object CbPastMonth: TColorButton Left = 16 Height = 25 Top = 152 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object CbSelectedDate: TColorButton Left = 16 Height = 25 Top = 176 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object Label8: TLabel Left = 49 Height = 15 Top = 157 Width = 88 Caption = 'Past/next month' ParentColor = False end object Label9: TLabel Left = 49 Height = 15 Top = 181 Width = 70 Caption = 'Selected date' ParentColor = False end object CbText: TColorButton Left = 16 Height = 25 Top = 200 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object CbTodayFrame: TColorButton Left = 16 Height = 25 Top = 224 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object Label10: TLabel Left = 49 Height = 15 Top = 205 Width = 21 Caption = 'Text' ParentColor = False end object Label11: TLabel Left = 49 Height = 15 Top = 229 Width = 66 Caption = 'Today frame' ParentColor = False end object CbTopRow: TColorButton Left = 16 Height = 25 Top = 248 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object CbTopRowText: TColorButton Left = 16 Height = 25 Top = 272 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object Label12: TLabel Left = 49 Height = 15 Top = 253 Width = 43 Caption = 'Top row' ParentColor = False end object Label13: TLabel Left = 49 Height = 15 Top = 277 Width = 65 Caption = 'Top row text' ParentColor = False end object CbWeekend: TColorButton Left = 16 Height = 25 Top = 296 Width = 26 BorderWidth = 2 ButtonColorSize = 16 ButtonColor = clBlack Flat = True OnColorChanged = ColorButtonChanged end object Label14: TLabel Left = 49 Height = 15 Top = 301 Width = 49 Caption = 'Weekend' ParentColor = False end end object CbPrepareCanvas: TCheckBox Left = 560 Height = 19 Top = 184 Width = 144 Caption = 'Override font of 1st day' OnChange = CbPrepareCanvasChange TabOrder = 7 end object BtnFont: TButton Left = 560 Height = 25 Top = 8 Width = 75 Caption = 'Font...' OnClick = BtnFontClick TabOrder = 8 end object CbDrawCell: TCheckBox Left = 560 Height = 19 Top = 208 Width = 161 Caption = 'Owner draw (icon, Nov 11)' OnChange = CbDrawCellChange TabOrder = 9 end object CbAddHolidayNameToCell: TCheckBox Left = 560 Height = 19 Top = 136 Width = 152 Caption = 'Add holiday name to cell' OnChange = CbAddHolidayNameToCellChange TabOrder = 10 end object CbShowHints: TCheckBox Left = 560 Height = 19 Top = 232 Width = 92 Caption = 'CbShowHints' Checked = True OnChange = CbShowHintsChange State = cbChecked TabOrder = 11 end object CbMultiSelect: TCheckBox Left = 560 Height = 19 Top = 256 Width = 81 Caption = 'Multi select' OnChange = CbMultiSelectChange TabOrder = 12 end object SelDateListbox: TListBox Left = 560 Height = 152 Top = 280 Width = 274 Columns = 3 ItemHeight = 0 TabOrder = 13 end object CbUseBuiltinPopup: TCheckBox Left = 560 Height = 19 Top = 160 Width = 153 Caption = 'Use built-in popup menu' Checked = True OnChange = CbUseBuiltinPopupChange State = cbChecked TabOrder = 14 end object LWidth1: TLabel Left = 693 Height = 15 Top = 52 Width = 66 Caption = 'Buttonwidth' ParentColor = False end object seButtonWidth: TSpinEdit Left = 768 Height = 23 Top = 48 Width = 50 MinValue = 10 OnChange = seButtonWidthChange TabOrder = 15 Value = 10 end object lHeight1: TLabel Left = 693 Height = 15 Top = 81 Width = 70 Caption = 'Buttonheight' ParentColor = False end object seButtonHeight: TSpinEdit Left = 768 Height = 23 Top = 78 Width = 50 MinValue = 10 OnChange = seButtonHeightChange TabOrder = 16 Value = 10 end object sbResetButtonWidth: TSpeedButton Left = 820 Height = 23 Hint = 'Reset button width' Top = 48 Width = 23 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000300000 0033000000330000003300000033000000330000000000000000000000000000 0000000000000000000000000000000000000000000000000000B78343F2B782 41FFB68242FFB78242FFB88342FFBA8545FFBB874700BB874700BB874700BB87 4700BB874700BB874700BB874700BB8747000000002400000031B78240FFFDE6 C3FFECBA6DFFEDBC70FFF2D9B5FFAF824AAFBA864600BB874700BB874700BB87 4700BB874700BB874700BB87470000000021AC7C41C1BA8646F9B6803EFFF4DB B5FFDDA859FFDFAB5EFFC7934CFFA8773DBF00000030000000150000000A0000 000A0000000A0000001500000031A9793FB9BB8747FFBB8747FFB6803EFFF9ED D9FFEFD9B8FFDCAE6CFFD7A050FFC48E47FFB68041F490663486644724596648 255B6447245990663387B88341F6C29357FFBB8646FFBB874747B88241FFDFC0 91FFC69454FFEDDABCFFE6CBA3FFDCB47BFFCFA060FFC6995FFFC4965EFFC597 5EFFC5975FFFCEA571FFE2C7A0FFC5975DFFBA8645AABB874700BA8545FFB984 42A3B882409FBD8B4EFFD9B98FFFE9D4B7FFECDBBFFFEDDBBFFFEDDBBFFFEDDC C0FFE7D1B0FFD3B081FFBC8948FFB9854496BB874600BB874700BB874700BB87 4600BA864500B9854433B88241A8B7813FF5B7813EFFB7803EFFB7813EFFB781 3EFFB8823FFFB98442A8BA85450ABB864600BB874700BB874700FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 } OnClick = sbResetButtonWidthClick end object sbResetButtonHeight: TSpeedButton Left = 820 Height = 23 Hint = 'Reset button width' Top = 78 Width = 23 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000300000 0033000000330000003300000033000000330000000000000000000000000000 0000000000000000000000000000000000000000000000000000B78343F2B782 41FFB68242FFB78242FFB88342FFBA8545FFBB874700BB874700BB874700BB87 4700BB874700BB874700BB874700BB8747000000002400000031B78240FFFDE6 C3FFECBA6DFFEDBC70FFF2D9B5FFAF824AAFBA864600BB874700BB874700BB87 4700BB874700BB874700BB87470000000021AC7C41C1BA8646F9B6803EFFF4DB B5FFDDA859FFDFAB5EFFC7934CFFA8773DBF00000030000000150000000A0000 000A0000000A0000001500000031A9793FB9BB8747FFBB8747FFB6803EFFF9ED D9FFEFD9B8FFDCAE6CFFD7A050FFC48E47FFB68041F490663486644724596648 255B6447245990663387B88341F6C29357FFBB8646FFBB874747B88241FFDFC0 91FFC69454FFEDDABCFFE6CBA3FFDCB47BFFCFA060FFC6995FFFC4965EFFC597 5EFFC5975FFFCEA571FFE2C7A0FFC5975DFFBA8645AABB874700BA8545FFB984 42A3B882409FBD8B4EFFD9B98FFFE9D4B7FFECDBBFFFEDDBBFFFEDDBBFFFEDDC C0FFE7D1B0FFD3B081FFBC8948FFB9854496BB874600BB874700BB874700BB87 4600BA864500B9854433B88241A8B7813FF5B7813EFFB7803EFFB7813EFFB781 3EFFB8823FFFB98442A8BA85450ABB864600BB874700BB874700FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 } OnClick = sbResetButtonHeightClick end end object Label1: TLabel Left = 15 Height = 15 Top = 818 Width = 34 Caption = 'Label1' ParentColor = False end object FontDialog: TFontDialog MinFontSize = 0 MaxFontSize = 0 left = 408 top = 416 end object ImageList1: TImageList left = 336 top = 432 Bitmap = { 4C69010000001000000010000000FFFFFF00FFFFFF00FFFFFF0000BBC74800C7 D3C7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000BBC74800C7 D3C7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000D3DAF630F1 F3FF00BBC77CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000D3DAF630F1 F3FF00BBC77CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0007D2D8FF67F5 F6FF06D2D8FEFFFFFF0000BBC74800C7D3C7FFFFFF00FFFFFF0007D2D8FF67F5 F6FF06D1D7FEFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0097BCADFF57C4 C3FF83B5A8F7C2C2C2DA07D2D9FF30F1F3FF5CBEC5ECC2C2C2B094B19FFF55BF BCFF78A794E5FFFFFF00FFFFFF00FFFFFF00C2C2C224C2C2C28EEDBB9DFFEFC8 AFFFE8B696FFF6F6F6FF07D2D8FF67F5F6FF07D2D7FFECECECFFE5A983FFEAB7 98FFDB9569EBC2C2C224FFFFFF00FFFFFF00B1C2C6A1E3E3E3FFEBB999FFEEC3 AAFFEBB495FFFFFFFFFF94B3A1FF55BFBCFF86B1A0FFFFFFFFFFE5A37BFFE9B2 92FFDE9A72FFB1C2C6A1FFFFFF00FFFFFF00BEC2C3FCFCFCFCFFEEC1A6FFEAB2 92FFF1CEBBFFFFFFFFFFE6AA85FFEAB898FFE5A57FFFFFFFFFFFE8AF98FFE39D 76FFEABEAFFFB9C2C4F8FFFFFF00FFFFFF00B5C2C5FEFAFAFAFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFE5A47EFFE9B493FFE3A278FFFFFFFFFFFFFFFFFFFDFD FDFFEAEAEAFF7CC9DBFCFFFFFF00FFFFFF0072CEE3FDD7D9DAFFE3E3E3FFFFFF FFFFFFFFFFFFFCFCFCFFE7B098FFE39E78FFEDC2B2FFFFFFFFFFEEEEEEFFD6D8 D9FFB5DEE8FF29C7EBFCFFFFFF00FFFFFF000DC5EFFC84E1F7FFD7DBDCFFECEC ECFFE7E7E7FFDFE2E3FFE3E4E4FFE3E4E4FFE3E3E3FFEBEBEBFFDCDFE0FF9BE1 F1FF84E1F7FF0DC5EFFCFFFFFF00FFFFFF002C80E6FE67A0ECFF89DCF4FFC2E3 EBFFA4E2F1FF86E2F7FF86E2F7FF86E2F7FF8DE2F6FFA8E3F0FF8CE2F5FF83DC F6FF67A0ECFF2C80E6FEFFFFFF00FFFFFF0014B4EDFC5F8FEAFF5372E5FF6396 EBFF71B4F0FF7CCDF4FF83DCF6FF83DCF6FF7CCDF4FF71B4F0FF6396EBFF5372 E5FF5F8FEAFF14B4EDFCFFFFFF00FFFFFF000DC5EFF882E1F7FF75BEF1FF659A EBFF577CE6FF4C63E2FF4554E0FF4554E0FF4C63E2FF577CE6FF659AEBFF75BE F1FF82E1F7FF0DC5EFF8FFFFFF00FFFFFF000DC5EFA14FD5F3FF81E1F7FF86E2 F7FF86E2F7FF86E2F7FF86E2F7FF86E2F7FF86E2F7FF86E2F7FF86E2F7FF81E1 F7FF4FD5F3FF0DC5EFA1FFFFFF00FFFFFF000DC5EF240DC5EF8E0DC5EFF747D3 F3FF60D9F4FF73DEF6FF80E1F7FF80E1F7FF73DEF6FF60D9F4FF47D3F3FF0DC5 EFF70DC5EF8E0DC5EF24FFFFFF00FFFFFF00FFFFFF00FFFFFF000DC5EF3E0DC5 EF7C0DC5EFB00DC5EFDA0DC5EFF50DC5EFF50DC5EFDA0DC5EFB00DC5EF7C0DC5 EF3EFFFFFF00FFFFFF00FFFFFF00 } end object PopupMenu1: TPopupMenu left = 117 top = 465 object MenuItem1: TMenuItem Caption = 'Dummy item' end object MenuItem2: TMenuItem Caption = 'Another dummy item' end object MenuItem3: TMenuItem Caption = 'Last dummy item' end end end