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

Cocoa: Fix #40937 the linefeed issue in TCocoaMemoStrings (patch by David Jenkins)

Browse Source
This commit is contained in:
rich2014 2024-05-01 15:23:54 +08:00
parent a3cc94cfff
commit cf53186c8e
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -203,6 +203,7 @@ type
function Get(Index: Integer): string; override; function Get(Index: Integer): string; override;
public public
constructor Create(ATextView: TCocoaTextView); constructor Create(ATextView: TCocoaTextView);
procedure Assign(Source: TPersistent); override;
procedure Clear; override; procedure Clear; override;
procedure Delete(Index: Integer); override; procedure Delete(Index: Integer); override;
procedure Insert(Index: Integer; const S: string); override; procedure Insert(Index: Integer; const S: string); override;
@ -1433,6 +1434,16 @@ begin
SetTextStr(''); SetTextStr('');
end; end;
procedure TCocoaMemoStrings.Assign(Source: TPersistent);
begin
if (Source=Self) or (Source=nil) then
exit;
if Source is TStrings then
SetTextStr(TStrings(Source).Text)
else
inherited Assign(Source);
end;
procedure TCocoaMemoStrings.Delete(Index:Integer); procedure TCocoaMemoStrings.Delete(Index:Integer);
var var
s : AnsiString; s : AnsiString;