* Set AutoCalcFields to true by default, bug #14072

git-svn-id: trunk@13387 -

packages/fcl-db/src/base/dataset.inc

@@ -38,6 +38,7 @@ begin
   FEOF := True;
   FBOF := True;
   FIsUniDirectional := False;
+  FAutoCalcFields := True;
 end;
 
 

packages/fcl-db/src/base/db.pas

@@ -1338,7 +1338,7 @@ type
     property Filtered: Boolean read FFiltered write SetFiltered default False;
     property FilterOptions: TFilterOptions read FFilterOptions write SetFilterOptions;
     property Active: Boolean read GetActive write SetActive default False;
-    property AutoCalcFields: Boolean read FAutoCalcFields write FAutoCalcFields;
+    property AutoCalcFields: Boolean read FAutoCalcFields write FAutoCalcFields default true;
     property BeforeOpen: TDataSetNotifyEvent read FBeforeOpen write FBeforeOpen;
     property AfterOpen: TDataSetNotifyEvent read FAfterOpen write FAfterOpen;
     property BeforeClose: TDataSetNotifyEvent read FBeforeClose write FBeforeClose;