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

SynEdit, small optimization for same-word-markup (dont, try to find block, if select-all)

Browse Source 
git-svn-id: trunk@20939 -
This commit is contained in:
martin 2009-07-24 21:35:14 +00:00
parent 5296782eaf
commit 02cec874b0
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/syneditmarkuphighall.pp
View File

@ -675,19 +675,27 @@ function TSynEditMarkupHighlightAllCaret.GetCurrentText: String;
while (i > 0) and (Result[i] in [#1..#32]) do dec(i);
Result := copy(Result, 1, i);
end;
var
LowBnd, UpBnd: TPoint;
i: integer;
begin
if Caret = nil then
exit('');
if FToggledWord <> '' then
exit(FToggledWord);
If TSynEdit(SynEdit).SelAvail then begin
LowBnd := TSynEdit(SynEdit).BlockBegin;
UpBnd := TSynEdit(SynEdit).BlockEnd;
i := UpBnd.y - LowBnd.y + 1;
if (i > LowBnd.y) and (i > Lines.Count - UpBnd.y) then
exit('');
if FTrim then
Result := TrimS(TSynEdit(SynEdit).SelText)
else
Result := TSynEdit(SynEdit).SelText;
if TrimS(Result) = '' then Result := '';
FLowBound := TSynEdit(SynEdit).BlockBegin;
FUpBound := TSynEdit(SynEdit).BlockEnd;
FLowBound := LowBnd;
FUpBound := UpBnd;
end else begin
Result := TSynEdit(SynEdit).GetWordAtRowCol(Caret.LineBytePos);
if FIgnoreKeywords and assigned(FHighlighter)