mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 09:59:20 +02:00
MG: completion now replaces the whole word when key without Shift
git-svn-id: trunk@2200 -
This commit is contained in:
parent
9b48e4a3cd
commit
5af6c6bb06
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user