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

cocoa: Implements pasteboard text copy

Browse Source 
git-svn-id: trunk@47808 -
This commit is contained in:
sekelsenmat 2015-02-15 17:11:08 +00:00
parent c318018c98
commit 6b51f51be4
1 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -240,6 +240,16 @@ end;
function TCocoaWidgetSet.ClipboardGetOwnerShip(ClipboardType: TClipboardType;
OnRequestProc: TClipboardRequestEvent; FormatCount: integer;
Formats: PClipboardFormat): boolean;
var
pasteboard: NSPasteboard;
i: Integer;
lCurFormat: TClipboardData;
DataStream: TMemoryStream;
FormatToOwn: NSString;
FormatToOwnArray: NSArray;
// text format
lText: string;
lNSText: NSString;
begin
Result := False;
{$IFDEF VerboseClipboard}
@ -247,7 +257,49 @@ begin
ClipboardTypeName[ClipboardType] + ' FormatCount: ' + DbgS(FormatCount));
{$ENDIF}
case ClipboardType of
ctPrimarySelection: pasteboard := PrimarySelection;
ctSecondarySelection: pasteboard := SecondarySelection;
ctClipboard: pasteboard := NSPasteboard.generalPasteboard;
end;
DataStream := TMemoryStream.Create;
try
for i := 0 to FormatCount-1 do
begin
lCurFormat := TClipboardData(Formats[i]);
if lCurFormat = nil then Continue;
DataStream.Position := 0;
DataStream.Size := 0;
OnRequestProc(Formats[i], DataStream);
case lCurFormat.DataType of
ccdtText:
begin
FormatToOwn := lCurFormat.CocoaFormat;
FormatToOwnArray := NSArray.arrayWithObjects_count(@FormatToOwn, 1);
DataStream.Position := 0;
SetLength(lText, DataStream.Size);
DataStream.Read(lText[1], DataStream.Size);
lNSText := NSStringUtf8(lText);
pasteboard.declareTypes_owner(FormatToOwnArray, nil);
pasteboard.setString_forType(lNSText, lCurFormat.CocoaFormat);
end;
ccdtCocoaStandard:
begin
end;
ccdtNonStandard:
begin
end;
end;
end;
finally
DataStream.Free;
end;
Result := True;
end;
{------------------------------------------------------------------------------