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

LazUtils: Masks: revert most of #78148e42 since wqFileNameEnd no longer requires mocAnyCharOrNone.

Browse Source 
Note: code contains debug writeln's, so it will crash if no console is available.
This commit is contained in:
Bart 2021-11-08 22:43:20 +01:00
parent 09dcf62106
commit 3c6c852bc1
1 changed files with 5 additions and 5 deletions

10
components/lazutils/masks.pas
View File

@ -120,7 +120,7 @@ const
mocSet,
mocNegateGroup];
DefaultMaskOpCodes=AllMaskOpCodes-[mocEscapeChar];//MaskOpCodesNoEscape;
DefaultMaskOpCodes=MaskOpCodesNoEscape;
type
@ -520,8 +520,8 @@ var
begin
if fWindowsQuirks = AValue then Exit;
fWindowsQuirks := AValue;
if (wqFilenameEnd in fWindowsQuirks) then
Include(fMaskOpcodes, mocAnyCharOrNone);
//if (wqFilenameEnd in fWindowsQuirks) then
// Include(fMaskOpcodes, mocAnyCharOrNone);
for i := 0 to fMasks.Count - 1 do
begin
TWindowsMask(fMasks.Items[i]).Quirks := FWindowsQuirks;
@ -558,8 +558,8 @@ constructor TWindowsMaskList.Create(const aValue: String; aSeparator: Char;
aWindowsQuirksAllowed: TWindowsQuirks);
begin
fWindowsQuirks := aWindowsQuirksAllowed;
if (wqFilenameEnd in aWindowsQuirksAllowed) then
Include(aOpcodesAllowed, mocAnyCharOrNone);
//if (wqFilenameEnd in aWindowsQuirksAllowed) then
// Include(aOpcodesAllowed, mocAnyCharOrNone);
inherited Create(aValue, aSeparator, aCaseSensitive, aOpcodesAllowed);
end;