TvPlanit: Fix version number in vpconst to match the package version number.

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

components/tvplanit/examples/fulldemo/demomain.lfm

@@ -10,6 +10,7 @@ object MainForm: TMainForm
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  LCLVersion = '2.3.0.0'
   object Panel1: TPanel
     Left = 125
     Height = 596
@@ -31,6 +32,7 @@ object MainForm: TMainForm
       ClientHeight = 48
       ClientWidth = 834
       Color = 13743257
+      ParentBackground = False
       ParentColor = False
       TabOrder = 0
       object Img: TImage
@@ -45,7 +47,6 @@ object MainForm: TMainForm
         Top = 8
         Width = 84
         Caption = 'TitleLbl'
-        Color = clDefault
         Font.Color = clWhite
         Font.Height = -24
         Font.Style = [fsBold]
@@ -58,7 +59,7 @@ object MainForm: TMainForm
       Height = 548
       Top = 48
       Width = 834
-      PageIndex = 4
+      PageIndex = 0
       Align = alClient
       TabOrder = 1
       TabStop = True
@@ -94,6 +95,7 @@ object MainForm: TMainForm
             TodayAttributes.BorderPen.Color = clBlue
             TodayAttributes.BorderPen.Width = 3
             WeekendAttributes.Font.Color = clBlack
+            OnPrepareEventFont = PrepareEventFont
           end
           object Splitter2: TSplitter
             Cursor = crVSplit
@@ -173,6 +175,7 @@ object MainForm: TMainForm
             }
             GutterWidth = 5
             WrapStyle = wsNoFlow
+            OnPrepareEventFont = PrepareEventFont
           end
           object DaySelectorPanel: TPanel
             Left = 0
@@ -198,7 +201,6 @@ object MainForm: TMainForm
               BorderSpacing.Top = 4
               BorderSpacing.Bottom = 4
               Caption = 'Visible days'
-              Color = clDefault
               ParentColor = False
             end
             object DaysTrackBar: TTrackBar
@@ -261,7 +263,6 @@ object MainForm: TMainForm
               BorderSpacing.Top = 4
               BorderSpacing.Bottom = 4
               Caption = 'Granularity'
-              Color = clDefault
               ParentColor = False
             end
           end
@@ -285,7 +286,6 @@ object MainForm: TMainForm
           ParentShowHint = False
           AllDayEventAttributes.Font.Height = -12
           DateLabelFormat = 'dddd, mmmm dd, yyyy'
-          DayHeadAttributes.DateFormat = 'ddddd'
           DayHeadAttributes.Font.Height = -13
           DrawingStyle = dsFlat
           EventFont.Height = -12
@@ -296,6 +296,7 @@ object MainForm: TMainForm
           WeekStartsOn = dtMonday
           Align = alClient
           TabOrder = 2
+          OnPrepareEventFont = PrepareEventFont
         end
       end
       object Tasks: TPage
@@ -466,7 +467,6 @@ object MainForm: TMainForm
           Width = 299
           BorderSpacing.Top = 24
           Caption = 'Check the resource to be overlaid to the current resource'
-          Color = clDefault
           ParentColor = False
         end
         object lblResources: TLabel
@@ -479,7 +479,6 @@ object MainForm: TMainForm
           BorderSpacing.Left = 16
           BorderSpacing.Top = 24
           Caption = 'Resources (the selected resource will be displayed)'
-          Color = clDefault
           ParentColor = False
         end
       end
@@ -495,7 +494,6 @@ object MainForm: TMainForm
           Anchors = [akTop, akRight]
           BorderSpacing.Right = 8
           Caption = 'Language'
-          Color = clDefault
           ParentColor = False
         end
         object CbLanguages: TComboBox
@@ -536,7 +534,6 @@ object MainForm: TMainForm
           Anchors = [akTop, akRight]
           BorderSpacing.Right = 8
           Caption = 'Drawing style:'
-          Color = clDefault
           ParentColor = False
         end
         object CbAddressBuilder: TComboBox
@@ -572,7 +569,6 @@ object MainForm: TMainForm
           Anchors = [akTop, akRight]
           BorderSpacing.Right = 8
           Caption = 'Address builder'
-          Color = clDefault
           ParentColor = False
         end
         object CbAllowInplaceEditing: TCheckBox
@@ -616,7 +612,6 @@ object MainForm: TMainForm
           Anchors = [akTop, akRight]
           BorderSpacing.Right = 8
           Caption = 'First day of week'
-          Color = clDefault
           ParentColor = False
         end
         object CbTimeFormat: TComboBox
@@ -644,7 +639,6 @@ object MainForm: TMainForm
           Anchors = [akTop, akRight]
           BorderSpacing.Right = 8
           Caption = 'Time format'
-          Color = clDefault
           ParentColor = False
         end
         object CbAllowDragAndDrop: TCheckBox

components/tvplanit/examples/fulldemo/demomain.pas

@@ -126,6 +126,8 @@ type
     procedure RbHideCompletedTasksChange(Sender: TObject);
     procedure VpBufDSDataStore1PlaySound(Sender: TObject;
       const AWavFile: String; AMode: TVpPlaySoundMode);
+    procedure PrepareEventFont(Sender: TObject; Event: TVpEvent;
+      AFont: TFont);
     procedure VpHoliday(Sender: TObject; ADate: TDateTime;
       var AHolidayName: String);
     procedure VpNavBar1ItemClick(Sender: TObject; Button: TMouseButton;
@@ -1302,6 +1304,17 @@ begin
   sound.PlaySound(AWavFile, AMode);
 end;
 
+procedure TMainForm.PrepareEventFont(Sender: TObject;
+  Event: TVpEvent; AFont: TFont);
+begin
+  if DatePart(Event.StartTime) = EncodeDate(2022, 12, 31) then
+  begin
+    AFont.Style := [fsBold, fsItalic];
+    AFont.Color := clYellow;
+    AFont.Size := 12;
+  end;
+end;
+
 procedure TMainForm.VpHoliday(Sender: TObject; ADate: TDateTime;
   var AHolidayName: String);
 var

components/tvplanit/source/vpconst.pas

@@ -48,7 +48,7 @@ uses
 
 const
   BuildTime = {$I %DATE%} + {$I %TIME}; //'09/13/2002 09:25 AM';
-  VpVersionStr = 'v1.0.7';    {Visual PlanIt library version}
+  VpVersionStr = 'v1.7.0';    {Visual PlanIt library version}
   VpProductName = 'Visual PlanIt';
 
   BorderStyles: array[TBorderStyle] of LongInt = (0, WS_BORDER);