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

MG: fixed bracket hilighting

Browse Source 
git-svn-id: trunk@2063 -
This commit is contained in:
lazarus 2002-08-17 23:40:50 +00:00
parent 242b61c96f
commit 126f9199ff
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedit.pp
View File

@ -2496,7 +2496,6 @@ var
{$IFDEF SYN_LAZARUS}
BracketFGCol, BracketBGCol: TColor;
BracketStyle: TFontStyles;
nTokenStart, nTokenEnd: integer;
{$ENDIF}
begin
// Initialize rcLine for drawing. Note that Top and Bottom are updated
@ -2668,7 +2667,7 @@ var
AddHighlightToken(sToken, nTokenPos, nTokenLen,
BracketFGCol, BracketBGCol, BracketStyle);
inc(nTokenPos,nTokenLen);
AddHighlightToken(@sToken[nTokenLen-1], nTokenPos, 1,
AddHighlightToken(@sToken[nTokenLen], nTokenPos, 1,
BracketFGCol, BracketBGCol, BracketStyle+[fsBold]);
end else begin
// draw rest