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

LazUtils: Masks: property AutoReverseRange needs a setter as well.

Browse Source
This commit is contained in:
Bart 2021-11-01 23:07:18 +01:00
parent 7dfaef943f
commit ca93bfbd58
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazutils/masks.pas
View File

@ -152,6 +152,7 @@ type
TMaskBase = class
private
procedure SetAutoReverseRange(AValue: Boolean);
procedure SetMaskEscapeChar(AValue: Char);
procedure SetMaskOpCodesAllowed(AValue: TMaskOpCodes);
protected
@ -210,7 +211,7 @@ type
constructor Create(aOptions: TMaskOptions);
public
property CaseSensitive: Boolean read fCaseSensitive;
property AutoReverseRange: Boolean read fAutoReverseRange write fAutoReverseRange;
property AutoReverseRange: Boolean read fAutoReverseRange write SetAutoReverseRange;
property EscapeChar: Char read fMaskEscapeChar write SetMaskEscapeChar;
property MaskOpCodes: TMaskOpCodes read fMaskOpcodesAllowed write SetMaskOpCodesAllowed;
end;
@ -575,6 +576,13 @@ end;
{ TMaskBase }
procedure TMaskBase.SetAutoReverseRange(AValue: Boolean);
begin
if fAutoReverseRange = AValue then Exit;
fAutoReverseRange := AValue;
fMaskIsCompiled := False;
end;
procedure TMaskBase.SetMaskEscapeChar(AValue: Char);
begin
if fMaskEscapeChar=AValue then Exit;