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

SynEdit: clean up

Browse Source 
git-svn-id: trunk@26830 -
This commit is contained in:
martin 2010-07-25 15:39:53 +00:00
parent b1d560f33b
commit 3308c03211
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synhighlighterpas.pp
View File

@ -85,8 +85,7 @@ type
rsAtClass,
rsAfterClass,
rsAtClosingBracket, // ')'
rsAtCaseLabel,
rsLineIsAllComment
rsAtCaseLabel
);
TRangeStates = set of TRangeState;
@ -2108,7 +2107,6 @@ begin
FNodeInfoLine := -1;
fLineNumber := LineNumber;
FAtLineStart := True;
Exclude(fRange, rsLineIsAllComment);
if not FCatchNodeInfo then
Next;
end; { SetLine }
@ -2604,7 +2602,7 @@ begin
if fLine[Run+1] = '/' then begin
fTokenID := tkComment;
if FAtLineStart then begin
fRange := fRange + [rsSlash, rsLineIsAllComment];
fRange := fRange + [rsSlash];
fStringLen := 2; // length of "//"
if not(TopPascalCodeFoldBlockType = cfbtSlashComment) then
StartPascalCodeFoldBlock(cfbtSlashComment);
@ -2866,7 +2864,6 @@ begin
inherited SetRange(Value);
CompilerMode := PasCodeFoldRange.Mode;
fRange := TRangeStates(Integer(PtrUInt(CodeFoldRange.RangeType)));
Exclude(fRange, rsLineIsAllComment);
FNodeInfoLine := -1;
FSynPasRangeInfo := TSynHighlighterPasRangeList(CurrentRanges).PasRangeInfo[LineIndex-1];
end;