paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 20:07:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

Synedit: Highlight matching quotes (fallback previous quote or next quote)

Browse Source 
git-svn-id: trunk@18027 -
This commit is contained in:
martin 2009-01-01 23:41:22 +00:00
parent e2d80cd0fd
commit 9fe1fca4bd
2 changed files with 47 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
components/synedit/synedit.pp
View File

@ -9392,7 +9392,8 @@ function TCustomSynEdit.FindMatchingBracket(PhysStartBracket: TPoint;
): TPoint;
// returns physical (screen) position of end bracket
const
Brackets: array[0..5] of char = ('(', ')', '[', ']', '{', '}');
// keep the ' last
Brackets: array[0..6] of char = ('(', ')', '[', ']', '{', '}', '''');
type
TokenPos = Record X: Integer; Attr: Integer; end;
var
@ -9479,6 +9480,46 @@ var
CaretXY := LogicalToPhysicalPos(Result)
end;
procedure DoFindMatchingQuote;
var
Test, BracketInc, BracketDec: char;
NumBrackets, Len: integer;
begin
StartPt:=Point(PosX,PosY);
GetHighlighterAttriAtRowColEx(StartPt, s1, BracketKind, TmpStart, TmpAttr);
if (TmpStart = PosX) and (Length(s1)>0) and (s1[Length(s1)] = '''') then begin
PosX := PosX + Length(s1) - 1;
DoMatchingBracketFound;
exit;
end;
if (TmpStart + Length(s1) - 1 = PosX) and (Length(s1)>0) and (s1[1] = '''') then begin
PosX := PosX - Length(s1) + 1;
DoMatchingBracketFound;
exit;
end;
MaxKnownTokenPos := 0;
Len := PosX;
// search until start of line
while PosX > 1 do begin
Dec(PosX);
Test := Line[PosX];
if (Test = '''') and IsContextBracket then begin
DoMatchingBracketFound;
exit;
end;
end;
PosX := Len;
Len := Length(Line);
while PosX < Len do begin
Inc(PosX);
Test := Line[PosX];
if (Test = '''') and IsContextBracket then begin
DoMatchingBracketFound;
exit;
end;
end;
end;
procedure DoFindMatchingBracket(i: integer);
var
Test, BracketInc, BracketDec: char;
@ -9562,7 +9603,10 @@ var
for i := Low(Brackets) to High(Brackets) do begin
if Test = Brackets[i] then begin
// this is the bracket, get the matching one and the direction
DoFindMatchingBracket(i);
if Brackets[i] = '''' then
DoFindMatchingQuote
else
DoFindMatchingBracket(i);
exit;
end;
end;

2
components/synedit/syneditmarkupbracket.pp
View File

@ -87,7 +87,7 @@ end;
procedure TSynEditMarkupBracket.FindMatchingBracketPair(PhysCaret: TPoint;
var StartBracket, EndBracket: TPoint);
const
Brackets: set of Char = ['(',')','{','}','[',']'];
Brackets: set of Char = ['(',')','{','}','[',']', '''' ];
var
StartLine: string;
LogCaretXY: TPoint;