examples: Set customeditmask property and update project files of dbeditmask

git-svn-id: trunk@49068 -

examples/dbeditmask/Unit1.lfm

@@ -1,23 +1,23 @@
 object Form1: TForm1
-  Left = 363
+  Left = 444
   Height = 443
-  Top = 307
-  Width = 513
+  Top = 175
+  Width = 515
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
   Caption = 'Test DBEdit with mask'
   ClientHeight = 443
-  ClientWidth = 513
+  ClientWidth = 515
   Font.Height = -11
   Font.Name = 'MS Sans Serif'
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.5'
   object Label3: TLabel
     Left = 8
-    Height = 14
+    Height = 13
     Top = 16
-    Width = 164
+    Width = 163
     Caption = 'ADate Field - Mask: !99/99/00;1;_'
     ParentColor = False
   end
@@ -30,19 +30,16 @@ object Form1: TForm1
     Columns = <    
       item
         Title.Caption = 'ADATE'
-        Title.PrefixOption = poNone
         Width = 180
         FieldName = 'ADATE'
       end    
       item
         Title.Caption = 'ASTR'
-        Title.PrefixOption = poNone
         Width = 100
         FieldName = 'ASTR'
       end    
       item
         Title.Caption = 'AINT'
-        Title.PrefixOption = poNone
         Width = 100
         FieldName = 'AINT'
       end>
@@ -69,11 +66,12 @@ object Form1: TForm1
     Options = []
     TabOrder = 1
   end
-  object DBEdit1: TDBEdit
+  object DateEdit: TDBEdit
     Left = 8
     Height = 21
     Top = 32
     Width = 246
+    CustomEditMask = True
     DataField = 'ADate'
     DataSource = DataSource1
     CharCase = ecNormal
@@ -83,18 +81,19 @@ object Form1: TForm1
   end
   object ShowLongDateCheckBox: TCheckBox
     Left = 270
-    Height = 17
-    Top = 34
-    Width = 90
+    Height = 19
+    Top = 32
+    Width = 92
     Caption = 'Show Full Date'
     OnChange = ShowLongDateCheckBoxChange
     TabOrder = 3
   end
-  object DBEdit2: TDBEdit
+  object IntEdit: TDBEdit
     Left = 8
     Height = 21
     Top = 80
     Width = 246
+    CustomEditMask = True
     DataField = 'AINT'
     DataSource = DataSource1
     CharCase = ecNormal
@@ -104,13 +103,13 @@ object Form1: TForm1
   end
   object Label1: TLabel
     Left = 8
-    Height = 14
+    Height = 13
     Top = 64
-    Width = 45
+    Width = 44
     Caption = 'AInt Field'
     ParentColor = False
   end
-  object DataSource1: TDatasource
+  object DataSource1: TDataSource
     DataSet = Dbf1
     left = 400
     top = 288

examples/dbeditmask/Unit1.pas

@@ -14,7 +14,7 @@ type
   { TForm1 }
 
   TForm1 = class(TForm)
-    DBEdit2: TDBEdit;
+    IntEdit: TDBEdit;
     Dbf1ADATE: TDateField;
     Dbf1AINT: TLargeintField;
     Dbf1ASTR: TStringField;
@@ -27,7 +27,7 @@ type
     Dbf1: TDbf;
     DBGrid1: TDBGrid;
     DBNavigator1: TDBNavigator;
-    DBEdit1: TDBEdit;
+    DateEdit: TDBEdit;
     Label3: TLabel;
     procedure Dbf1ADATESetText(Sender: TField; const aText: string);
     procedure Dbf1AINTGetText(Sender: TField; var aText: string;

examples/dbeditmask/project1.lpi

@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="9"/>
@@ -30,7 +30,7 @@
     <RequiredPackages Count="3">
       <Item1>
         <PackageName Value="DBFLaz"/>
-        <MinVersion Minor="1" Valid="True" Release="1"/>
+        <MinVersion Minor="1" Release="1" Valid="True"/>
       </Item1>
       <Item2>
         <PackageName Value="FCL"/>
@@ -44,7 +44,6 @@
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="project1"/>
       </Unit0>
       <Unit1>
         <Filename Value="Unit1.pas"/>
@@ -52,12 +51,11 @@
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="Unit1"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <Target>
       <Filename Value="project1"/>
@@ -78,8 +76,5 @@
         </Win32>
       </Options>
     </Linking>
-    <Other>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
 </CONFIG>