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

SynEdit: (temporarily) made TSynCustomHighlighter.IdleScanRanges virtual. Issue

Browse Source 
git-svn-id: trunk@57348 -
This commit is contained in:
martin 2018-02-22 09:33:31 +00:00
parent caf81d7978
commit b49e87db2a
2 changed files with 7 additions and 2 deletions

2
components/synedit/synedit.pp
View File

@ -5088,7 +5088,7 @@ begin
exit;
FHighlighter.CurrentLines := FLines; // Trailing spaces are not needed
if not FHighlighter.IdleScanRanges then
if not FHighlighter.IdleScanRanges{%H-} then
exit;
// Move to the end; give others a change too

7
components/synedit/synedithighlighter.pp
View File

@ -401,7 +401,12 @@ type
procedure ContinueNextLine; // To be called at EOL; does not read the range
procedure ScanRanges;
function IdleScanRanges: Boolean; // Scan little by little during OnIdle; Return True, if more work avail
(* IdleScanRanges
Scan in small chunks during OnIdle; Return True, if more work avail
This method is still under development. It may be changed, removed, un-virtualized, or anything.
In future SynEdit & HL may have other IDLE tasks, and if and when that happens, there will be new ways to control this
*)
function IdleScanRanges: Boolean; virtual; experimental;
function NeedScan: Boolean;
procedure ScanAllRanges;
procedure SetRange(Value: Pointer); virtual;