paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 14:42:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Masks: when setting Mask property invalidate fInternalMask.

Browse Source
This commit is contained in:
Bart 2021-10-31 19:02:24 +01:00
parent 421f894acb
commit dd4c515dc6
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/lazutils/masks.pas
View File

@ -230,6 +230,7 @@ type
procedure AddRange(lFirstRange, lSecondRange: Integer);
procedure CompileRange;
procedure ReverseRange(lFirstRange, lSecondRange: Integer);
procedure SetOriginalMask(AValue: String);
protected
fOriginalMask: String;
class function CompareUTF8Sequences(const P1,P2: PChar): integer; static;
@ -246,7 +247,7 @@ type
function MatchesWindowsMask(const AFileName: String): Boolean;
deprecated 'Create with TMaskWindows.Create, then call Matches.'; // in Lazarus 2.3, remove in 2.5.
public
property Mask: String read fOriginalMask write fOriginalMask;
property Mask: String read fOriginalMask write SetOriginalMask;
end;
TMask = class(TMaskUTF8);
@ -254,6 +255,8 @@ type
{ TWindowsMaskUTF8 }
TWindowsMaskUTF8=class(TMask)
private
procedure SetWindowsMask(AValue: String);
protected
fWindowsQuirkAllowed: TWindowsQuirks;
fWindowsQuirkInUse: TWindowsQuirks;
@ -267,7 +270,7 @@ type
procedure Compile; override;
function Matches(const aFileName: String): Boolean; override;
public
property Mask: String read fWindowsMask write fWindowsMask;
property Mask: String read fWindowsMask write SetWindowsMask;
property Quirks: TWindowsQuirks read fWindowsQuirkAllowed;// write fWindowsQuirkAllowed;
end;
@ -703,6 +706,13 @@ begin
fMaskInd:=lSecondRange;
end;
procedure TMaskUTF8.SetOriginalMask(AValue: String);
begin
if fOriginalMask = AValue then Exit;
fOriginalMask := AValue;
fMaskIsCompiled := False;
end;
procedure TMaskUTF8.CompileRange;
function IsARange(aPosition: integer; out aFirstSequence: integer; out aSecondSequence: integer): Boolean;// {$IFDEF USE_INLINE}inline;{$ENDIF}
var
@ -1137,6 +1147,13 @@ end;
{ TWindowsMask }
procedure TWindowsMaskUTF8.SetWindowsMask(AValue: String);
begin
if fWindowsMask = AValue then Exit;
fWindowsMask := AValue;
fMaskIsCompiled := False;
end;
class procedure TWindowsMaskUTF8.SplitFileNameExtension(
const aSourceFileName: String; out aFileName: String;
out aExtension: String; aIsMask: Boolean);