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

* Implemented TField.Editmask by Luiz Americo, bug #16555

Browse Source 
git-svn-id: trunk@15425 -
This commit is contained in:
joost 2010-06-13 13:26:55 +00:00
parent 04773d35b9
commit 81c3db6679
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/maskutils.pp
View File

@ -64,7 +64,7 @@ type
TParseState = set of TStepState; TParseState = set of TStepState;
TEditMask = type string;
{ TMaskUtils } { TMaskUtils }

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

@ -22,7 +22,7 @@ unit db;
interface interface
uses Classes,Sysutils,Variants,FmtBCD; uses Classes,Sysutils,Variants,FmtBCD,MaskUtils;
const const
@ -271,6 +271,7 @@ type
FDefaultExpression : String; FDefaultExpression : String;
FDisplayLabel : String; FDisplayLabel : String;
FDisplayWidth : Longint; FDisplayWidth : Longint;
FEditMask: TEditMask;
FFieldKind : TFieldKind; FFieldKind : TFieldKind;
FFieldName : String; FFieldName : String;
FFieldNo : Longint; FFieldNo : Longint;
@ -401,6 +402,8 @@ type
property DataType: TFieldType read FDataType; property DataType: TFieldType read FDataType;
property DisplayName: String Read GetDisplayName; property DisplayName: String Read GetDisplayName;
property DisplayText: String read GetDisplayText; property DisplayText: String read GetDisplayText;
property EditMask: TEditMask read FEditMask write FEditMask;
property EditMaskPtr: TEditMask read FEditMask;
property FieldNo: Longint read FFieldNo; property FieldNo: Longint read FFieldNo;
property IsIndexField: Boolean read FIsIndexField; property IsIndexField: Boolean read FIsIndexField;
property IsNull: Boolean read GetIsNull; property IsNull: Boolean read GetIsNull;
@ -472,6 +475,7 @@ type
property Transliterate: Boolean read FTransliterate write FTransliterate; property Transliterate: Boolean read FTransliterate write FTransliterate;
property Value: String read GetAsString write SetAsString; property Value: String read GetAsString write SetAsString;
published published
property EditMask;
property Size default 20; property Size default 20;
end; end;
@ -700,6 +704,7 @@ type
property Value: TDateTime read GetAsDateTime write SetAsDateTime; property Value: TDateTime read GetAsDateTime write SetAsDateTime;
published published
property DisplayFormat: string read FDisplayFormat write SetDisplayFormat; property DisplayFormat: string read FDisplayFormat write SetDisplayFormat;
property EditMask;
end; end;
{ TDateField } { TDateField }