paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Masks: make TWindowsMaskList.Quirks read/write.

Browse Source
This commit is contained in:
Bart 2021-10-31 20:12:22 +01:00
parent 3be1973992
commit cf6d6c626c
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazutils/masks.pas
View File

@ -335,6 +335,7 @@ type
TWindowsMaskList = class(TMaskList)
private
fWindowsQuirks: TWindowsQuirks;
procedure SetQuirks(AValue: TWindowsQuirks);
protected
function GetMaskClass: TMaskClass; override;
procedure AddMasksToList(const aValue: String; aSeparator: Char; CaseSensitive: Boolean;
@ -353,7 +354,7 @@ type
deprecated 'Use a TWindowsMaskList instead.';
property Quirks: TWindowsQuirks read fWindowsQuirks;
property Quirks: TWindowsQuirks read fWindowsQuirks write SetQuirks;
end;
function MatchesMask(const FileName, Mask: String; CaseSensitive: Boolean=False;
@ -510,6 +511,14 @@ end;
{ TWindowsMaskList }
procedure TWindowsMaskList.SetQuirks(AValue: TWindowsQuirks);
begin
if fWindowsQuirks = AValue then Exit;
fWindowsQuirks := AValue;
fMasks.Clear;
AddMasksToList(fMask, fSeparator, fCaseSensitive, fMaskOpCodes);
end;
function TWindowsMaskList.GetMaskClass: TMaskClass;
begin
Result := TWindowsMask;
@ -535,7 +544,7 @@ constructor TWindowsMaskList.Create(const aValue: String; aSeparator: Char;
CaseSensitive: Boolean; aOpcodesAllowed: TMaskOpCodes;
aWindowsQuirksAllowed: TWindowsQuirks);
begin
FWindowsQuirks := aWindowsQuirksAllowed;
fWindowsQuirks := aWindowsQuirksAllowed;
inherited Create(aValue, aSeparator, CaseSensitive, aOpcodesAllowed);
end;