examples/dbeditmask: Fix crash due to incorrect dateseparator in some countries. Use default font instead of MS SansSerif.

git-svn-id: trunk@56226 -

examples/dbeditmask/Unit1.lfm

@@ -8,16 +8,14 @@ object Form1: TForm1
   Caption = 'Test DBEdit with mask'
   ClientHeight = 443
   ClientWidth = 515
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
   OnCreate = FormCreate
   Position = poScreenCenter
   LCLVersion = '1.9.0.0'
   object Label3: TLabel
     Left = 8
-    Height = 13
+    Height = 15
     Top = 16
-    Width = 163
+    Width = 171
     Caption = 'ADate Field - Mask: !99/99/00;1;_'
     ParentColor = False
   end
@@ -68,7 +66,7 @@ object Form1: TForm1
   end
   object DateEdit: TDBEdit
     Left = 8
-    Height = 19
+    Height = 23
     Top = 32
     Width = 246
     CustomEditMask = True
@@ -81,16 +79,16 @@ object Form1: TForm1
   end
   object ShowLongDateCheckBox: TCheckBox
     Left = 270
-    Height = 21
+    Height = 19
     Top = 32
-    Width = 112
+    Width = 98
     Caption = 'Show Full Date'
     OnChange = ShowLongDateCheckBoxChange
     TabOrder = 3
   end
   object IntEdit: TDBEdit
     Left = 8
-    Height = 19
+    Height = 23
     Top = 80
     Width = 246
     CustomEditMask = True
@@ -103,15 +101,15 @@ object Form1: TForm1
   end
   object Label1: TLabel
     Left = 8
-    Height = 13
+    Height = 15
     Top = 64
-    Width = 51
+    Width = 50
     Caption = 'AInt Field'
     ParentColor = False
   end
   object DBEdit1: TDBEdit
     Left = 271
-    Height = 19
+    Height = 23
     Top = 80
     Width = 193
     CustomEditMask = True
@@ -124,9 +122,9 @@ object Form1: TForm1
   end
   object Label2: TLabel
     Left = 270
-    Height = 13
+    Height = 15
     Top = 64
-    Width = 100
+    Width = 95
     Caption = 'AStr Field (Phone)'
     ParentColor = False
   end

examples/dbeditmask/Unit1.pas

@@ -53,6 +53,7 @@ uses
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   DefaultFormatSettings.ShortDateFormat := 'd/m/yyyy';
+  DefaultFormatSettings.DateSeparator := '/';
   if not FileExistsUTF8(Dbf1.TableName) then
   begin
     Dbf1.FieldDefs.Clear;

examples/dbeditmask/project1.lpi

@@ -56,7 +56,7 @@
     </Target>
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
-      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
       <Options>