pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: cocoa saverichtext implementation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6815 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2019-02-12 04:43:21 +00:00
parent 4a2553c983
commit 9feaae0649
1 changed files with 40 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
components/richmemo/cocoa/cocoarichmemo.pas
View File

@ -24,7 +24,7 @@ type
{ TCocoaWSCustomRichMemo }
TCocoaWSCustomRichMemo = class(TWSCustomRichMemo)
public
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function GetTextAttributes(const AWinControl: TWinControl; TextStart: Integer;
@ -52,6 +52,7 @@ type
class procedure InDelText(const AWinControl: TWinControl;
const TextUTF8: String; DstStart, DstLen: Integer); override;
class function LoadRichText(const AWinControl: TWinControl; Source: TStream): Boolean; override;
class function SaveRichText(const AWinControl: TWinControl; Dest: TStream): Boolean; override;
end;
implementation
@ -600,4 +601,42 @@ begin
Result:=true;
end;
class function TCocoaWSCustomRichMemo.SaveRichText(
const AWinControl: TWinControl; Dest: TStream): Boolean;
var
rng : NSRange;
txt : TCocoaTextView;
rtf : NSData;
sz : NSUInteger;
dt : PByteArray;
i : NSUInteger;
chsz : Integer; // chunk size
begin
//todo: avoid copying data.
Result:=false;
if not Assigned(Dest) or not Assigned(AWinControl) or (AWinControl.Handle=0) then Exit;
txt:=MemoTextView(AWinControl);
rng.length:=txt.textStorage.string_.length;
rng.location:=0;
rtf:=txt.RTFFromRange(rng);
sz :=rtf.length;
if (sz>0) then begin
dt:=PByteArray(rtf.bytes);
i:=0;
// have to do all of that, because Stream.Write(, Int32);
// while size can be > 2Gb
while sz>0 do begin
if sz>MaxInt then chsz:=MaxInt
else chsz := sz;
Dest.Write(dt[i], chsz);
dec(sz, chsz);
inc(i, chsz);
end;
end;
Result:=true;
end;
end.