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

IDE: SourceEditor, fix InsertLine. Issue #41409 Patch by Frank Fischer

Browse Source
This commit is contained in:
Martin 2025-02-17 22:28:45 +01:00
parent 16549aa9df
commit f3de1146b5
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/sourceeditor.pp
View File

@ -5689,15 +5689,18 @@ const
MarksMode: array[Boolean] of TSynMarksAdjustMode = (smaMoveUp, smaKeep);
var
Pt: TPoint;
NewLine: String;
begin
if not ReadOnly then
begin
if StartLine > 1 then
Pt := Point(Length(FEditor.Lines[StartLine - 2]) + 1, StartLine - 1)
else
if StartLine > 1 then begin
Pt := Point(Length(FEditor.Lines[StartLine - 2]) + 1, StartLine - 1);
NewLine := LineEnding + NewText;
end else begin
Pt := Point(1, 1);
FEditor.SetTextBetweenPoints(Pt, Pt,
LineEnding + NewText, [], scamEnd, MarksMode[aKeepMarks]);
NewLine := NewText + LineEnding;
end;
FEditor.SetTextBetweenPoints(Pt, Pt, NewLine, [], scamEnd, MarksMode[aKeepMarks]);
end;
end;