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

cocoa: forcing nstextview to use unix line breaks at the time of adding new text

Browse Source 
git-svn-id: trunk@61567 -
This commit is contained in:
dmitry 2019-07-11 13:25:40 +00:00
parent 608504c911
commit 22ca7c1214
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/cocoa/cocoawsstdctrls.pas
View File

@ -172,6 +172,7 @@ type
function GetCount: Integer; override;
function Get(Index: Integer): string; override;
public
ForcedLineBreak: String;
constructor Create(ATextView: TCocoaTextView);
procedure Clear; override;
procedure Delete(Index: Integer); override;
@ -1120,26 +1121,32 @@ end;
{ TCocoaMemoStrings }
function LineBreaksToUnix(const src: string): string;
begin
// todo: need more effecient replacement
Result := StringReplace( StringReplace(
StringReplace(src, #10#13, #10, [rfReplaceAll])
, #13#10, #10, [rfReplaceAll])
, #13, #10, [rfReplaceAll]);
end;
constructor TCocoaMemoStrings.Create(ATextView: TCocoaTextView);
begin
inherited Create;
ForcedLineBreak := LineBreak;
FTextView := ATextView;
end;
function TCocoaMemoStrings.GetTextStr: string;
begin
Result := NSStringToString(FTextView.string_);
Result := StringReplace( StringReplace(
StringReplace(Result, #10#13, LineEnding, [rfReplaceAll])
, #13#10, LineEnding, [rfReplaceAll])
, #13, LineEnding, [rfReplaceAll]);
end;
procedure TCocoaMemoStrings.SetTextStr(const Value: string);
var
ns: NSString;
begin
ns := NSStringUtf8(Value);
ns := NSStringUtf8(LineBreaksToUnix(Value));
FTextView.setString(ns);
ns.release;
@ -1231,7 +1238,7 @@ var
idx : integer;
ro : Boolean;
const
LFSTR = #13#10;
LFSTR = #10;
begin
ns:=FTextView.string_;
idx:=0;
@ -1651,7 +1658,7 @@ var
begin
txt := GetTextView(AWinControl);
if not Assigned(txt) then Exit;
ns := NSStringUtf8(AText);
ns := NSStringUtf8(LineBreaksToUnix(AText));
txt.setString(ns);
ns.release;
end;