paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 06:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: use Field EditMask in TDBEdit (delphi compatible). Add CustomEditMask property to switch to old behavior

Browse Source 
git-svn-id: trunk@36296 -
This commit is contained in:
blikblum 2012-03-24 20:43:03 +00:00
parent 85b8beb59c
commit 260c7a9537
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbctrls.pp
View File

@ -171,7 +171,7 @@ Type
TDBEdit = class(TCustomMaskEdit)
private
FDataLink: TFieldDataLink;
FCustomEditMask: Boolean;
procedure DataChange(Sender: TObject);
procedure UpdateData(Sender: TObject);
function GetDataField: string;
@ -202,9 +202,9 @@ Type
destructor Destroy; override;
property Field: TField read GetField;
published
property CustomEditMask: Boolean read FCustomEditMask write FCustomEditMask default False;
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
property Anchors;

9
lcl/include/dbedit.inc
View File

@ -30,8 +30,9 @@ var
begin
DataLinkField := FDataLink.Field;
if DataLinkField <> nil then begin
//use the right EditMask if any
//EditMask := FDataLink.Field.EditMask; doesn't exist yet
//use Field EditMask by default
if not FCustomEditMask then
EditMask := DataLinkField.EditMask;
Alignment := DataLinkField.Alignment;
//if we are focused its possible to edit,
@ -47,8 +48,8 @@ begin
MaxLength := DatalinkField.Size;
end
else begin
//todo: uncomment this when TField implements EditMask
//EditMask := ''
if not FCustomEditMask then
EditMask := '';
Text := '';
MaxLength := 0;
end;