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

SynEdit: Removed deprecated code

Browse Source 
git-svn-id: trunk@24489 -
This commit is contained in:
martin 2010-04-07 17:29:01 +00:00
parent ee811cda8e
commit d5920b14ea
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/synedit/synedithighlighter.pp
View File

@ -297,7 +297,6 @@ type
procedure StartAtLineIndex(LineNumber:Integer); virtual; // 0 based
procedure ContinueNextLine; // To be called at EOL; does not read the range
function ScanFrom(Index: integer; AtLeastTilIndex: integer = -1): integer; deprecated;
procedure ScanRanges;
procedure ScanAllRanges;
procedure SetRange(Value: Pointer); virtual;
@ -1236,30 +1235,6 @@ begin
FCurrentRanges[Index] := r;
end;
function TSynCustomHighlighter.ScanFrom(Index: integer; AtLeastTilIndex: integer): integer;
var
c: LongInt;
begin
FIsScanning := True;
try
Result := Index;
c := CurrentLines.Count;
StartAtLineIndex(Result);
NextToEol;
while UpdateRangeInfoAtLine(Result) or
(Result <= AtLeastTilIndex+1)
do begin
inc(Result);
if Result = c then
break;
ContinueNextLine;
NextToEol;
end;
finally
FIsScanning := False;
end;
end;
procedure TSynCustomHighlighter.ScanRanges;
var
StartIndex, EndIndex, CurrentIndex, c: Integer;