diff --git a/components/tvplanit/examples/printing/dayview/dvmain.lfm b/components/tvplanit/examples/printing/dayview/dvmain.lfm
index fce51f9db..7326b91c4 100644
--- a/components/tvplanit/examples/printing/dayview/dvmain.lfm
+++ b/components/tvplanit/examples/printing/dayview/dvmain.lfm
@@ -198,7 +198,7 @@ object Form1: TForm1
     HiddenCategories.BackgroundColor = clSilver
     HiddenCategories.Color = clGray
     AutoConnect = True
-    FileName = 'file error.ini'
+    FileName = 'data.ini'
     Left = 184
     Top = 272
   end
diff --git a/components/tvplanit/examples/printing/dayview/dvmain.pas b/components/tvplanit/examples/printing/dayview/dvmain.pas
index a7d11aada..07562e63e 100644
--- a/components/tvplanit/examples/printing/dayview/dvmain.pas
+++ b/components/tvplanit/examples/printing/dayview/dvmain.pas
@@ -6,7 +6,8 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
-  Spin, PrintersDlgs, VpBaseDS, VpIniDs, VpDayView, VpPrtPrvDlg, VpPrtFmtCBox, VpData;
+  Spin, PrintersDlgs, VpBaseDS, VpIniDs, VpDayView, VpPrtPrvDlg, VpPrtFmtCBox,
+  VpData;
 
 type
 
diff --git a/components/tvplanit/source/vpalarmdlg.lfm b/components/tvplanit/source/vpalarmdlg.lfm
index 086daf9bd..15adc99b9 100644
--- a/components/tvplanit/source/vpalarmdlg.lfm
+++ b/components/tvplanit/source/vpalarmdlg.lfm
@@ -15,8 +15,6 @@ object AlarmNotifyForm: TAlarmNotifyForm
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
   OnShow = FormShow
-  Position = poDefault
-  LCLVersion = '2.3.0.0'
   object SnoozeCaption: TLabel
     AnchorSideLeft.Control = lTime
     AnchorSideTop.Control = Bevel1
@@ -56,7 +54,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
     Left = 8
     Height = 15
     Top = 8
-    Width = 30
+    Width = 29
     BorderSpacing.Left = 8
     BorderSpacing.Top = 8
     Caption = 'lTime'
@@ -184,7 +182,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
     Shape = bsTopLine
   end
   object EventDialog: TVpEventEditDialog
-    Version = 'v1.12'
+    Version = 'v1.0.7'
     TimeFormat = tf24Hour
     Options = []
     Placement.Position = mpCenterTop
diff --git a/components/tvplanit/source/vpalarmdlg.pas b/components/tvplanit/source/vpalarmdlg.pas
index 6ead751ae..a14b7c3eb 100644
--- a/components/tvplanit/source/vpalarmdlg.pas
+++ b/components/tvplanit/source/vpalarmdlg.pas
@@ -89,7 +89,7 @@ type
   published
     {properties}
     property BackgroundColor: TColor
-      read FBGColor write FBGColor default clInfoBk;
+      read FBGColor write FBGColor default clWindow;
     property DataStore;
     property Placement;
   end;
@@ -123,7 +123,7 @@ var
   AlarmNotifyForm: TAlarmNotifyForm;
 begin
   if (Event <> nil) and (not Event.AlertDisplayed) then begin
-    AlarmNotifyForm := TAlarmNotifyForm.Create(Self);
+    AlarmNotifyForm := TAlarmNotifyForm.Create(nil);
     try
       try
         Event.AlertDisplayed := true;
diff --git a/components/tvplanit/source/vpdlg.pas b/components/tvplanit/source/vpdlg.pas
index b73e9b356..89bfb176d 100644
--- a/components/tvplanit/source/vpdlg.pas
+++ b/components/tvplanit/source/vpdlg.pas
@@ -184,12 +184,11 @@ begin
   else
     Form.BorderStyle:= bsDialog;
 
-  if  (Screen.ActiveForm <> nil)
-  and (Screen.ActiveForm.FormStyle = fsStayOnTop) then
+  if  (Screen.ActiveForm <> nil) and (Screen.ActiveForm.FormStyle = fsStayOnTop) then
     Form.FormStyle := fsStayOnTop;
 
-//  Form.Height := FPlacement.Height;
-//  Form.Width  := FPlacement.Width;
+  //Form.Height := FPlacement.Height;
+  //Form.Width  := FPlacement.Width;
 
   {set position}
   case FPlacement.Position of