paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 13:39:25 +02: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

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

@ -340,16 +340,8 @@ begin
case AMimeType of
'text/plain':
begin
if SandboxingOn then
begin
lDataType := ccdtNonStandard;
lClassClass := TClipboardString.ClassClass;
end
else
begin
lNSStr := NSPasteboardTypeString;
lDataType := ccdtText;
end;
lNSStr := NSPasteboardTypeString;
lDataType := ccdtText;
end;
{'image/bmp', 'image/xpm', 'image/delphi.bitmap':
begin