paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 13:38:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

changed callbacks calling conv to mwpascal

Browse Source 
git-svn-id: trunk@18759 -
This commit is contained in:
dmitry 2009-02-19 07:43:35 +00:00
parent e07d1b374b
commit bed3e1d1a2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonwsdialogs.pp
View File

@ -105,7 +105,7 @@ var
FilterIndex: Integer;
function FilterCallback(var theItem: AEDesc; info: NavFileOrFolderInfoPtr;
callbackUD: UnivPtr; filterMode: NavFilterModes): Boolean; stdcall;
callbackUD: UnivPtr; filterMode: NavFilterModes): Boolean; mwpascal;
{Custom filter callback function. Pointer to this function is passed as
inFilterProc to NavCreateGetFileDialog and NavCreateChooseFolderDialog.
If theItem file should be highlighted in file dialog, return True;
@ -159,7 +159,7 @@ begin
end; {FilterCallback}
procedure NavDialogCallback(CallBackSelector: NavEventCallbackMessage;
CallBackParms: NavCBRecPtr; CallBackUD: UnivPtr); stdcall;
CallBackParms: NavCBRecPtr; CallBackUD: UnivPtr); mwpascal;
var
Dir: AEDesc;
DirRef: FSRef;