tvplanit: Refactor calculation of holidays in fulldemo

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

components/tvplanit/examples/fulldemo/demomain.lfm

@@ -4,12 +4,12 @@ object MainForm: TMainForm
   Top = 134
   Width = 959
   Caption = 'Turbo Power VisualPlanIt Demo'
-  ClientHeight = 576
+  ClientHeight = 596
   ClientWidth = 959
   Menu = MainMenu1
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
-  LCLVersion = '2.3.0.0'
+  OnDestroy = FormDestroy
   object Panel1: TPanel
     Left = 125
     Height = 596
@@ -81,31 +81,21 @@ object MainForm: TMainForm
             Width = 357
             ShowHint = True
             ControlLink = VpControlLink1
-            Color = clWindow
             ParentShowHint = False
             Align = alBottom
-            TabStop = True
             TabOrder = 0
-            DateLabelFormat = 'mmmm yyyy'
             DayHeadAttributes.Color = clBtnFace
-            DayNameStyle = dsShort
             DrawingStyle = dsFlat
             EventDayStyle = [fsItalic]
             HeadAttributes.Font.Height = -13
             HeadAttributes.Font.Style = [fsItalic]
             HeadAttributes.Color = clBtnFace
             HolidayAttributes.Font.Color = clBlack
-            KBNavigation = True
-            SelectedDayColor = clRed
-            ShowEvents = True
-            ShowEventTime = False
-            TimeFormat = tf12Hour
             TodayAttributes.Font.Color = clBlue
             TodayAttributes.Color = 16761024
             TodayAttributes.BorderPen.Color = clBlue
             TodayAttributes.BorderPen.Width = 3
             WeekendAttributes.Font.Color = clBlack
-            WeekStartsOn = dtSunday
             OnHoliday = VpHoliday
           end
           object Splitter2: TSplitter
@@ -124,13 +114,10 @@ object MainForm: TMainForm
             Width = 357
             ShowHint = True
             ControlLink = VpControlLink1
-            Color = clWindow
             Font.Height = -12
             ParentFont = False
             ParentShowHint = False
             Align = alClient
-            ReadOnly = False
-            TabStop = True
             TabOrder = 2
             AllDayEventAttributes.BackgroundColor = clBtnShadow
             AllDayEventAttributes.EventBorderColor = cl3DDkShadow
@@ -191,13 +178,8 @@ object MainForm: TMainForm
               001C000000C6FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
               005500000038FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
             }
-            ShowResourceName = True
             LineColor = clGray
             GutterWidth = 5
-            DateLabelFormat = 'dddddd'
-            Granularity = gr30Min
-            DefaultTopHour = h_07
-            TimeFormat = tf12Hour
             WrapStyle = wsNoFlow
             OnHoliday = VpHoliday
           end
@@ -306,7 +288,6 @@ object MainForm: TMainForm
           Width = 472
           ShowHint = True
           ControlLink = VpControlLink1
-          Color = clWindow
           Font.Height = -12
           ParentFont = False
           ParentShowHint = False
@@ -316,9 +297,7 @@ object MainForm: TMainForm
           AllDayEventAttributes.Font.Height = -12
           DateLabelFormat = 'dddd, mmmm dd, yyyy'
           DayHeadAttributes.Color = clBtnFace
-          DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
           DayHeadAttributes.Font.Height = -13
-          DayHeadAttributes.Bordered = True
           DrawingStyle = dsFlat
           EventFont.Height = -12
           HeadAttributes.Font.Height = -13
@@ -326,11 +305,8 @@ object MainForm: TMainForm
           HeadAttributes.Color = clBtnFace
           LineColor = clGray
           Layout = wvlHorizontal
-          TimeFormat = tf12Hour
-          ShowEventTime = True
           WeekStartsOn = dtMonday
           Align = alClient
-          TabStop = True
           TabOrder = 2
           OnHoliday = VpHoliday
         end
@@ -383,12 +359,9 @@ object MainForm: TMainForm
           Top = 27
           Width = 834
           ControlLink = VpControlLink1
-          Color = clWindow
           ParentFont = False
           Align = alClient
-          TabStop = True
           TabOrder = 1
-          ReadOnly = False
           DisplayOptions.CheckBGColor = clWindow
           DisplayOptions.CheckColor = cl3DDkShadow
           DisplayOptions.CheckStyle = csCheck
@@ -404,7 +377,6 @@ object MainForm: TMainForm
           TaskHeadAttributes.Color = clSilver
           TaskHeadAttributes.Font.Style = [fsItalic]
           DrawingStyle = dsFlat
-          ShowResourceName = True
         end
       end
       object Contacts: TPage
@@ -427,14 +399,10 @@ object MainForm: TMainForm
           Top = 0
           Width = 794
           ControlLink = VpControlLink1
-          Color = clWindow
           ParentFont = False
           Align = alClient
-          TabStop = True
           TabOrder = 1
-          AllowInPlaceEditing = True
           BarWidth = 1
-          BarColor = clSilver
           ColumnWidth = 200
           ContactHeadAttributes.Color = clSilver
           ContactHeadAttributes.Bordered = True