paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-25 20:58:19 +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

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

@ -63,8 +63,8 @@ type
);
TParseState = set of TStepState;
TEditMask = type string;
{ TMaskUtils }

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

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