paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 15:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: dropfiles on form fixed, the patch by Dr.Theopolis, #18486. Thank you, Doc!

Browse Source 
git-svn-id: trunk@43511 -
This commit is contained in:
dmitry 2013-12-03 04:37:59 +00:00
parent 0a62d8b17e
commit 1ae6ca0ef4
1 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
lcl/interfaces/carbon/carbonobject.inc
View File

@ -448,6 +448,62 @@ begin
Result := noErr;
end;
{------------------------------------------------------------------------------
Name: CarbonApp_DragReceive
Handles dropping files on application
------------------------------------------------------------------------------}
function CarbonApp_DragReceive(theWindow: WindowRef; handlerRefCon: UnivPtr; theDrag: DragRef): OSErr; {$IFDEF darwin}mwpascal;{$ENDIF}
var
theItemRef: DragItemRef;
theFlavorData: HFSFlavor;
theDataSize: Size;
theFilename: pchar;
theFileRef: FSRef;
numItems: UInt16;
Files: array of string;
itemNum: UInt16;
begin
SetLength(Files, 0);
numItems := 0;
if CountDragItems(theDrag, numItems) <> noErr then exit;
if numItems > 0 then
for itemNum := 1 to numItems do
begin
if GetDragItemReferenceNumber(theDrag, itemNum, theItemRef) <> noErr then continue;
theDataSize := sizeof(theFlavorData);
if GetFlavorData(theDrag, theItemRef, kDragFlavorTypeHFS, @theFlavorData, theDataSize, 0) <> noErr then continue;
FSpMakeFSRef(theFlavorData.fileSpec, theFileRef);
theFilename := stralloc(1024); //PATH_MAX = 1024
FSRefMakePath(theFileRef, theFilename, StrBufSize(theFilename));
try
SetLength(Files, Length(Files) + 1);
Files[High(Files)] := theFilename;
finally
StrDispose(theFilename);
end;
end;
if Length(Files) > 0 then
begin
if Application <> nil then
begin
if Application.MainForm <> nil then
Application.MainForm.IntfDropFiles(Files);
Application.IntfDropFiles(Files);
end;
end;
Result := noErr;
end;
{------------------------------------------------------------------------------
Name: CarbonApp_Quit
Handles application quit
@ -1218,6 +1274,8 @@ begin
InstallApplicationEventHandler(RegisterEventHandler(@CarbonApp_LazWake),
1, @TmpSpec, nil, @FAEventHandlerRef[5]);
InstallReceiveHandler(@CarbonApp_DragReceive, nil, nil);
FOpenEventHandlerUPP := NewAEEventHandlerUPP(AEEventHandlerProcPtr(@CarbonApp_Open));
FQuitEventHandlerUPP := NewAEEventHandlerUPP(AEEventHandlerProcPtr(@CarbonApp_Quit));
OSError(