paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 20:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Implemented dataset.getchildren from Alexandrov Alexandru

Browse Source 
git-svn-id: trunk@225 -
This commit is contained in:
michael 2005-06-06 12:39:50 +00:00
parent 94281c5589
commit 3135ce1426
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/db.pp
View File

@ -332,7 +332,7 @@ type
property OldValue: variant read GetOldValue; property OldValue: variant read GetOldValue;
property ProviderFlags : TProviderFlags read FProviderFlags write FProviderFlags; property ProviderFlags : TProviderFlags read FProviderFlags write FProviderFlags;
published 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 CustomConstraint: string read FCustomConstraint write FCustomConstraint;
property ConstraintErrorMessage: string read FConstraintErrorMessage write FConstraintErrorMessage; property ConstraintErrorMessage: string read FConstraintErrorMessage write FConstraintErrorMessage;
property DefaultExpression: string read FDefaultExpression write FDefaultExpression; property DefaultExpression: string read FDefaultExpression write FDefaultExpression;
@ -351,7 +351,7 @@ type
property Origin: string read FOrigin write FOrigin; property Origin: string read FOrigin write FOrigin;
property ReadOnly: Boolean read FReadOnly write SetReadOnly; property ReadOnly: Boolean read FReadOnly write SetReadOnly;
property Required: Boolean read FRequired write FRequired; 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 OnChange: TFieldNotifyEvent read FOnChange write FOnChange;
property OnGetText: TFieldGetTextEvent read FOnGetText write FOnGetText; property OnGetText: TFieldGetTextEvent read FOnGetText write FOnGetText;
property OnSetText: TFieldSetTextEvent read FOnSetText write FOnSetText; property OnSetText: TFieldSetTextEvent read FOnSetText write FOnSetText;

9
fcl/db/fields.inc
View File

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