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

carbon: fix Memo line endings #16267

Browse Source 
git-svn-id: trunk@24618 -
This commit is contained in:
dmitry 2010-04-14 09:26:53 +00:00
parent 3fbfb52cce
commit 26583a48d6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/carbon/carbonedits.pp
View File

@ -1919,6 +1919,9 @@ procedure TCarbonMemo.InsertLine(AIndex: Integer; const S: String);
var
AStart, AEnd: TXNOffset;
W: WideString;
const
// Carbon Line ending should be MacOS classic rather than Unix compatible, see #16267
CarbonEoln = #13;
begin
if AIndex < 0 then AIndex := 0;
W := UTF8ToUTF16(S);
@ -1929,12 +1932,12 @@ begin
if AIndex < GetLineCount then
begin
GetLineOffset(AIndex, AStart, AEnd);
W := W + #10;
W := W + CarbonEoln;
end
else
begin
GetLineOffset(GetLineCount - 1, AStart, AEnd);
W := #10 + W;
W := CarbonEoln + W;
AStart := AEnd;
end;