paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Masks: remove TWindowsMaskList.MatchesWindowsMask. It should never have been there, since it does not resolve a backwards compatibility issue (there never existed a TWindowsMaskList before).

Browse Source
This commit is contained in:
Bart 2023-01-14 19:16:51 +01:00
parent dc18060660
commit 7b8159908e
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazutils/masks.pas
View File

@ -364,11 +364,6 @@ type
constructor Create(const aValue: String; aSeparator: Char; aOptions: TMaskOptions); override; constructor Create(const aValue: String; aSeparator: Char; aOptions: TMaskOptions); override;
deprecated 'Use Create with TMaskOpcodes paramater'; deprecated 'Use Create with TMaskOpcodes paramater';
//Remove in 2.5
function MatchesWindowsMask(const AFileName: String): Boolean; reintroduce;
deprecated 'Use a Matches instead.';
property Quirks: TWindowsQuirks read fWindowsQuirks write SetQuirks; property Quirks: TWindowsQuirks read fWindowsQuirks write SetQuirks;
end; end;
@ -590,10 +585,6 @@ begin
Create(aValue, aSeparator, (moCaseSensitive in aOptions), DefaultMaskOpCodes, DefaultWindowsQuirks); Create(aValue, aSeparator, (moCaseSensitive in aOptions), DefaultMaskOpCodes, DefaultWindowsQuirks);
end; end;
function TWindowsMaskList.MatchesWindowsMask(const AFileName: String): Boolean;
begin
Result := Matches(AFilename);
end;
{ EMaskError } { EMaskError }