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

SynEdit: FIxed "caret at ident" for end of word

Browse Source 
git-svn-id: trunk@56696 -
This commit is contained in:
martin 2017-12-11 20:28:23 +00:00
parent ed82fc492a
commit 5693bb777a
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/synedit.pp
View File

@ -8990,15 +8990,22 @@ begin
//TokenType := Highlighter.GetTokenKind; //TokenType := Highlighter.GetTokenKind;
Attri := Highlighter.GetTokenAttribute; Attri := Highlighter.GetTokenAttribute;
//DebugLn([' TCustomSynEdit.CaretAtIdentOrString: Start=', Start, ', Token=', Token]); //DebugLn([' TCustomSynEdit.CaretAtIdentOrString: Start=', Start, ', Token=', Token]);
if (PosX >= Start) and (PosX < Start + Length(Token)) then if (PosX = Start) then
begin begin
AtIdent := Attri = Highlighter.IdentifierAttribute; AtIdent := (Attri = Highlighter.IdentifierAttribute)
or (PrevAttri = Highlighter.IdentifierAttribute);
NearString := (Attri = Highlighter.StringAttribute) NearString := (Attri = Highlighter.StringAttribute)
or (PrevAttri = Highlighter.StringAttribute); // If cursor is on end-quote. or (PrevAttri = Highlighter.StringAttribute); // If cursor is on end-quote.
//DebugLn([' TCustomSynEdit.CaretAtIdentOrString: Success! Attri=', Attri, //DebugLn([' TCustomSynEdit.CaretAtIdentOrString: Success! Attri=', Attri,
// ', AtIdent=', AtIdent, ', AtString=', AtString]); // ', AtIdent=', AtIdent, ', AtString=', AtString]);
exit; exit;
end; end;
if (PosX >= Start) and (PosX < Start + Length(Token)) then
begin
AtIdent := Attri = Highlighter.IdentifierAttribute;
NearString := (Attri = Highlighter.StringAttribute);
exit;
end;
PrevAttri := Attri; PrevAttri := Attri;
Highlighter.Next; Highlighter.Next;
end; end;