paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-21 07:40:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

MaskEdit: adapt FormatMaskText for EnableSets.

Browse Source 
(cherry picked from commit a09b37afad)
This commit is contained in:
Bart 2024-01-16 19:19:07 +01:00 committed by Maxim Ganetsky
parent b43b509320
commit 7182005618
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

@ -388,7 +388,7 @@ const
property SpaceChar; property SpaceChar;
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;
@ -585,12 +585,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