+ Implemented dataset.getchildren from Alexandrov Alexandru

git-svn-id: trunk@225 -

fcl/db/db.pp

@@ -332,7 +332,7 @@ type
     property OldValue: variant read GetOldValue;
     property ProviderFlags : TProviderFlags read FProviderFlags write FProviderFlags;
   published
-    property AlignMent : TAlignMent Read FAlignMent write SetAlignment;
+    property AlignMent : TAlignMent Read FAlignMent write SetAlignment default taLeftJustify;
     property CustomConstraint: string read FCustomConstraint write FCustomConstraint;
     property ConstraintErrorMessage: string read FConstraintErrorMessage write FConstraintErrorMessage;
     property DefaultExpression: string read FDefaultExpression write FDefaultExpression;
@@ -351,7 +351,7 @@ type
     property Origin: string read FOrigin write FOrigin;
     property ReadOnly: Boolean read FReadOnly write SetReadOnly;
     property Required: Boolean read FRequired write FRequired;
-    property Visible: Boolean read FVisible write SetVisible;
+    property Visible: Boolean read FVisible write SetVisible default True;
     property OnChange: TFieldNotifyEvent read FOnChange write FOnChange;
     property OnGetText: TFieldGetTextEvent read FOnGetText write FOnGetText;
     property OnSetText: TFieldSetTextEvent read FOnSetText write FOnSetText;

fcl/db/fields.inc

@@ -629,7 +629,7 @@ end;
 function TField.GetParentComponent: TComponent;
 
 begin
-  //!! To be implemented
+  Result := DataSet;
 end;
 
 procedure TField.GetText(var AText: string; ADisplayText: Boolean);
@@ -670,7 +670,9 @@ end;
 procedure TField.ReadState(Reader: TReader);
 
 begin
-  //!! To be implemented
+  inherited ReadState(Reader);
+  if Reader.Parent is TDataSet then
+    DataSet := TDataSet(Reader.Parent);
 end;
 
 procedure TField.SetAsBoolean(AValue: Boolean);
@@ -766,7 +768,8 @@ end;
 procedure TField.SetParentComponent(AParent: TComponent);
 
 begin
-  //!! To be implemented
+  if not (csLoading in ComponentState) then
+    DataSet := AParent as TDataSet;
 end;
 
 procedure TField.SetSize(AValue: Word);