paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-18 15:50:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

MaskEdit: remove all commented code regarding constant cMask_SpaceOnly (which itself was already commented out).

Browse Source 
git-svn-id: trunk@59660 -
This commit is contained in:
bart 2018-11-25 21:15:49 +00:00
parent 425ac5d754
commit 8b61ae8f98
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/maskedit.pp
View File

@ -78,7 +78,6 @@ const
cMask_HexFixed = 'H'; // a hexadecimal character (Lazarus extension, not supported by Delphi) cMask_HexFixed = 'H'; // a hexadecimal character (Lazarus extension, not supported by Delphi)
cMask_Binary = 'b'; // a binary character (['0'..'1']) but not necessary (Lazarus extension, not supported by Delphi) cMask_Binary = 'b'; // a binary character (['0'..'1']) but not necessary (Lazarus extension, not supported by Delphi)
cMask_BinaryFixed = 'B'; // a binary character (Lazarus extension, not supported by Delphi) cMask_BinaryFixed = 'B'; // a binary character (Lazarus extension, not supported by Delphi)
{ cMask_SpaceOnly = '_'; // automatically put a space //not Delphi compatible }
cMask_NoLeadingBlanks = '!'; //Trim leading blanks, otherwise trim trailing blanks from the data cMask_NoLeadingBlanks = '!'; //Trim leading blanks, otherwise trim trailing blanks from the data
{Delphi compatibility: user can change these at runtime} {Delphi compatibility: user can change these at runtime}
@ -367,7 +366,7 @@ const
cMask_Letter, cMask_LetterFixed, cMask_Letter, cMask_Letter, cMask_LetterFixed, cMask_LetterFixed, cMask_Letter, cMask_LetterFixed, cMask_Letter, cMask_Letter, cMask_LetterFixed, cMask_LetterFixed,
cMask_AlphaNum, cMask_AlphaNumFixed, cMask_AlphaNum, cMask_AlphaNum, cMask_AlphaNumFixed, cMask_AlphaNumFixed, cMask_AlphaNum, cMask_AlphaNumFixed, cMask_AlphaNum, cMask_AlphaNum, cMask_AlphaNumFixed, cMask_AlphaNumFixed,
cMask_AllChars, cMask_AllCharsFixed, cMask_AllChars, cMask_AllChars, cMask_AllCharsFixed, cMask_AllCharsFixed, cMask_AllChars, cMask_AllCharsFixed, cMask_AllChars, cMask_AllChars, cMask_AllCharsFixed, cMask_AllCharsFixed,
(*cMask_SpaceOnly,*) cMask_HourSeparator, cMask_DateSeparator, #0); cMask_HourSeparator, cMask_DateSeparator, #0);
{$endif} {$endif}
const const
@ -689,7 +688,6 @@ begin
cMask_DateSeparator: AddToMask(MaskToChar(Char_DateSeparator)); cMask_DateSeparator: AddToMask(MaskToChar(Char_DateSeparator));
{cMask_SpaceOnly: AddToMask(MaskToChar(Char_Space)); //not Delphi compatible, see remarks above}
cMask_Hex: begin cMask_Hex: begin
if InUp if InUp
then then