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

lazutils: clean up

Browse Source
This commit is contained in:
mattias 2022-04-10 21:18:21 +02:00
parent 8335463aca
commit 0f871f2237
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/lazutils/masks.pas
View File

@ -244,10 +244,10 @@ type
procedure DumpMaskCompiled;
{$ENDIF}
constructor Create(const aMask: String);
constructor Create(const aMask: String; aCaseSensitive: Boolean);
constructor Create(const aMask: String); overload;
constructor Create(const aMask: String; aCaseSensitive: Boolean); overload;
constructor Create(const aMask: String; aCaseSensitive: Boolean; aOpcodesAllowed: TMaskOpCodes); virtual; overload;
constructor Create(const aMask: String; aOptions: TMaskOptions);
constructor Create(const aMask: String; aOptions: TMaskOptions); overload;
deprecated 'Use Create with TMaskOpCodes params.'; // in Lazarus 2.3, remove in 2.5.
procedure Compile; override;
@ -1342,9 +1342,6 @@ begin
end;
procedure TWindowsMaskUTF8.CompileOtherSpecialChars;
var
lCharsGroupInsertSize: integer;
ZeroCount: Integer;
begin
inherited CompileOtherSpecialChars;
if (fMask[fMaskInd]=#0) and not (wqFileNameEnd in self.fWindowsQuirkInUse) then