tvplanit: Default values for visual controls (day/week/month view, tasklist, contact grid, calendar).

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

components/tvplanit/examples/datastores/ini/unit1.lfm

@@ -7,7 +7,6 @@ object Form1: TForm1
   ClientHeight = 686
   ClientWidth = 980
   OnCreate = FormCreate
-  LCLVersion = '2.3.0.0'
   object Panel1: TPanel
     Left = 0
     Height = 33
@@ -95,10 +94,7 @@ object Form1: TForm1
         Width = 301
         DataStore = VpIniDatastore1
         ControlLink = VpControlLink1
-        Color = clWindow
         Align = alLeft
-        ReadOnly = False
-        TabStop = True
         TabOrder = 0
         AllDayEventAttributes.BackgroundColor = clBtnShadow
         AllDayEventAttributes.EventBorderColor = cl3DDkShadow
@@ -117,13 +113,6 @@ object Form1: TForm1
         RowHeadAttributes.HourFont.Height = -24
         RowHeadAttributes.MinuteFont.Height = -12
         RowHeadAttributes.Color = clBtnFace
-        ShowResourceName = True
-        LineColor = clGray
-        GutterWidth = 7
-        DateLabelFormat = 'dddd, mmmm dd, yyyy'
-        Granularity = gr30Min
-        DefaultTopHour = h_07
-        TimeFormat = tf12Hour
       end
       object Panel2: TPanel
         Left = 306
@@ -143,24 +132,16 @@ object Form1: TForm1
           Width = 386
           DataStore = VpIniDatastore1
           ControlLink = VpControlLink1
-          Color = clWindow
           AllDayEventAttributes.BackgroundColor = clWindow
           AllDayEventAttributes.EventBorderColor = clGray
           AllDayEventAttributes.EventBackgroundColor = clBtnFace
-          DateLabelFormat = 'dddd, mmmm dd, yyyy'
           DayHeadAttributes.Color = clBtnFace
-          DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
           DayHeadAttributes.Font.Height = -13
           DayHeadAttributes.Font.Name = 'Tahoma'
-          DayHeadAttributes.Bordered = True
           DrawingStyle = dsFlat
           HeadAttributes.Color = clBtnFace
-          LineColor = clGray
-          TimeFormat = tf12Hour
-          ShowEventTime = True
           WeekStartsOn = dtMonday
           Align = alClient
-          TabStop = True
           TabOrder = 0
         end
         object VpMonthView1: TVpMonthView
@@ -170,28 +151,17 @@ object Form1: TForm1
           Width = 386
           DataStore = VpIniDatastore1
           ControlLink = VpControlLink1
-          Color = clWindow
           Align = alBottom
-          TabStop = True
           TabOrder = 1
-          DateLabelFormat = 'mmmm yyyy'
           DayHeadAttributes.Font.Height = -13
           DayHeadAttributes.Font.Name = 'Tahoma'
           DayHeadAttributes.Color = clBtnFace
-          DayNameStyle = dsShort
           DrawingStyle = dsFlat
-          EventDayStyle = []
           HeadAttributes.Color = clBtnFace
-          KBNavigation = True
           OffDayColor = clSilver
-          SelectedDayColor = clRed
-          ShowEvents = True
-          ShowEventTime = False
-          TimeFormat = tf12Hour
           TodayAttributes.Color = clSilver
           TodayAttributes.BorderPen.Color = clRed
           TodayAttributes.BorderPen.Width = 3
-          WeekStartsOn = dtSunday
         end
         object Splitter2: TSplitter
           Cursor = crVSplit
@@ -210,11 +180,8 @@ object Form1: TForm1
         Width = 275
         DataStore = VpIniDatastore1
         ControlLink = VpControlLink1
-        Color = clWindow
         Align = alClient
-        TabStop = True
         TabOrder = 2
-        ReadOnly = False
         DisplayOptions.CheckBGColor = clWindow
         DisplayOptions.CheckColor = cl3DDkShadow
         DisplayOptions.CheckStyle = csCheck
@@ -225,11 +192,9 @@ object Form1: TForm1
         DisplayOptions.OverdueColor = clRed
         DisplayOptions.NormalColor = clBlack
         DisplayOptions.CompletedColor = clGray
-        LineColor = clGray
         MaxVisibleTasks = 250
         TaskHeadAttributes.Color = clSilver
         DrawingStyle = dsFlat
-        ShowResourceName = True
       end
       object Splitter1: TSplitter
         Left = 692
@@ -264,13 +229,8 @@ object Form1: TForm1
         Width = 932
         DataStore = VpIniDatastore1
         ControlLink = VpControlLink1
-        Color = clWindow
         Align = alClient
-        TabStop = True
         TabOrder = 1
-        AllowInPlaceEditing = True
-        BarWidth = 3
-        BarColor = clSilver
         ColumnWidth = 200
         ContactHeadAttributes.Color = clSilver
         ContactHeadAttributes.Bordered = True
@@ -323,8 +283,6 @@ object Form1: TForm1
     CategoryColorMap.Category9.Description = 'Category 9'
     HiddenCategories.BackgroundColor = clSilver
     HiddenCategories.Color = clGray
-    EnableEventTimer = True
-    PlayEventSounds = True
     AutoConnect = True
     FileName = 'data.ini'
     Left = 136

components/tvplanit/examples/datastores/ini/unit1.pas

@@ -100,7 +100,8 @@ begin
   if datastore.Resources.Count > 0 then
   begin
     lastRes := datastore.Resources.Items[datastore.Resources.Count-1];
-    datastore.ResourceID := lastRes.ResourceID;
+    datastore.Resource := lastRes;
+//    datastore.ResourceID := lastRes.ResourceID;
   end;
 end;