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

SynEdit: fix commit 39095 #bfe4ef2227 - Delete last char in line

Browse Source 
git-svn-id: trunk@39096 -
This commit is contained in:
martin 2012-10-15 22:50:28 +00:00
parent bfe4ef2227
commit efacf7ff55
3 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/lazsynedittext.pas
View File

@ -283,7 +283,7 @@ type
procedure FlushNotificationCache; virtual; abstract;
public
// Char bounds // 1 based (1 is the 1st char in the line)
function LogicPosAddChars(const ALine: String; ALogicalPos, ACount: integer): Integer; virtual; abstract;
function LogicPosAddChars(const ALine: String; ALogicalPos, ACount: integer; AllowPastEOL: Boolean = False): Integer; virtual; abstract;
function LogicPosIsAtChar(const ALine: String; ALogicalPos: integer): Boolean; virtual; abstract;
function LogicPosAdjustToChar(const ALine: String; ALogicalPos: integer;
ANext: Boolean = False): Integer; virtual; abstract;
@ -405,7 +405,7 @@ type
property NextLines: TSynEditStrings read fSynStrings write SetSynStrings;
public
// Char bounds // 1 based (1 is the 1st char in the line)
function LogicPosAddChars(const ALine: String; ALogicalPos, ACount: integer): Integer; override;
function LogicPosAddChars(const ALine: String; ALogicalPos, ACount: integer; AllowPastEOL: Boolean = False): Integer; override;
function LogicPosIsAtChar(const ALine: String; ALogicalPos: integer): Boolean; override;
function LogicPosAdjustToChar(const ALine: String; ALogicalPos: integer;
ANext: Boolean = False): Integer; override;
@ -1281,8 +1281,8 @@ begin
fSynStrings.FlushNotificationCache;
end;
function TSynEditStringsLinked.LogicPosAddChars(const ALine: String; ALogicalPos,
ACount: integer): Integer;
function TSynEditStringsLinked.LogicPosAddChars(const ALine: String;
ALogicalPos, ACount: integer; AllowPastEOL: Boolean): Integer;
begin
Result := fSynStrings.LogicPosAddChars(ALine, ALogicalPos, ACount);
end;

2
components/synedit/synedit.pp
View File

@ -2497,7 +2497,7 @@ end;
function TCustomSynEdit.GetCharLen(const Line: string; CharStartPos: integer): integer;
begin
Result := FLines.LogicPosAddChars(Line, CharStartPos, 1) - CharStartPos;
Result := FLines.LogicPosAddChars(Line, CharStartPos, 1, True) - CharStartPos;
end;
function TCustomSynEdit.GetLogicalCaretXY: TPoint;

16
components/synedit/synedittextbuffer.pp
View File

@ -235,7 +235,7 @@ type
property Modified: Boolean read FModified write SetModified;
public
// Char bounds // 1 based (1 is the 1st char in the line)
function LogicPosAddChars(const ALine: String; ALogicalPos, ACount: integer): Integer; override;
function LogicPosAddChars(const ALine: String; ALogicalPos, ACount: integer; AllowPastEOL: Boolean = False): Integer; override;
function LogicPosIsAtChar(const ALine: String; ALogicalPos: integer): Boolean; override;
function LogicPosAdjustToChar(const ALine: String; ALogicalPos: integer;
ANext: Boolean = False): Integer; override;
@ -1056,7 +1056,7 @@ begin
end;
function TSynEditStringList.LogicPosAddChars(const ALine: String; ALogicalPos,
ACount: integer): Integer;
ACount: integer; AllowPastEOL: Boolean): Integer;
begin
// UTF8 handing of chars
Result := ALogicalPos;
@ -1070,10 +1070,14 @@ begin
if (ALine[Result] in [#0..#127, #192..#255]) and (not LogicPosIsCombining(ALine, Result)) then
dec(ACount);
end;
while (Result > 1) and
( (not(ALine[Result] in [#0..#127, #192..#255])) or LogicPosIsCombining(ALine, Result) )
do
dec(Result);
if AllowPastEOL then
Result := Result + ACount;
if (Result <= length(ALine)) then
while (Result > 1) and
( (not(ALine[Result] in [#0..#127, #192..#255])) or LogicPosIsCombining(ALine, Result) )
do
dec(Result);
end else begin
while (Result > 1) and (ACount < 0) do begin
dec(Result);