tvplanit: Implement new contact fields for ini datastore (-> new file structure).

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

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

@@ -191,7 +191,7 @@ object Form1: TForm1
         DisplayOptions.CheckStyle = csCheck
         DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
         DisplayOptions.ShowCompletedTasks = False
-        DisplayOptions.ShowAll = False
+        DisplayOptions.ShowAll = True
         DisplayOptions.ShowDueDate = True
         DisplayOptions.OverdueColor = clRed
         DisplayOptions.NormalColor = clBlack
@@ -296,6 +296,8 @@ object Form1: TForm1
     CategoryColorMap.Category8.Description = 'Category 8'
     CategoryColorMap.Category9.Color = clMaroon
     CategoryColorMap.Category9.Description = 'Category 9'
+    HiddenCategories.BackgroundColor = clSilver
+    HiddenCategories.Color = clGray
     EnableEventTimer = True
     PlayEventSounds = True
     AutoConnect = True

components/tvplanit/source/vpcontacteditdlg.lfm

@@ -19,9 +19,9 @@ object ContactEditForm: TContactEditForm
     Height = 341
     Top = 0
     Width = 433
-    ActivePage = tabMain
+    ActivePage = tabContact
     Align = alClient
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     OnChange = tsContactsChange
     object tabMain: TTabSheet
@@ -281,7 +281,7 @@ object ContactEditForm: TContactEditForm
     end
     object tabContact: TTabSheet
       Caption = 'RSContact'
-      ClientHeight = 286
+      ClientHeight = 313
       ClientWidth = 425
       ImageIndex = 1
       object EMailLbl: TLabel

components/tvplanit/source/vpdata.pas

@@ -610,6 +610,7 @@ type
     property Changed: Boolean read FChanged write SetChanged;
     property Deleted: Boolean read FDeleted write SetDeleted;
     property Owner: TVpContacts read FOwner write FOwner;
+
 {$ifdef WITHRTTI}
   published
 {$else}
@@ -1814,11 +1815,22 @@ begin
   inherited Create;
   FChanged := false;
   FOwner := Owner;
+
   FPhoneType1 := Ord(ptWork);
   FPhoneType2 := Ord(ptHome);
   FPhoneType3 := Ord(ptWorkFax);
   FPhoneType4 := Ord(ptMobile);
   FPhoneType5 := Ord(ptAssistant);
+
+  FEMailType1 := ord(mtWork);
+  FEMailType2 := ord(mtHome);
+  FEMailType3 := ord(mtOther);
+
+  FWebsiteType1 := ord(wtBusiness);
+  FWebsiteType2 := ord(wtPersonal);
+
+  FAddressType1 := ord(atWork);
+  FAddressType2 := ord(atHome);
 end;
 
 destructor TVpContact.Destroy;