From ed2dbc19e7e928223870971b9c18b0620afdc107 Mon Sep 17 00:00:00 2001 From: marco Date: Sat, 20 Jul 2019 14:40:34 +0000 Subject: [PATCH] * lookup property published but not stored. Doesn't change much, but less trouble when opening/dualmaintaining delphi forms. git-svn-id: trunk@42467 - --- packages/fcl-db/src/base/db.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-db/src/base/db.pas b/packages/fcl-db/src/base/db.pas index 53eee60a06..71e9ebae78 100644 --- a/packages/fcl-db/src/base/db.pas +++ b/packages/fcl-db/src/base/db.pas @@ -428,7 +428,6 @@ type property FieldNo: Longint read FFieldNo; property IsIndexField: Boolean read FIsIndexField; property IsNull: Boolean read GetIsNull; - property Lookup: Boolean read GetLookup write SetLookup; deprecated; property NewValue: Variant read GetNewValue write SetNewValue; property Offset: word read FOffset; property Size: Integer read FSize write SetSize; @@ -455,6 +454,7 @@ type property LookupDataSet: TDataSet read FLookupDataSet write FLookupDataSet; property LookupKeyFields: string read FLookupKeyFields write FLookupKeyFields; property LookupResultField: string read FLookupResultField write FLookupResultField; + property Lookup: Boolean read GetLookup write SetLookup stored false; deprecated; property Origin: string read FOrigin write FOrigin; property ProviderFlags : TProviderFlags read FProviderFlags write FProviderFlags; property ReadOnly: Boolean read FReadOnly write SetReadOnly;