object Form1: TForm1 Left = 700 Height = 746 Top = 122 Width = 851 Caption = 'Examples of the TCalendaLite component' ClientHeight = 746 ClientWidth = 851 Color = clWindow Font.CharSet = ANSI_CHARSET OnCreate = FormCreate LCLVersion = '2.3.0.0' object PSettings: TPanel Left = 0 Height = 432 Top = 0 Width = 851 Align = alTop ClientHeight = 432 ClientWidth = 851 TabOrder = 0 object cgOptions: TCheckGroup Left = 24 Height = 384 Top = 40 Width = 160 AutoFill = False Caption = 'Set calendar Options' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = -1 ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 364 ClientWidth = 156 Items.Strings = ( 'coBoldDayNames' 'coBoldHolidays' 'coBoldToday' 'coBoldTopRow' 'coBoldWeekend' 'coDayLine' 'coShowBorder' 'coShowHolidays' 'coShowTodayFrame' 'coShowTodayName' 'coShowTodayRow' 'coShowWeekend' 'coShowDayNames' 'coShowTopRow' 'coUseTopRowColors' ) OnItemClick = cgOptionsItemClick TabOrder = 0 Data = { 0F000000020202020202020202020202020202 } end object cbUseHolidays: TCheckBox Left = 560 Height = 19 Top = 112 Width = 167 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:' Color = clDefault 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' Color = clDefault 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' Color = clDefault ParentColor = False end object rgLanguage: TRadioGroup Left = 200 Height = 216 Top = 208 Width = 160 AutoFill = False Caption = 'Language to use' ChildSizing.LeftRightSpacing = 6 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 = 160 Top = 40 Width = 160 AutoFill = False Caption = 'Starting day of the week' ChildSizing.LeftRightSpacing = 6 ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 140 ClientWidth = 156 Items.Strings = ( 'Sunday' 'Monday' 'Tuesday' 'Wednesday' 'Thursday' 'Friday' 'Saturday' ) OnClick = rgStartingDOWClick TabOrder = 5 end object GroupBox1: TGroupBox Left = 376 Height = 384 Top = 40 Width = 160 Caption = 'Colors' ClientHeight = 364 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' Color = clDefault ParentColor = False end object Label3: TLabel Left = 49 Height = 15 Top = 37 Width = 32 Caption = 'Arrow' Color = clDefault 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' Color = clDefault ParentColor = False end object Label5: TLabel Left = 49 Height = 15 Top = 85 Width = 35 Caption = 'Border' Color = clDefault 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' Color = clDefault ParentColor = False end object Label7: TLabel Left = 49 Height = 15 Top = 133 Width = 46 Caption = 'Holidays' Color = clDefault 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 = 89 Caption = 'Past/next month' Color = clDefault ParentColor = False end object Label9: TLabel Left = 49 Height = 15 Top = 181 Width = 70 Caption = 'Selected date' Color = clDefault 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' Color = clDefault ParentColor = False end object Label11: TLabel Left = 49 Height = 15 Top = 229 Width = 65 Caption = 'Today frame' Color = clDefault 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 = 42 Caption = 'Top row' Color = clDefault ParentColor = False end object Label13: TLabel Left = 49 Height = 15 Top = 277 Width = 65 Caption = 'Top row text' Color = clDefault 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' Color = clDefault ParentColor = False end end object CbPrepareCanvas: TCheckBox Left = 560 Height = 19 Top = 184 Width = 142 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 = 159 Caption = 'Owner draw (icon, Nov 11)' OnChange = CbDrawCellChange TabOrder = 9 end object CbAddHolidayNameToCell: TCheckBox Left = 560 Height = 19 Top = 136 Width = 150 Caption = 'Add holiday name to cell' OnChange = CbAddHolidayNameToCellChange TabOrder = 10 end object CbShowHints: TCheckBox Left = 560 Height = 19 Top = 232 Width = 90 Caption = 'CbShowHints' Checked = True OnChange = CbShowHintsChange State = cbChecked TabOrder = 11 end object CbMultiSelect: TCheckBox Left = 560 Height = 19 Top = 256 Width = 79 Caption = 'Multi select' OnChange = CbMultiSelectChange TabOrder = 12 end object SelDateListbox: TListBox Left = 560 Height = 120 Top = 280 Width = 274 Columns = 3 ItemHeight = 0 TabOrder = 13 end object CbUseBuiltinPopup: TCheckBox Left = 560 Height = 19 Top = 160 Width = 151 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' Color = clDefault 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' Color = clDefault 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 object Label1: TLabel Left = 562 Height = 15 Top = 408 Width = 34 Caption = 'Label1' Color = clDefault ParentColor = False end end object FontDialog: TFontDialog MinFontSize = 0 MaxFontSize = 0 Left = 408 Top = 416 end object ImageList1: TImageList Left = 336 Top = 432 Bitmap = { 4C7A010000001000000010000000330200000000000078DA9D92DF6B526118C7 BDCAABEEFA13BC09BAE82FD85DD445D045C56E828211A3CB8C42486ACD1A04B5 A0DCB2C56AD66A3F20D4A5D570181D67D6458394F2276E9EB3A3EE1C7513F528 A27E7B9F338F9C8637F5C017DEF7F97E3F3CCF7939000CE8C9E00F9F3284A361 E87AF8173F9A548E57AA6039EBFFF8C6481CA375058722F1EEA0797DFF67AC3B 887FBAF60EC3EB41D87C8B0D8EE392C6480234EF4220546477B7DDF312E73FAF C1B26017F51CF34C4C9325FF2C76BFB950F8300D4551A0CD33466228168B1097 6C903E3A909ABA2213A3F11EEEAB531004C8ABCF500E2E43F64E81CAFEDEA9CE 9BF0CCA977F1F54DECAC3C4666C60C62343EC005DBAC50FEF21612F32B1B7E35 9F5BBE07E99303E29BDBEABDE0724098BD0129E0C22AB7DED4781F17EAB65A2D 1C2C71FE1676BC4F20BCB2F47B9D4E079224C1FA3DD5D678F386D0892592A06F D08AF6C9BBD9BC171694B815B5572E97F13B9E802F53C0D1B0DCE70F8776DB77 B30DC45269F59DF2F93C367901C2F6F6BEE86D6419E9CD2D3CCF5640596234FE D858AE3B3A57C4FD740D9C20639EAF60826FF4F59057B028ECE1015F872DAD80 B2C468FC116FA97DF19184B3661123D332AE7AF760FD5153B3243A538F3CCA50 9618DDFECD71B6D3F540059767640C5B73383DC2E3C4B92D5574A61E799419DF DFBFA9E39D677E557127DBF86BEF41A20C6589D1F126A649A6C6C96815971235 5CCB28186359129DA9471E657A59D3C1FF9FF58698AC4C6EA62453BDA764AF47 DE909EF9036C470F74 } 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