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

SynEdit: Allow to set ssoMatchCase for TSynEditMarkupHighlightAllCaret. Issue #0025108 Patch by Denis Golovan

Browse Source 
git-svn-id: trunk@43009 -
This commit is contained in:
martin 2013-09-28 13:15:26 +00:00
parent 74ef8c5b49
commit 5da511836b
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/synedit/syneditmarkuphighall.pp
View File

@ -180,6 +180,7 @@ type
procedure SetSearchString(AValue: String);
protected
procedure SearchStringChanged; virtual;
procedure DoOptionsChanged;virtual;
function HasSearchData: Boolean; override;
function SearchStringMaxLines: Integer; override;
@ -413,6 +414,7 @@ type
procedure DoCaretChanged(Sender: TObject); override;
procedure DoTextChanged(StartLine, EndLine, ACountDiff: Integer); override;
procedure DoMarkupChanged(AMarkup: TSynSelectedColor); override;
procedure DoOptionsChanged;override;
procedure RestartTimer;
procedure ScrollTimerHandler(Sender: TObject);
function GetCurrentText: String;
@ -1638,6 +1640,7 @@ begin
fSearchOptions := AValue;
FSearchStringMaxLines := -1;
Invalidate;
DoOptionsChanged;
end;
procedure TSynEditMarkupHighlightAll.SetSearchString(AValue: String);
@ -1655,6 +1658,11 @@ begin
//
end;
procedure TSynEditMarkupHighlightAll.DoOptionsChanged;
begin
//
end;
function TSynEditMarkupHighlightAll.HasSearchData: Boolean;
begin
Result := FSearchString <> '';
@ -2732,6 +2740,14 @@ begin
end;
end;
procedure TSynEditMarkupHighlightAllCaret.DoOptionsChanged;
begin
if ssoMatchCase in SearchOptions then
FToggledOption:=FToggledOption + [ssoMatchCase]
else
FToggledOption:=FToggledOption - [ssoMatchCase];
end;
function TSynEditMarkupHighlightAllCaret.GetCurrentOption: TSynSearchOptions;
begin
if FToggledWord <> '' then
@ -2743,6 +2759,8 @@ begin
Result := []
else
Result := [ssoWholeWord];
if ssoMatchCase in SearchOptions then
Result := Result + [ssoMatchCase];
end;
constructor TSynEditMarkupHighlightAllCaret.Create(ASynEdit: TSynEditBase);

1
docs/Contributors.txt
View File

@ -47,6 +47,7 @@ David Guadagnini
David Jenkins
David Pethes
Dean Zobec
Denis Golovan
Denis Volodarsky
Diogo Picarra
Dirk Schiphorst