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

Masks: make some TMaksList methods virtual (as per user request).

Browse Source
This commit is contained in:
Bart 2023-01-14 14:16:04 +01:00
parent 49381efd93
commit c2eb7446af
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/masks.pas
View File

@ -73,11 +73,11 @@ type
function GetCount: Integer;
function GetItem(Index: Integer): TMask;
public
constructor Create(const AValue: String; ASeparator: Char; const CaseSensitive: Boolean);
constructor Create(const AValue: String; ASeparator: Char = ';'; const AOptions: TMaskOptions = []);
constructor Create(const AValue: String; ASeparator: Char; const CaseSensitive: Boolean); virtual;
constructor Create(const AValue: String; ASeparator: Char = ';'; const AOptions: TMaskOptions = []); virtual;
destructor Destroy; override;
function Matches(const AFileName: String): Boolean;
function Matches(const AFileName: String): Boolean; virtual;
function MatchesWindowsMask(const AFileName: String): Boolean;
property Count: Integer read GetCount;