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

* Patch from Tony Whyman, adding DisplayWidth stored modified to TFIeld properties (bug 27768)

Browse Source 
git-svn-id: trunk@30468 -
This commit is contained in:
michael 2015-04-06 16:36:31 +00:00
parent 2412a2faa2
commit 5f1553c1e7
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/base/db.pas
View File

@ -315,6 +315,7 @@ type
procedure SetReadOnly(const AValue: Boolean);
procedure SetVisible(const AValue: Boolean);
function IsDisplayStored : Boolean;
function IsDisplayWidthStored: Boolean;
function GetLookupList: TLookupList;
procedure CalcLookupValue;
protected
@ -429,7 +430,7 @@ type
property ConstraintErrorMessage: string read FConstraintErrorMessage write FConstraintErrorMessage;
property DefaultExpression: string read FDefaultExpression write FDefaultExpression;
property DisplayLabel : string read GetDisplayName write SetDisplayLabel stored IsDisplayStored;
property DisplayWidth: Longint read GetDisplayWidth write SetDisplayWidth;
property DisplayWidth: Longint read GetDisplayWidth write SetDisplayWidth stored IsDisplayWidthStored;
property FieldKind: TFieldKind read FFieldKind write FFieldKind;
property FieldName: string read FFieldName write FFieldName;
property HasConstraints: Boolean read FHasConstraints;

6
packages/fcl-db/src/base/fields.inc
View File

@ -632,6 +632,12 @@ begin
Result:=(DisplayLabel<>FieldName);
end;
Function TField.IsDisplayWidthStored : Boolean;
begin
Result:=(FDisplayWidth<>0);
end;
function TField.GetLookupList: TLookupList;
begin
if not Assigned(FLookupList) then