TvPlanIt: Fix writable data file location of DayViewWrapStyleDemo for cocoa.

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

components/tvplanit/examples/dayview_wrapstyle/dayview_wrapstyle_demo.lpi

@@ -4,8 +4,11 @@
     <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <Title Value="project1"/>
+      <Title Value="dayview_wrapstyle_demo"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>
@@ -14,8 +17,8 @@
       </XPManifest>
       <Icon Value="0"/>
     </General>
-    <BuildModes>
-      <Item Name="Default" Default="True"/>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
@@ -24,37 +27,38 @@
     <RunParams>
       <FormatVersion Value="2"/>
     </RunParams>
-    <RequiredPackages>
-      <Item>
+    <RequiredPackages Count="3">
+      <Item1>
         <PackageName Value="laz_visualplanit_design"/>
-      </Item>
-      <Item>
+      </Item1>
+      <Item2>
         <PackageName Value="laz_visualplanit"/>
-      </Item>
-      <Item>
+      </Item2>
+      <Item3>
         <PackageName Value="LCL"/>
-      </Item>
+      </Item3>
     </RequiredPackages>
-    <Units>
-      <Unit>
-        <Filename Value="project1.lpr"/>
+    <Units Count="2">
+      <Unit0>
+        <Filename Value="dayview_wrapstyle_demo.lpr"/>
         <IsPartOfProject Value="True"/>
-      </Unit>
-      <Unit>
-        <Filename Value="unit1.pas"/>
+        <UnitName Value="DayView_WrapStyle_Demo"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="dvwsmain.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="Unit1"/>
-      </Unit>
+        <UnitName Value="dvwsMain"/>
+      </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="11"/>
     <PathDelim Value="\"/>
     <Target>
-      <Filename Value="project1"/>
+      <Filename Value="dayview_wrapstyle_demo"/>
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
@@ -72,16 +76,16 @@
     </Linking>
   </CompilerOptions>
   <Debugging>
-    <Exceptions>
-      <Item>
+    <Exceptions Count="3">
+      <Item1>
         <Name Value="EAbort"/>
-      </Item>
-      <Item>
+      </Item1>
+      <Item2>
         <Name Value="ECodetoolError"/>
-      </Item>
-      <Item>
+      </Item2>
+      <Item3>
         <Name Value="EFOpenError"/>
-      </Item>
+      </Item3>
     </Exceptions>
   </Debugging>
 </CONFIG>

components/tvplanit/examples/dayview_wrapstyle/dayview_wrapstyle_demo.lpr

@@ -1,4 +1,4 @@
-program project1;
+program DayView_WrapStyle_Demo;
 
 {$mode objfpc}{$H+}
 
@@ -10,14 +10,13 @@ uses
   athreads,
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, unit1
+  Forms, dvwsMain
   { you can add units after this };
 
 {$R *.res}
 
 begin
   RequireDerivedFormResource:=True;
-  Application.Title:='project1';
   Application.Scaled:=True;
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);

components/tvplanit/examples/dayview_wrapstyle/dvwsmain.pas

@@ -1,4 +1,4 @@
-unit Unit1;
+unit dvwsMain;
 
 {$mode objfpc}{$H+}
 
@@ -47,6 +47,8 @@ procedure TForm1.FormCreate(Sender: TObject);
 var
   d: TDate;
 begin
+  VpIniDataStore1.FileName := GetAppConfigDir(false) + 'data.ini';
+
   if VpIniDatastore1.Resources.Count = 0 then
     VpDayView1.CheckCreateResource;
   if VpIniDatastore1.Resources.Count > 0 then