paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:39:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

JediCodeFormat: Improve formatting of selection on Unix systems.

Browse Source 
git-svn-id: trunk@63851 -
This commit is contained in:
juha 2020-08-31 09:02:27 +00:00
parent eff8a039ba
commit 6d45177b97
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/jcf2/IdePlugin/lazarus/jcfidemain.pas
View File

@ -316,12 +316,13 @@ begin
try try
fcConverter.OnStatusMessage := LogIDEMessage; fcConverter.OnStatusMessage := LogIDEMessage;
fcConverter.InputCode := sourceCode; fcConverter.InputCode := sourceCode;
fcConverter.GuiMessages:=true; fcConverter.GuiMessages := true;
FindLineOffsets(sourceCode,BlockBegin.Y,BlockEnd.Y,lineStartOffset,lineEndOffset); FindLineOffsets(sourceCode,BlockBegin.Y,BlockEnd.Y,lineStartOffset,lineEndOffset);
fcConverter.ConvertPart(lineStartOffset,lineEndOffset,true); fcConverter.ConvertPart(lineStartOffset,lineEndOffset,true);
wI:=length(fcConverter.OutputCode); wI := length(fcConverter.OutputCode);
outputstr:=Copy(fcConverter.OutputCode,1,wI-4); // converter adds 2 line ends 0d0a 0d0a // converter adds 2 LineEndings.
if fcConverter.ConvertError=false then outputstr := Copy(fcConverter.OutputCode, 1, wI-Length(LineEnding+LineEnding));
if not fcConverter.ConvertError then
srcEditor.ReplaceText(BlockBegin, BlockEnd, outputstr); srcEditor.ReplaceText(BlockBegin, BlockEnd, outputstr);
finally finally
fcConverter.Free; fcConverter.Free;