tvplanit: Some clean-up, some cosmetic changes

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

components/tvplanit/examples/demo/demomain.lfm

@@ -274,34 +274,6 @@ object MainForm: TMainForm
         ClientHeight = 504
         ClientWidth = 772
         TabVisible = False
-        object VpTaskList1: TVpTaskList
-          Left = 0
-          Height = 462
-          Top = 42
-          Width = 772
-          DataStore = VpBufDSDataStore1
-          ControlLink = VpControlLink1
-          Color = clWindow
-          Align = alClient
-          TabStop = True
-          TabOrder = 0
-          ReadOnly = False
-          DisplayOptions.CheckBGColor = clWindow
-          DisplayOptions.CheckColor = cl3DDkShadow
-          DisplayOptions.CheckStyle = csCheck
-          DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
-          DisplayOptions.ShowCompletedTasks = False
-          DisplayOptions.ShowAll = True
-          DisplayOptions.ShowDueDate = True
-          DisplayOptions.OverdueColor = clRed
-          DisplayOptions.NormalColor = clBlack
-          DisplayOptions.CompletedColor = clGray
-          LineColor = clGray
-          MaxVisibleTasks = 250
-          TaskHeadAttributes.Color = clSilver
-          DrawingStyle = dsFlat
-          ShowResourceName = True
-        end
         object Panel6: TPanel
           Left = 0
           Height = 42
@@ -311,7 +283,7 @@ object MainForm: TMainForm
           BevelOuter = bvNone
           ClientHeight = 42
           ClientWidth = 772
-          TabOrder = 1
+          TabOrder = 0
           object RbAllTasks: TRadioButton
             Left = 8
             Height = 19
@@ -333,6 +305,37 @@ object MainForm: TMainForm
             TabOrder = 1
           end
         end
+        object VpTaskList1: TVpTaskList
+          Left = 0
+          Height = 462
+          Top = 42
+          Width = 772
+          DataStore = VpBufDSDataStore1
+          ControlLink = VpControlLink1
+          Color = clWindow
+          Font.Height = -12
+          ParentFont = False
+          Align = alClient
+          TabStop = True
+          TabOrder = 1
+          ReadOnly = False
+          DisplayOptions.CheckBGColor = clWindow
+          DisplayOptions.CheckColor = cl3DDkShadow
+          DisplayOptions.CheckStyle = csCheck
+          DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
+          DisplayOptions.ShowCompletedTasks = False
+          DisplayOptions.ShowAll = False
+          DisplayOptions.ShowDueDate = True
+          DisplayOptions.OverdueColor = clRed
+          DisplayOptions.NormalColor = clBlack
+          DisplayOptions.CompletedColor = clGray
+          LineColor = clGray
+          MaxVisibleTasks = 250
+          TaskHeadAttributes.Color = clSilver
+          TaskHeadAttributes.Font.Height = -12
+          DrawingStyle = ds3d
+          ShowResourceName = True
+        end
       end
       object TabContacts: TTabSheet
         Caption = 'Contacts'

components/tvplanit/examples/xmldatastore/unit1.lfm

@@ -190,8 +190,6 @@ object Form1: TForm1
         DataStore = VpXmlDatastore1
         ControlLink = VpControlLink1
         Color = clWindow
-        Font.Height = -12
-        ParentFont = False
         Align = alClient
         TabStop = True
         TabOrder = 2