tvplanit: More consistent usage of colors and attribute classes.

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

components/tvplanit/examples/fulldemo/demomain.lfm

@@ -4,22 +4,21 @@ object MainForm: TMainForm
   Top = 135
   Width = 959
   Caption = 'Turbo Power VisualPlanIt Demo'
-  ClientHeight = 576
+  ClientHeight = 596
   ClientWidth = 959
   Menu = MainMenu1
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
-  LCLVersion = '2.3.0.0'
   object Panel1: TPanel
     Left = 125
-    Height = 576
+    Height = 596
     Top = 0
     Width = 834
     Align = alClient
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 576
+    ClientHeight = 596
     ClientWidth = 834
     TabOrder = 2
     object HeaderPanel: TPanel
@@ -56,7 +55,7 @@ object MainForm: TMainForm
     end
     object Notebook: TNotebook
       Left = 0
-      Height = 528
+      Height = 548
       Top = 48
       Width = 834
       PageIndex = 0
@@ -66,18 +65,18 @@ object MainForm: TMainForm
       object Events: TPage
         object LeftPanel: TPanel
           Left = 0
-          Height = 528
+          Height = 548
           Top = 0
           Width = 357
           Align = alLeft
           BevelOuter = bvNone
-          ClientHeight = 528
+          ClientHeight = 548
           ClientWidth = 357
           TabOrder = 0
           object VpMonthView1: TVpMonthView
             Left = 0
             Height = 197
-            Top = 331
+            Top = 351
             Width = 357
             ShowHint = True
             PopupMenu = VpMonthView1.default
@@ -85,12 +84,10 @@ object MainForm: TMainForm
             ParentShowHint = False
             Align = alBottom
             TabOrder = 0
-            DayHeadAttributes.Color = clBtnFace
             DrawingStyle = dsFlat
             EventDayStyle = [fsItalic]
             HeadAttributes.Font.Height = -16
             HeadAttributes.Font.Style = [fsItalic]
-            HeadAttributes.Color = clBtnFace
             HolidayAttributes.Font.Color = clBlack
             TodayAttributes.Font.Color = clBlue
             TodayAttributes.Color = 16761024
@@ -103,14 +100,14 @@ object MainForm: TMainForm
             Cursor = crVSplit
             Left = 0
             Height = 5
-            Top = 326
+            Top = 346
             Width = 357
             Align = alBottom
             ResizeAnchor = akBottom
           end
           object VpDayView1: TVpDayView
             Left = 0
-            Height = 292
+            Height = 312
             Top = 34
             Width = 357
             ShowHint = True
@@ -121,9 +118,6 @@ object MainForm: TMainForm
             ParentShowHint = False
             Align = alClient
             TabOrder = 2
-            AllDayEventAttributes.BackgroundColor = clBtnShadow
-            AllDayEventAttributes.EventBorderColor = cl3DDkShadow
-            AllDayEventAttributes.EventBackgroundColor = clBtnFace
             AllDayEventAttributes.Font.Height = -12
             ShowEventTimes = False
             DrawingStyle = dsFlat
@@ -132,10 +126,8 @@ object MainForm: TMainForm
             TimeSlotColors.ActiveRange.RangeEnd = h_00
             HeadAttributes.Font.Height = -16
             HeadAttributes.Font.Style = [fsItalic]
-            HeadAttributes.Color = clBtnFace
             RowHeadAttributes.HourFont.Height = -24
             RowHeadAttributes.MinuteFont.Height = -12
-            RowHeadAttributes.Color = clBtnFace
             IconAttributes.AlarmBitmap.Data = {
               76020000424D760200000000000036000000280000000C0000000C0000000100
               20000000000040020000C30E0000C30E00000000000000000000FFFFFF00FFFF
@@ -278,13 +270,13 @@ object MainForm: TMainForm
         end
         object Splitter3: TSplitter
           Left = 357
-          Height = 528
+          Height = 548
           Top = 0
           Width = 5
         end
         object VpWeekView1: TVpWeekView
           Left = 362
-          Height = 528
+          Height = 548
           Top = 0
           Width = 472
           ShowHint = True
@@ -293,19 +285,14 @@ object MainForm: TMainForm
           Font.Height = -12
           ParentFont = False
           ParentShowHint = False
-          AllDayEventAttributes.BackgroundColor = clWindow
-          AllDayEventAttributes.EventBorderColor = clGray
-          AllDayEventAttributes.EventBackgroundColor = clBtnFace
           AllDayEventAttributes.Font.Height = -12
           DateLabelFormat = 'dddd, mmmm dd, yyyy'
-          DayHeadAttributes.Color = clBtnFace
           DayHeadAttributes.DateFormat = 'ddddd'
           DayHeadAttributes.Font.Height = -13
           DrawingStyle = dsFlat
           EventFont.Height = -12
           HeadAttributes.Font.Height = -16
           HeadAttributes.Font.Style = [fsItalic]
-          HeadAttributes.Color = clBtnFace
           LineColor = clGray
           Layout = wvlHorizontal
           WeekStartsOn = dtMonday
@@ -717,7 +704,7 @@ object MainForm: TMainForm
   end
   object VpNavBar1: TVpNavBar
     Left = 0
-    Height = 576
+    Height = 596
     Top = 0
     Width = 120
     ActiveFolder = 0
@@ -818,7 +805,7 @@ object MainForm: TMainForm
   end
   object Splitter1: TSplitter
     Left = 120
-    Height = 576
+    Height = 596
     Top = 0
     Width = 5
   end
@@ -1333,8 +1320,8 @@ object MainForm: TMainForm
     end
   end
   object PrintDialog1: TPrintDialog
-    Left = 232
-    Top = 368
+    Left = 224
+    Top = 344
   end
   object VpPrintPreviewDialog1: TVpPrintPreviewDialog
     Version = 'v1.12'

components/tvplanit/examples/fulldemo/demomain.pas

@@ -628,7 +628,6 @@ begin
   VpControlLink1.Datastore.OnDateChanged := @DateChangedHandler;
 
   with VpControlLink1.Datastore do begin
-
     // These properties could be set also in Object Inspector.
     // But we do it here at runtime because the mORMot datastore is
     // created at runtime, and we want both versions to behave the same.