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

cocoa: Fixes wrong interpretation of sandboxing tetx

Browse Source 
git-svn-id: trunk@47811 -
This commit is contained in:
sekelsenmat 2015-02-15 17:35:31 +00:00
parent 4996f81eb9
commit cd3feb8828
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -339,18 +339,10 @@ begin
// See PredefinedClipboardMimeTypes for the most common mime-types // See PredefinedClipboardMimeTypes for the most common mime-types
case AMimeType of case AMimeType of
'text/plain': 'text/plain':
begin
if SandboxingOn then
begin
lDataType := ccdtNonStandard;
lClassClass := TClipboardString.ClassClass;
end
else
begin begin
lNSStr := NSPasteboardTypeString; lNSStr := NSPasteboardTypeString;
lDataType := ccdtText; lDataType := ccdtText;
end; end;
end;
{'image/bmp', 'image/xpm', 'image/delphi.bitmap': {'image/bmp', 'image/xpm', 'image/delphi.bitmap':
begin begin
end;} end;}