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

MG: completion now replaces the whole word when key without Shift

Browse Source 
git-svn-id: trunk@2200 -
This commit is contained in:
lazarus 2002-08-17 23:41:07 +00:00
parent 9b48e4a3cd
commit 5af6c6bb06
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/synedit.pp
View File

@ -2917,9 +2917,10 @@ var
// test if caret over bracket and search anti bracket
const
Brackets: array[0..5] of char = ('(', ')', '[', ']', '{', '}');
var sLine: string;
var
sLine: string;
i, PosX, PosY, Len: integer;
Test, BracketInc, BracketDec: char;
CurChar, BracketInc, BracketDec: char;
NumBrackets: integer;
begin
// check for bracket under the cursor
@ -2947,10 +2948,10 @@ var
// search until start of line
while PosX > 1 do begin
Dec(PosX);
Test := sLine[PosX];
if Test = BracketInc then
CurChar := sLine[PosX];
if CurChar=BracketInc then
Inc(NumBrackets)
else if Test = BracketDec then begin
else if CurChar=BracketDec then begin
Dec(NumBrackets);
if NumBrackets = 0 then begin
// matching bracket found, set caret and bail out
@ -2973,10 +2974,10 @@ var
Len := Length(sLine);
while PosX < Len do begin
Inc(PosX);
Test := sLine[PosX];
if Test = BracketInc then
CurChar := sLine[PosX];
if CurChar=BracketInc then
Inc(NumBrackets)
else if Test = BracketDec then begin
else if CurChar=BracketDec then begin
Dec(NumBrackets);
if NumBrackets = 0 then begin
// matching bracket found, set caret and bail out