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

cocoa: adding support for an image in the pastebin. #34960

Browse Source 
git-svn-id: trunk@61472 -
This commit is contained in:
dmitry 2019-06-24 21:29:37 +00:00
parent b06a651094
commit 8ca71151f9
1 changed files with 39 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lcl/interfaces/cocoa/cocoawsclipboard.pas
View File

@ -86,6 +86,7 @@ const
// thus for earlier systems must be redeclared
_NSPasteboardTypeString : NSString = nil;
_NSPasteboardTypePNG : NSString = nil;
_NSPasteboardTypeTiff : NSString = nil;
implementation
@ -93,6 +94,7 @@ procedure InitConst;
begin
_NSPasteboardTypeString := NSSTR('public.utf8-plain-text');
_NSPasteboardTypePNG := NSSTR('public.png');
_NSPasteboardTypeTiff := NSSTR('public.tiff');
end;
{ TCocoaWSClipboard }
@ -160,6 +162,17 @@ begin
Result := TCocoaClipboardData(AFormat);
end;
function PasteboardToPngData(pb: NSPasteboard): NSData;
var
rep : NSBitmapImageRep;
begin
rep := NSBitmapImageRep.imageRepWithPasteboard(pb);
if Assigned(rep) then
Result := rep.representationUsingType_properties(NSPNGFileType, nil)
else
Result := nil;
end;
function TCocoaWSClipboard.GetData(ClipboardType: TClipboardType;
FormatID: TClipboardFormat; Stream: TStream): boolean;
var
@ -207,7 +220,10 @@ begin
ccdtBitmap:
begin
lNSData := pasteboard.dataForType(lFormat.CocoaFormat);
if lNSData = nil then Exit;
if lNSData = nil then begin
lNSData := PasteboardToPngData(pasteboard);
if not Assigned(lNSData) then Exit;
end;
lNSbytes := lNSData.bytes;
Image := TFPMemoryImage.Create(10, 10);
@ -239,6 +255,11 @@ var
i: Integer;
pb : NSPasteboard;
tp : NSString;
hasBmp: Boolean;
hasImage: Boolean; // this a default macOS sharing format
imgArr: NSArray;
const
ImgBmpFmt : string = 'image/bmp';
begin
pb := Pasteboards[ClipboardType].pasteboard;
Result := Assigned(pb);
@ -246,10 +267,27 @@ begin
i := 0;
SetLength(List, pb.types.count);
hasImage := false;
hasBmp := false;
imgArr := NSBitmapImageRep.imagePasteboardTypes;
for tp in pb.types do
begin
List[i]:=RegisterCocoaType(tp);
inc(i);
if not hasImage and Assigned(imgArr) then
begin
hasImage := (imgArr.indexOfObject(tp) <> NSNotFound);
end;
if (tp.UTF8String = ImgBmpFmt) then
hasBmp := true;
end;
if hasImage and not hasBmp then
begin
inc(i);
SetLength(List, i);
List[i-1] := RegisterFormat(ImgBmpFmt);
end;
Count := i;