From 5af6c6bb0660bfb94c7439cc717280d74af9c9c7 Mon Sep 17 00:00:00 2001 From: lazarus Date: Sat, 17 Aug 2002 23:41:07 +0000 Subject: [PATCH] MG: completion now replaces the whole word when key without Shift git-svn-id: trunk@2200 - --- components/synedit/synedit.pp | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index da91e8756d..7cd6fb191f 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -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