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

git-svn-id: trunk@2200 -
This commit is contained in:
lazarus 2002-08-17 23:41:07 +00:00
parent 9b48e4a3cd
commit 5af6c6bb06

View File

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