activex.pp OleTranslateAccelerator definition problem

[440bx]

Hello,

In activex.pp, OleTranslateAccelerator is defined as:

Code: Pascal  [Select][+][-]

1.   function OleTranslateAccelerator(lpFrame:IOleInPlaceFrame; lpFrameInfo:TOleInPlaceFrameInfo; lpmsg:LPMSG):WINOLEAPI;stdcall;external 'ole32.dll' name 'OleTranslateAccelerator';
2.  

Note the definition of the second parameter:

Code: Pascal  [Select][+][-]

1.   lpFrameInfo:TOleInPlaceFrameInfo;
2.  

That parameter should be a pointer to a TOleInPlaceFrameInfo not a TOleInPlaceFrameInfo

The C definition is:

Code: C  [Select][+][-]

1. HRESULT OleTranslateAccelerator(
2.   [in] LPOLEINPLACEFRAME     lpFrame,
3.   [in] LPOLEINPLACEFRAMEINFO lpFrameInfo,
4.   [in] LPMSG                 lpmsg
5. );
6.  

Showing that the second parameter is a pointer to an OLEINPLACEFRAMEINFO

HTH.

[ASerge]

In Delphi 7 is defined as:

Code: Pascal  [Select][+][-]

1. function OleTranslateAccelerator(frame: IOleInPlaceFrame;
2.   var frameInfo: TOleInPlaceFrameInfo; msg: PMsg): HResult; stdcall;

[marcov]

So is FPC since this morning: https://gitlab.com/freepascal.org/fpc/source/-/commit/5a227b98882b87ad5804c38d0e49c65ebfd9815a