paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 09:10:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mantis 10222,10223 typo corrected + non standard Delphi callback prototype

Browse Source 
git-svn-id: trunk@9309 -
This commit is contained in:
marco 2007-11-21 13:35:10 +00:00
parent 0852ce56a9
commit 0f412ff2d6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/base/winunits/mmsystem.pp
View File

@ -1598,6 +1598,8 @@ _MIXERCONTROLDETAILS_BOOLEAN = packed Record
Procedure (uTimerID, uMsg: UINT; dwUser, dw1, dw2: DWORD);stdcall;
TTIMECALLBACK=LPTIMECALLBACK;
TFNTimeCallBack = TTimeCallback; // delphi compat
_timecaps = packed Record
wPeriodMin: UINT;
wPeriodMax: UINT;
@ -1606,7 +1608,7 @@ _MIXERCONTROLDETAILS_BOOLEAN = packed Record
PTIMECAPS = ^_timecaps;
NPTIMECAPS = ^_timecaps;
LPTIMECAPS = ^_timecaps;
TTIMECAS = TIMECAPS;
TTIMECAPS = TIMECAPS;
_JOYCAPSA = packed Record
wMid: WORD;