paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 21:48:35 +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 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;

9
fcl/db/fields.inc
View File

@ -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);