tvplanit: Display birthdate in contact edit dialog. Fix localization file not being found if its name contains the wrong path delimiter.

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

components/tvplanit/source/vpcontacteditdlg.lfm

@@ -1,13 +1,13 @@
 object ContactEditForm: TContactEditForm
   Left = 311
-  Height = 355
+  Height = 420
   Top = 245
   Width = 433
   HorzScrollBar.Page = 432
   VertScrollBar.Page = 320
   ActiveControl = tsContacts
   Caption = 'ContactEdit'
-  ClientHeight = 355
+  ClientHeight = 420
   ClientWidth = 433
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
@@ -16,7 +16,7 @@ object ContactEditForm: TContactEditForm
   LCLVersion = '1.7'
   object tsContacts: TPageControl
     Left = 0
-    Height = 314
+    Height = 379
     Top = 0
     Width = 433
     ActivePage = tabMain
@@ -26,7 +26,7 @@ object ContactEditForm: TContactEditForm
     OnChange = tsContactsChange
     object tabMain: TTabSheet
       Caption = 'RSMasterData'
-      ClientHeight = 286
+      ClientHeight = 351
       ClientWidth = 425
       object LastNameLbl: TLabel
         Left = 8
@@ -238,7 +238,7 @@ object ContactEditForm: TContactEditForm
       end
       object cboxCountry: TComboBox
         Left = 136
-        Height = 21
+        Height = 23
         Top = 175
         Width = 247
         ItemHeight = 15
@@ -266,6 +266,32 @@ object ContactEditForm: TContactEditForm
         FocusControl = FirstNameEdit
         ParentColor = False
       end
+      object BirthdateEdit: TDateEdit
+        Left = 136
+        Height = 23
+        Top = 280
+        Width = 120
+        CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
+        OKCaption = 'OK'
+        CancelCaption = 'Cancel'
+        DateOrder = doNone
+        ButtonWidth = 23
+        NumGlyphs = 1
+        MaxLength = 0
+        TabOrder = 13
+        Text = 'BirthdateEdit'
+      end
+      object BirthdateLbl: TLabel
+        Left = 8
+        Height = 16
+        Top = 284
+        Width = 127
+        Alignment = taRightJustify
+        AutoSize = False
+        Caption = 'Birth date'
+        FocusControl = BirthdateEdit
+        ParentColor = False
+      end
     end
     object tabContact: TTabSheet
       Caption = 'RSContact'
@@ -477,7 +503,7 @@ object ContactEditForm: TContactEditForm
   object pnlBottom: TPanel
     Left = 0
     Height = 41
-    Top = 314
+    Top = 379
     Width = 433
     Align = alBottom
     BevelOuter = bvNone