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

MaskEdit: adapt FormatMaskText for EnableSets.

Browse Source
This commit is contained in:
Bart 2024-01-16 19:19:07 +01:00
parent aefe523c1e
commit a09b37afad
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/maskedit.pp
View File

@ -390,7 +390,7 @@ const
property OnUTF8KeyPress; property OnUTF8KeyPress;
end; end;
function FormatMaskText(const AEditMask: string; const Value: string ): string; function FormatMaskText(const AEditMask: string; const Value: string; EnableSets: Boolean = False): string;
procedure SplitEditMask(AEditMask: String; out AMaskPart: String; out AMaskSave: Boolean; out ASpaceChar: Char); procedure SplitEditMask(AEditMask: String; out AMaskPart: String; out AMaskSave: Boolean; out ASpaceChar: Char);
procedure Register; procedure Register;
@ -587,12 +587,13 @@ end;
function FormatMaskText(const AEditMask: string; const Value: string): string; function FormatMaskText(const AEditMask: string; const Value: string; EnableSets: Boolean): string;
var var
CME: TCustomMaskEdit; CME: TCustomMaskEdit;
begin begin
CME := TCustomMaskEdit.Create(nil); CME := TCustomMaskEdit.Create(nil);
try try
CME.EnableSets := EnableSets;
CME.EditMask := AEditMask; CME.EditMask := AEditMask;
if CME.IsMasked then if CME.IsMasked then
begin begin