paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 02:01:18 +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

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

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