paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-06 22:26:29 +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; FilterIndex: Integer;
function FilterCallback(var theItem: AEDesc; info: NavFileOrFolderInfoPtr; 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 {Custom filter callback function. Pointer to this function is passed as
inFilterProc to NavCreateGetFileDialog and NavCreateChooseFolderDialog. inFilterProc to NavCreateGetFileDialog and NavCreateChooseFolderDialog.
If theItem file should be highlighted in file dialog, return True; If theItem file should be highlighted in file dialog, return True;
@ -159,7 +159,7 @@ begin
end; {FilterCallback} end; {FilterCallback}
procedure NavDialogCallback(CallBackSelector: NavEventCallbackMessage; procedure NavDialogCallback(CallBackSelector: NavEventCallbackMessage;
CallBackParms: NavCBRecPtr; CallBackUD: UnivPtr); stdcall; CallBackParms: NavCBRecPtr; CallBackUD: UnivPtr); mwpascal;
var var
Dir: AEDesc; Dir: AEDesc;
DirRef: FSRef; DirRef: FSRef;