mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 13:17:18 +02:00
JCF: Allow replacing text and keep y-pos of marks
git-svn-id: trunk@34536 -
This commit is contained in:
parent
5a689cb2ed
commit
914d05910c
@ -166,7 +166,7 @@ procedure TEditorConverter.WriteToIDE(const pcUnit: TSourceEditorInterface; cons
|
|||||||
begin
|
begin
|
||||||
if pcUnit = nil then
|
if pcUnit = nil then
|
||||||
exit;
|
exit;
|
||||||
pcUnit.ReplaceLines(0, pcUnit.LineCount, psText);
|
pcUnit.ReplaceLines(0, pcUnit.LineCount, psText, True);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$else}
|
{$else}
|
||||||
|
Loading…
Reference in New Issue
Block a user