paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 02:19:39 +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;
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 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
CME: TCustomMaskEdit;
begin
CME := TCustomMaskEdit.Create(nil);
try
CME.EnableSets := EnableSets;
CME.EditMask := AEditMask;
if CME.IsMasked then
begin