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

cocoa: changing the implementation of strings count. (if the last line is empty, don't recognize it a full line. Compatible with Win32. bug #36664

Browse Source 
git-svn-id: trunk@63273 -
This commit is contained in:
dmitry 2020-06-02 02:30:43 +00:00
parent 84a3138f6e
commit 5a3630c919
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -166,7 +166,6 @@ type
FTextView: TCocoaTextView;
public
class procedure GetLineStart(const s: AnsiString; LineIndex: Integer; var Offset, LinesSkipped: Integer);
class function GetLinesCount(const s: AnsiString): Integer;
protected
function GetTextStr: string; override;
procedure SetTextStr(const Value: string); override;
@ -1227,19 +1226,22 @@ begin
Offset:=i;
end;
class function TCocoaMemoStrings.GetLinesCount(const s: AnsiString): Integer;
var
ofs : Integer;
begin
Result:=0;
ofs:=0;
GetLineStart(s, -1, ofs, Result);
end;
function TCocoaMemoStrings.GetCount:Integer;
var
s : NSString;
i : LongWord;
strLen : LongWord;
begin
Result:=GetLinesCount(GetTextStr);
inc(Result);
s := FTextView.string_;
// it's a very nice example for Apple's docs
// https://developer.apple.com/library/archive/documentation/Cocoa/Conceptual/TextLayout/Tasks/CountLines.html
strLen := s.length;
i := 0;
Result := 0;
while (i < strLen) do begin
i := NSMaxRange(s.lineRangeForRange(NSMakeRange(i, 0)));
inc(Result);
end;
end;
function TCocoaMemoStrings.Get(Index:Integer):string;