4 files changed, 7 insertions, 2 deletions
diff --git a/examples/gui/dbftest/dbftest.lpi b/examples/gui/dbftest/dbftest.lpi
index 233e1ae5..d751b0be 100644
--- a/examples/gui/dbftest/dbftest.lpi
+++ b/examples/gui/dbftest/dbftest.lpi
@@ -17,7 +17,6 @@
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
diff --git a/examples/gui/dbftest/dbftest.pas b/examples/gui/dbftest/dbftest.pas
index d96b0fb9..82588efd 100644
--- a/examples/gui/dbftest/dbftest.pas
+++ b/examples/gui/dbftest/dbftest.pas
@@ -34,6 +34,7 @@ type
     CurNameText, CurEMailText: TDBText;
     Navi: TFBoxLayout;
     FirstDataset, PrevDataset, NextDataset, LastDataset: TFButton;
+    CurEmailEdit: TDBEdit;
     procedure FormCreate(Sender: TObject);
     procedure FirstDatasetClick(Sender: TObject);
     procedure PrevDatasetClick(Sender: TObject);
@@ -63,9 +64,12 @@ begin
   CurNameText.DataField     := 'Name';
   CurEMailText.DataSource   := DataSource;
   CurEMailText.DataField    := 'Address';
+  CurEmailEdit.DataSource   := DataSource;
+  CurEmailEdit.DataField    := 'Address';
 
   DataSet.Open;
-
+  CurEmailEdit.Field.ReadOnly := True;
+  
   while not DataSet.EOF do
   begin
     SetLength(s, 0);
diff --git a/examples/gui/dbftest/mainform.frm b/examples/gui/dbftest/mainform.frm
index 5732549a..3e42abc1 100644
--- a/examples/gui/dbftest/mainform.frm
+++ b/examples/gui/dbftest/mainform.frm
@@ -16,6 +16,8 @@ object MainForm: TMainForm
     object CurEMailText: TDBText
       Text = '<e-mail>'
     end
+    object CurEmailEdit: TDBEdit
+    end
     object Navi: TFBoxLayout
       object FirstDataset: TFButton
         Text = 'First'
diff --git a/examples/gui/dbftest/test.dbf b/examples/gui/dbftest/test.dbf
index 3274dd2a..a432f32d 100644
--- a/examples/gui/dbftest/test.dbf
+++ b/examples/gui/dbftest/test.dbf