tvplanit: Fix runtime error in calendar demo.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8663 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/examples/calendar/main.lfm

@@ -1,12 +1,13 @@
 object Form1: TForm1
-  Left = 327
+  Left = 1046
   Height = 607
-  Top = 130
-  Width = 565
+  Top = 160
+  Width = 607
   Caption = 'TvPlanIt Calendar Demo'
   ClientHeight = 607
-  ClientWidth = 565
+  ClientWidth = 607
   OnCreate = FormCreate
+  LCLVersion = '2.3.0.0'
   object VpCalendar1: TVpCalendar
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
@@ -16,7 +17,7 @@ object Form1: TForm1
     Left = 128
     Height = 319
     Top = 8
-    Width = 309
+    Width = 351
     PopupMenu = VpCalendar1.default
     DataStore = VpIniDatastore1
     ControlLink = VpControlLink1
@@ -36,6 +37,7 @@ object Form1: TForm1
     Colors.MonthAndYear = clWindowText
     Colors.Weekend = clWindowText
     Colors.EventDays = clWindowText
+    Colors.Holidays = clRed
     TabOrder = 0
     TabStop = True
   end
@@ -46,19 +48,19 @@ object Form1: TForm1
     Left = 8
     Height = 250
     Top = 349
-    Width = 548
+    Width = 587
     Anchors = [akLeft, akBottom]
     AutoSize = True
     BorderSpacing.Around = 8
     BevelOuter = bvNone
     ClientHeight = 250
-    ClientWidth = 548
+    ClientWidth = 587
     TabOrder = 1
     object cbActiveDayColor: TColorButton
       AnchorSideLeft.Control = rgColorScheme
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = Panel1
-      Left = 409
+      Left = 448
       Height = 25
       Top = 0
       Width = 139
@@ -77,7 +79,7 @@ object Form1: TForm1
       Left = 0
       Height = 165
       Top = 0
-      Width = 257
+      Width = 296
       AutoFill = True
       Caption = 'Options'
       ChildSizing.LeftRightSpacing = 6
@@ -89,7 +91,7 @@ object Form1: TForm1
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 2
       ClientHeight = 145
-      ClientWidth = 253
+      ClientWidth = 292
       Columns = 2
       Items.Strings = (
         'cdoShortNames'
@@ -101,19 +103,20 @@ object Form1: TForm1
         'cdoHideActive'
         'cdoHighlightSat'
         'cdoHighlightSun'
+        'cdoHighlightHolidays'
       )
       OnItemClick = cgOptionsItemClick
       TabOrder = 0
       Data = {
-        09000000020202020202020202
+        0A00000002020202020202020202
       }
     end
     object rgColorScheme: TRadioGroup
       AnchorSideLeft.Control = cgOptions
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = Panel1
-      Left = 273
-      Height = 200
+      Left = 312
+      Height = 165
       Top = 0
       Width = 120
       AutoFill = True
@@ -126,7 +129,7 @@ object Form1: TForm1
       ChildSizing.ShrinkVertical = crsScaleChilds
       ChildSizing.Layout = cclLeftToRightThenTopToBottom
       ChildSizing.ControlsPerLine = 1
-      ClientHeight = 180
+      ClientHeight = 145
       ClientWidth = 116
       Items.Strings = (
         'cscalCustom'
@@ -143,7 +146,7 @@ object Form1: TForm1
       AnchorSideLeft.Control = cbActiveDayColor
       AnchorSideTop.Control = cbActiveDayTextColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 75
       Width = 139
@@ -159,7 +162,7 @@ object Form1: TForm1
       AnchorSideLeft.Control = cbActiveDayColor
       AnchorSideTop.Control = cbDayNamesColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 100
       Width = 139
@@ -175,7 +178,7 @@ object Form1: TForm1
       AnchorSideLeft.Control = cbActiveDayColor
       AnchorSideTop.Control = cbDaysColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 125
       Width = 139
@@ -191,7 +194,7 @@ object Form1: TForm1
       AnchorSideLeft.Control = cbActiveDayColor
       AnchorSideTop.Control = cbInactiveDaysColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 150
       Width = 139
@@ -207,7 +210,7 @@ object Form1: TForm1
       AnchorSideLeft.Control = cbActiveDayColor
       AnchorSideTop.Control = cbMonthAndYearColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 175
       Width = 139
@@ -223,7 +226,7 @@ object Form1: TForm1
       AnchorSideLeft.Control = cbActiveDayColor
       AnchorSideTop.Control = cbWeekendColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 200
       Width = 139
@@ -239,7 +242,7 @@ object Form1: TForm1
       AnchorSideLeft.Control = cbActiveDayColor
       AnchorSideTop.Control = cbEventDaysColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 225
       Width = 139
@@ -331,7 +334,7 @@ object Form1: TForm1
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = cbActiveDayColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 25
       Width = 139
@@ -349,7 +352,7 @@ object Form1: TForm1
       AnchorSideLeft.Side = asrBottom
       AnchorSideTop.Control = cbActiveDayBorderColor
       AnchorSideTop.Side = asrBottom
-      Left = 409
+      Left = 448
       Height = 25
       Top = 50
       Width = 139
@@ -371,7 +374,7 @@ object Form1: TForm1
     Left = 8
     Height = 6
     Top = 335
-    Width = 549
+    Width = 591
     Anchors = [akLeft, akRight, akBottom]
     BorderSpacing.Left = 8
     BorderSpacing.Right = 8