paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: various minor speed improvements (replace selection) [missing file]

Browse Source 
git-svn-id: trunk@39836 -
This commit is contained in:
martin 2013-01-12 11:47:10 +00:00
parent 1c99638ea5
commit 1186928788
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/lazsynedittext.pas
View File

@ -340,6 +340,7 @@ type
// Currently Lines are physical
procedure EditInsert(LogX, LogY: Integer; AText: String); virtual; abstract;
function EditDelete(LogX, LogY, ByteLen: Integer): String; virtual; abstract;
function EditReplace(LogX, LogY, ByteLen: Integer; AText: String): String; virtual; abstract;
procedure EditLineBreak(LogX, LogY: Integer); virtual; abstract;
procedure EditLineJoin(LogY: Integer; FillText: String = ''); virtual; abstract;
procedure EditLinesInsert(LogY, ACount: Integer; AText: String = ''); virtual; abstract;
@ -451,6 +452,7 @@ type
// LogX, LogY are 1-based
procedure EditInsert(LogX, LogY: Integer; AText: String); override;
function EditDelete(LogX, LogY, ByteLen: Integer): String; override;
function EditReplace(LogX, LogY, ByteLen: Integer; AText: String): String; override;
procedure EditLineBreak(LogX, LogY: Integer); override;
procedure EditLineJoin(LogY: Integer; FillText: String = ''); override;
procedure EditLinesInsert(LogY, ACount: Integer; AText: String = ''); override;
@ -1376,6 +1378,12 @@ begin
Result := fSynStrings.EditDelete(LogX, LogY, ByteLen);
end;
function TSynEditStringsLinked.EditReplace(LogX, LogY, ByteLen: Integer;
AText: String): String;
begin
fSynStrings.EditReplace(LogX, LogY, ByteLen, AText);
end;
procedure TSynEditStringsLinked.EditLineBreak(LogX, LogY: Integer);
begin
fSynStrings.EditLineBreak(LogX, LogY);